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"Unverbindliche Preisempfehlung 


Markt&Technik-Bücher und 
-Software erhalten Sie bei 
Ihrem Buchhändler, il 

db Computer-Fachgeschäften 

5 und in den Fachabteilungen 

= | der Warenhäuser 


Markt&dechnik 


Zeitschriften - Bücher 
Software - Schulung 


Eormorıu 


Software 


kompakt 


Ein prall gefülltes Software-Paket 
- und nur Spitzenprogramme. Wer 
wünscht sich das nicht? 
Für Sie haben wir die besten Listings 
des Jahres 1989 zusammengestellt. 
Viele »Programme des Monats« vom 
AMIGA-Magazin und die »besten Stük- 
ke« aus den Sonderheften sind dabei. 
Was hat uns dazu bewogen? 
Nun, zu Weihnachten bekamen 
Tausende einen neuen Amiga. Die 
Freude war sicher groß, doch beson- 
ders zu Anfang fehlt es an guter Soft- 
ware. Dem wollen wir abhelfen. Aus 
den verschiedensten Bereichen haben 
wir Spitzen-Listings zusammengestellt: 
faszinierende Grafik-Software, unter- 
haltsame Spiele, nützliche Anwendun- 
gen und hilfreiche Tools, die einem den 
Computeralltag erleichtern. Für jeden 
ist etwas dabei. Stöbern Sie nur in die- 
sem Software-Paket, es lohnt sich. 
Noch ein weiterer Punkt bewog 
uns zu dieser Software-Samm- 
lung. Gingen Ihnen auch schon die fol- 
genden Gedanken durch den Kopf? 
»Mensch, das Programm des Monats 


hat mich in dieser Ausgabe unwahr- 
scheinlich interessiert. Aber dafür gleich 
die Programmservice-Diskette kaufen - 
nein.« Und zum Abtippen hatte man 
weder Lust noch Zeit. Also ließ man es 
bleiben. Für mehr als 20 dieser Pro- 
gramm-Renner gibt man gern das Geld 
für die Beschaffung der Programmser- 
vice-Diskette aus. 
Warum dann 
noch die Listings 
im Heft? Wir müssen 
auch an diejenigen 
Leser denken, bei de- 
nen der Geldbeutel 
sehr eng geschnürt 
ist. 
Auch diese Ami- 
ga-Fans sollen 
die Chance erhalten, 
in den Genuß der 
Software zu kommen 
- und meist steht Ih- 
nen etwas mehr Zeit 
zur Verfügung. 
Natürlich interessiert uns Ihre 
Meinung zu dieser Sammlung. 
Schreiben Sie uns, an die »Redaktion 
Sonderheft«. Wir warten mit Spannung 
auf Ihre Reaktionen. 
Also, viel Spaß beim Fliegen mit dem 
Computer, Entwickeln von Riesen- 
Sprites, Tischtennis-Kampf gegen den 
elektronischen Gegner, Fiebern an der 
Börse und, und, und... 


Ihr 
Gottfried Knechtel 
(Stellv. we, 


a 
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6 Sprite-Ed itor 
Überdimensionale Sprites spielend leicht 
entwickeln. Der »Amiga-Objekt-Editor« bedeutet das 
Ende mühevoller Kleinarbeit. 


18 Der Konvertierer [| 
Mit »AOE-Convert« bauen Sie die mit dem Amiga- 
Objekt-Editor entwickelten Super-Sprites in Ihre 
Basic-Programme ein. 


21 Zauberei mit Bildern u 
»IFF-Filter« modifiziert Ihre Farbbilder auf 
faszinierende Weise. 


27 Grafik in.der dritten Dimension [ 
Lassen Sie sich faszinieren von dem Spiel mit Licht 
und Schatten, das Sie mit diesem »Ray Tracer« 
konstruieren können. 


30 Bewegung in 3Dimensionen | 
Gittergrafiken - bewegt, perspektivisch, 
dreidimensional. Kein Problem für»3DAmim«. 


REEL 


40 Nur Fliegen istschöner 
Vom Starten bis zu Kunstflugmanövern über 
herrlicher Landschaft. Lernen Sie Ihre Maschine zu 
beherrschen mit diesem kurzen aber 
leistungsstarken Flugsimulator. 


50 Ping-Pong pur u 
Tückische Angaben, Schmettern und Bälle 
anschneiden. Wer schafft es, den spielstarken 


Computer zu besiegen? 61 Trainingslager 1: 
55 Krieg der Sterne : Trainern Si Ihr Gehim, En Denkapiol or 
„Fantasy« entführt Sie weit in die Zukunft. Planeten ee See 
‚kämpfen um die Vorherrschaft. 67 $ iel Spaß & $ pannun 1 
a Er Au CS« ist ein zweites es das nach 
dem Spielprinzip von »Eimerketten« neu entwickelt | 
wurde. 
76, Börsenfieber am Amiga | 


Spekulationsgewinne und Husarenstreiche - 
»Broker« bringt die Faszination der Börse in Ihr 
Wohnzimmer. 


HIN) 

84 Packen wis [ 
Viele Programme mehr auf einer Diskette speichern: 
»MasterCruncher« packt alles. Bis über 50% werden 
die Dateien kürzer. 


90 Der Entseuchungstrupp u 
Ein Virus-Killer, den jeder Amiga-Besitzer braucht. 
Er schützt Ihren Computer vor Link- und Bootblock- 
Viren und kontrolliert das gesamte System. 


Mit dem mausgesteuerten »Amiga-Objekt-Editor« lassen sich 100 Geräteinspektion 1: 
Riesen-Sprites und Animationssequenzen schnell und mühe- Wollen Sie wissen, ob ein externes Laufwerk oder 
los erstellen. Ein Programm, das jeder Grafik-Fan braucht. eine Festplatte angeschlossen ist? »TestDev.h« 

SEITE 6 untersucht, welches Device wirklich vorhanden ist. 


4 


I NHALT 


Wollten Sie B 7 z 
schon immer 124 Sounds im Eigenbau ] 


hoch In ost Ob Kanonendonner oder akustische Hinweise - der 
= ft = dus komfortable »Sound-Effekt-Editor« unterstützt Sie 


Loopings dre- beim Erzeugen aller Geräusche für Ihre Programme. 


Fugemaiator 130 Etiketten mit Pfiff 


macht es Dieses Programm bringt den Inhalt Ihrer Disketten 
möglich - übersichtlich auf die Etiketten. 

auch ohne = = = 

Flugschein. 136 und läuft und läuft und läuft... 

SEITE40 Laufschriften - eine werbewirksame Methode, 


Informationen auszugeben. »hscroll« generiert sie. 


140 Eine universelle Dateiverwaltung 
»Uni-Datei« ist schnell und besticht durch sehr 
komfortable Benutzerführung. 


3 Editorial 

4 Inhalt 
35 Impressum 
143 Checksummer 
146 Vorschau 


Alle Programme aus Artikeln mit einem |A-Symbo! finden Sie auch auf 
der Programmservice-Diskette zu diesem Sonderheft 


Solche Bilder können Sie 
mit dem »IFF-Filter« in 


den verschiedensten Va- — 
rianten modifizieren. Wie = e 
- das erfahren Sie auf = 


SEITE 21 


101 Dämmerung 
Welches Ein- und Ausblenden von Bildern in vielen 
Varianten. Schöne Effekte, die jedem das Arbeiten 
und Spielen mit dem Computer versüßen. 


102 Bitte umblättern... 
Einen schnellen Weg zum hintersten Fenster bietet 
»Shuffle«. Ein pfiffiges Programm, das im Hinter- 
grund läuft und Ihnen einiges an Arbeit abnimmt, 


104 Der schnelle Umweg 


»Felder« beschleunigt das Abarbeiten 
von numerischen Feldern erheblich. 


106 Zaubern Sie mit 


40 Zaubersprüche: eine Bibliothek 
voller Funktionen für alle Pro- 
grammierer - nicht nur für Basic. 


. / i N 
nenn OF ie 


n Ordnung in Ihre 
121 Meister der Tasten 


Ra Karteien. Die Dateiver- 
2 ; Ä > jaltung »Uni-Datei« 

Wollen Sie schneller auf der Amiga-Tastatur BEE NUNG 

tippen? Mit »Keyboard-Master« erlernen Sie auf ist derart benutzerfreund- SEITE 


Re E & lich und schnell, daß keiner 
faszinierende Weise das 10-Finger-System. = mehr darauf verzichten will. 1 40 


5 


Sprites gehören zu Spielen wie der Moni- " 
tor zum Computer. Leider müssen diese 
auch auf dem Amiga in mühevoller Klein- 
arbeit erstellt werden. Unser Sprite-Editor 


i beseitigt dieses Problem und macht 
' selbst das Entwickeln von überdimen- 
sionalen Sprites zum Kinderspiel. 


ine -- SS 25: 27775 
: | 


N H 


s gibt kaum Spiele, die 

ohne Sprites auskom- 

men. Dabei beschränkt 
sich die Verwendung von be- 
 wegten Objekten keineswegs 
nur auf Actionspiele. Auch 
Brettspiele, Knobelspiele, Ad- 
ventures etc. profitieren unge- 
mein durch den Einsatz be- 
weglicher Objekte. Mit der 
mausgesteuerten Benutzer- 
oberfläche des»Amiga-Object- 
Editor« (Bild 1) lassen sich Spri- 
tes und Animationssequenzen 
schnell und mühelos erstellen 
und editieren. Auch DPaint- 
Brushes lassen sich damit be- 
arbeiten. 

Geben Sie den DATA-Lader 
»AOE_Gen« (Listing 1) mit 
dem Checksummer ein. Da 
das Programm einen relativ 
hohen Speicherbedarf hat, 
muß vor der Eingabe des 
Listings im Direktmodus 
des Basic-Editors »CLEAR, 
150000&« eingegeben wer- 
den. Dies hat auch dann zu ge- 
schehen, wenn »AOE_Gen« 
erneut in den Speicher ge- 
laden wird. Nach dem Start 
des Laders generiert dieser 
das lauffähige Programm 
»AOE_V1.2« auf Diskette. 


Bild 1. Die Benutzeroberfläche des »Amiga-Object-Editors« 
mit den verschiedenen Icons 


Nach diesem Vorgang, der et- 
was Zeit beansprucht, kann 
der Object-Editor gestartet 
werden. Dabei ist zu beachten, 
daß das vom Lader generierte 
File nur vom CLI aus gestartet 
werden kann, obwohl ein Icon 
vorhanden wäre. 

Sie werden nach dem Start 
aufgefordert, die Anzahl der 
Objekte, die bearbeitet werden 
sollen, einzugeben. Klicken 
Sie dazu das Eingabefeld an 
und tragen die gewünschte 
Objektanzahl ein. 

Das Zeichnen eines Objek- 
tes ist durch die Maussteue- 
rung sehr einfach. Es stehen 
16 verschiedene Farben zur 
Verfügung, die durch einfa- 
ches Anklicken ausgewählt 
werden. Die Rot-Grün- und 
Blauanteile der gewählten Far- 
be können durch die Schalter 
am unteren rechten Bild- 
schirmrand verändert werden. 
Gezeichnet wird ein Sprite mit 
Hilfe der Maus, wobei mit der 
linken Maustaste Punkte ge- 
setzt und mit der rechten ge- 
löscht werden. Das zu bearbei- 
tende Sprite wird bei »Objekt 
Nr.« ausgewählt. 


Im Zeichenfenster wird das 
Riesensprite, das in Wirklich- 
keit aus vier Einzelsprites be- 
steht, stark vergrößert darge- 
stellt. Rechts oben sieht man 
das Sprite in Originalgröße. 
Unter diesem Fenster befinden 
sich vier Pfeile. Durch An- 
klicken dieser Pfeile kann das 
aktuelle Sprite in alle vier Him- 
melsrichtungen verschoben 


Icons erleichtern 
die Arbeit 


werden. Klicken Sie das Icon in 
der Mitte der Pfeile an, so än- 
dern diese ihre Richtung und 
das Sprite wird nun bei der Ver- 
wendung der Pfeilsymbole in 
Richtung seiner Mittelachse 
gestaucht. Unter den Pfeil- 
Icons befinden sich acht weite- 
re Icons, auf deren Funktionen 
nun eingegangen werden soll: 
Icon 1 (Disketten-Icon): Hier 
haben Sie die Möglichkeit, 
Sprites zu laden und zu spei- 
chern. Zum Laden muß die ent- 
sprechende Option gewählt 
und die Nummer, unter der das 


Adresse 


$00000000 "AOE ".L 
$00000004 0000.W 
$00000006 0000.W 
$00000026 


1. Objekt: 


2. Objekt: 


im Sprite 


Bemerkung 


Kennung der Objektdatei 

Anzahl der Objekte in der Datei 
Nun folgen 16 Wörter mit der 
Farbinfomation 

Es folgen die Objektdaten: 
‚Anzahl der Objekte mal 640 Byte. 


Die Objektdaten haben folgenden Aufbau: 
1. Bitplane (128 Byte) 
4. Bitplane (128 Byte) 


5. Maske (128 Byte) 
1. Bitplane (128 Byte) 


Jedem gesetzten Bit in der Maske entspricht ein gesetzter Punkt 


Tabelle 1. Der Aufbau eines Files im »AOE«-Format 
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Objekt im Speicher stehen soll, 
sowie der Filename eingege- 
ben werden. 

Das Programm erkennt, ob 
es sich um ein »AOE«-Objekt 
(Amiga-Object-Editor-Objekt), 
oder um einen DPaint-Brush 
handelt. DPaint-Brushes müs- 
sen in der Größe von 32 x 32 
Punkten mit 16 Farben vorlie- 


Kopieren und 
Animieren 


gen. Wollen Sie selbsterstellte 
Sprites auf Diskette ablegen, 
so wählen Sie »SPEICHERN: 
Hier sind die Nummern des er- 
sten und des letzten zu spei- 
chernden Objekts angegeben. 
Es können also beliebig viele 


aufeinanderfolgende Sprites 
in einem File gespeichert wer- 
den. Wollen Sie nur ein Sprite 
speichern, geben Sie einfach 
zwei gleiche Werte an. Nach 
Eingabe des Dateinamens 
werden die Objekte im »ADE«- 
Format gespeichert. Den Auf- 
bau eines »AEO«-Files sehen 
Sie in Tabelle 1. 


lcon2(CLR): Wenn Sie dieses 
Icon anwählen, wird das ak- 
tuelle Sprite gelöscht. 


Icon 3 (zwei waagerechte 
Pfeile): Horizontales Spiegeln 
des aktuellen Sprites. 


Icon 4 (zwei senkrechte Pfei- 
le): Vertikales Spiegeln des ak- 
tuellen Sprites. 


Icon 5 (geknickter Pfeil): Dre- 


hen des aktuellen Sprites um 
90 Grad. 


Icon 6 (zwei sich überlappen- 
de Quadrate): Kopieren von 
Sprites. Neben der Quell- und 
Zielnummer des Objekts kann 
beim Kopieren von mehreren 
aufeinanderfolgenden Sprites 
auch die gewünschte Anzahl 
eingegeben werden. 


Icon 7 (»i«): Info zum Pro- 
gramm. 


Icon 8 (Bildprojektor-Sym- 
bol): Animation von mehreren 
Sprites. Geben Sie die Num- 
mern des ersten und letzten 
Sprites der Animationsfolge 
ein und klicken Sie »FERTIG« 
an. Daraufhin beginnt die Ani- 
mation, deren Geschwindig- 


Programmname: AOE_Gen 
Computer: Amiga 500, 2000 mit Kickstart 1.2, 1.3 
Sprache: Amiga-Basic 1.2 


So geben Sie das Listing ein 


Der Objekt-Editor ist in Maschinensprache (Assembler) geschrieben. 
Um jedem Amiga-Besitzer die Eingabe des Listings zu ermöglichen, 
haben wir das Programm für Sie umgewandelt. Die abgedruckte 


Version ist mit Amiga-Basic einzugeben. Diesen Interpreter finden Sie 
auf der Extras-Diskette, die bei der Auslieferung jedem Amiga beillegt. 

1 #10 REM Generiert Programm AOE_V1.2 Das Programm erzeugt beim Start das lauffähige Programm mit 
Zug cıs Namen »AOE__V1.2« auf der eingelegten Diskette. Bitte geben Sie das 
3.80 OPEN "AOE_V1.2” FOR OUTPUT AS 1 Programm unbedingt mit Checkie 42 (Seite 143) ein. Die Hinweise zum 
488 | READ ang Checksummer sollten Sie unbedingt beachten. 

508 FOR 1»1 TO anz 

6302 rEaD n$ 

7 yB2 werti=ASC(LEFTS(h$,1)) 

&#D | IF wert1>64 THEN wertiswerti-55 BISE wertl=verti-48 

AL Wertiswertix16 Listing 1. Der Quellcode des Object-Editors als 

10 76) wert2sASC(RIGHTS(h$,1)) DATA-Lader. Mit den Objekt-Editor erzeugen Sie 

Al nd IF wert2>64 THEN wert2swert2-55 ELSE wert2swert2-48 Sprites und Animationssequenzen. Bitte mit dem 

4a Pl wertswertitwert2 Checksummer auf Seite 143 eingeben. 

1396 | PRINT #1,CHRS(wert) 

14 300 nExT 

A9/3n  CLOSE 1 52/60) DATA 4E‚AE,FE,80,23,C0,00,00,34,82 &5/L) DATA 00,02,38,30,00, FF,3,30,00,07. 
16.04 END 53 a DATA 48,75,44,59,00,00,31,82,67,00 SO HL DATA 30,30,01,20,3E,30,00,28,4E,B9 
AP RA DATA 19072 54 KL DATA 00,00,22,79,00,00,34,82,42,AE 91 WC DATA 00,00,04,88,30,30,00,04,38,30 
18/16 DATA 00,00,03,F3,00,00,00,00,00,00 55 HD, DATA FE,86,42,80,4E,75,20,79,00,00 92.05 DATA 00,FE,34,30,00,06,30,30,01,21 
A9 a} | DATA 00,02,00,00,00,00,00,00,00,01 56 bd DATA 34,3E,43,F9,00,00,34,98,4,AE 93 85 DATA 3E,30,00,29,4E,89,00,00,04,88 
20 UB DATA 00,00,0R,14,00,00,01,00,00,00 5771 DATA FF,34,23,FC,00,00,38,08,00,00 9% ad Data 22,79,00,00,34,66,30,30,00,10 
Al gb DATA 03,59,00,00,0F,14,4E,F9,00,00 58 CL DATA 34,90,22,79,00,00,34,66,30,30 95 NP DATA 4E,AE,FE, AA, 22,79,00,00,34,66 
3292, DATA 2B,94,20,78,00,04,43,#9,00,00 59 Ps, DATA 00,10,4E,AB, FE, AA, 22,79,00,00 96 pl DATA 30,30,01,00,32,30,00,08,34,30 
23 W6 DATA 3B,30,42,80,42,AE, FD,D8,23,00 60 65. DATA 34,66,42,80,42,81,34,30,00,E0 97 w5. DATA 01,1F,36,30,00,27,4E,AE,FE,CE 
a4 Sy DATA 00,00, 34,38,43,F9,00,00,3B,41 61 WD DATA 36,30,00,E0,4E,AB,FE,CE,22,79 98 I4 DATA 48,F9,00,00,32,AE,30,30,00,10 
25 au DATA 42,80,4E,AE,FD,D8,23,00,00,00 62 DA DATA 00,00,34,66,30,30,00,02,48,AE 99 4P. DATA 30,06,22,79,00,00,31,66,48,AE 
26 64 DATA 31,42,43,#9,00,00,38,4D,42,80 6309 DATA FE,AA,22,79,00,00,3,66,42,80 100 Jx, DATA FE,AA,30,10,32,1D,34,10,36,1D 
27 6p DATA 4E,AE,FD,D8,23,00,00,00,34,46 Gh Ri DATA AE,AE,FE,A4,22,79,00,00,34,66 101 Xu DATA 22,79,00,00,34,66,4E,AR, FE,CE 
28N4 | DATA 48,75,20,78,00,04,22,79,00,00 68 3K DATA 10,30,00,00,4E,AE,FE,9E,42,86 102 11 DATA D6,7C,00,01,BC 

29 D7 DATA 34,3E,4E,AE,FE,62,22,79,00,00 66 HI DATA 22,79,00,00,34,66,33,46,00,24 103 KE DATA 30,30,00,02,38, 

30.10 DATA 34,42,4E,AE,FE,62,22,79,00,00 67 mW DATA 33,70,00,00,00,26,30,06,32,30 104 14; DATA 00,87,30,3C,00,18,38,30,00, 79 
AU BP DATA 34,46, 4E,AE,FE,62,4E,75,20,79 68 xl DATA 00,E0,4E, AB, FF,0A,22,79,00,00 105 ke DATA 42,59,00,00,04,88,30,30,00,0% 
32 KH DATA 00,00,34,46,48,AE,FR,B2,41,F9 63 DZ, DATA 34,66,33,7C,00,00,00,24,33,46 306 Zk DATA 38,30,00,0E,34,30,00,86,30,30 
33 gd DATA 00,00,20,46,4E,AE,FR,34,23,00 70. #0, DATA 00,26,30,3C,00,E0,32,06,48,AE 107 04 DATA 00,10,3E,30,00,FA,4E,59,00,00 
AL OP DATA 00,00,2D,84,23,00,00,00,2D,84 BR DATA FF,OA,DO,70,00,07,B0,70,00,E7 108 Ub. DATA 04,88,20,79,00,00,34,46,20,79 
38 @% DATA 23,C0,00,00,2D,E4,41,#9,00,00 72 94, DATA 66,02,22,79,00,00,34,66,30,30 109 WR. DATA 00,00,34,66,43,F9,00,00,34,36 
36 PL DATA 2D,66,48, AE,FF,34,23,C0,00,00 73. CR, DATA 00,04,4£, AR, FE,AA,22,79,00,00 110m DATA 30,30,01,09,32,30,00,90,4E,AE 
30 to DATA 34,52,20,40,4E,AR,FE,D4,23,00 7k 20, DATA 31,66,33,70,00,70,00,24,33,70 ilı TE DATA FF,8E,43,F9,00,00,34,FE,20,79 
38.0K, DATA 00,00,34,62,20,79,00,00,3A,52 75 X DATA 00,01,00,26,30,30,00,70,32,30 12 D2. DATA 00,00,34,66,30,30,01,00, 32,30 
3943. DATA 23,28,00,32,00,00,34,66,23,28 16 83, DATA 00,DF,4E, AE,FF,0A,22,79,00,00 113 Ue DATA 00,66,4E,AE, PF,BE,43,F9,00,00 
AD ES} DATA 00,32,00,00,34,6E,20,68,00,32 m dG DATA 3A,66,33,70,00,01,00,24,33,7C Ul4 an DATA 35,98,20,79,00,00,34,66,30,30 
Mi/ge DATA 23,E8,00,04,00,00,34,54,20,79 78%, DATA 00,70,00,26,30,30,00,DF,32,3C 115 #4 DATA 00,F8,32,30,00,B0,4E,AE, FR, 8E 
ka, DATA 00,00,34,3E,20,79,00,00,34,62 79 0 DATA 00,70, 48, AB, FF,0A,22,79,00,00 116 NL Data 43,F9,00,00,35,06,20,79,00,00 
43. vl, Dana 43,F9,00,00,32,68,30,30,00,20 80 BR DATA 34,66,30,30,00,01,4E,AE,FE,AA 17 92, DATA 38,66,30,30,00,FB,32,30,00,E2 
Ah Zu DATA 4E,AR,FF,40,20,79,00,00,38,46 81.08 DATA 22,79,00,00,34,66,30,30,00,E1 118 Di DATA 4E,AE,FF,8E,4B,F9,00,00,3B,5F 
49, oB) DATA 4EJAE,FE,80,48,75,20,79,00,00 BB EL DATA 42,81,34,30,01,3,36,30,00, FF 119 Rn DATA 34,30,00,04,30,30,00,E8, 32,30 
A6 KU) DATA 34,46,20,79,00,00,38,52,4E,AE &3UR DATA AE,AE,FE,CE,22,79,00,00,34,66 120. Qd DATA 00,54,42,89,00,00,04,18, 4,9 
kp Qu, DATA FF,B8,20,79,00,00,2D,84,4E,AE SA 8H DATA 30,30,00,00,32,30,00,E1,34,30 321 Ts, DATA 00,00,38,74,34,30,00,03,30,30 
48/63, DATA FF,BE,ZE,AE,FF,2E,4E,75,20,78 85 d1 DATA 00,E1,36,30,00,FF,4E,AE,FE,CE 222 E1 DATA 01,03,38,30,00,02,4E,B9,00,00 
49 2p, DATA 00,04,93,09,4E,AE,FE,DA,28,40 &60€ DATA 22,79,00,00,34,66,30,30,00,02 123 54 DATA 04,18,48,#9,00,00,38,69, 34,30 
50/$Z) DATA 4A,AC,00,AC,66,00,00,18,41,EC 87 EH DATA 4E,AE,FE,A4,22,79,00,00,34,66 224 yj DATA 00,05,30,30,00,FB,3E,3C,00,DE 
SL/PR| DATA 00,50,4E, AE,FE,80,41,20,00,50 88/32 DATA 30,30,00,01,4E,AE,FE,A4,30,3C 125 21 DATA 4E,59,00,00,04,18,4E,89,00,00 


GRAFIK 


keit mit der Maus verändert 
werden kann. Die Zahl zwi- 
schen den Pfeilen gibt die Ge- 
schwindigkeit in Y%0o-Sekunden 
an. 
Haben Sie Ihre Arbeit been- 
det und wollen den Editor ver- 
lassen, bewegen Sie die Maus 
in die rechte obere Bildschirm- 
ecke und drücken den rechten 
Mausknopf. 

Nun steht dem munteren Er- 
stellen von Sprites und Anima- 
tionssequenzen nichts mehr im 
Wege. Grenzen für neue Objek- 
te setzt nur die eigene Kreativi- 
tät — und davon haben Amiga- 
Besitzer, wie wir wissen, eine 
ganze Menge. 


Michael Bertsch/C. Ewald/ 
M. Jobst/kn 


,70,00,20,66,D8 
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>) DATA 22,79,00,0 


ki DATA FE,BO, 


DATA 05,02,45,75,20,79,00,00,34,3E 
DATA 22,79,00,00,38,68,33,46,00,24 
Data 33,47,00,26,30,30,00,01,4E,AE 
DATA FE,98,22,79,00,00,34,6E,42,80 
DATA 4E, AB, FB, AA,22,79,00,00,34,6E 


a6) DATA 20,4D,30,05,4E,AE,FF,C4,22,79 


DATA 00,00, 34,6E,D0,70,00,01,DE,7C 
DATA 00,01,33,46,00,24,33,47,00,26 
DaTa 42,80,4E, A, FE,9E,22,79,00,00 
DATA 3A,6E,30,30,00,03,4E,AE,FE,AA 
DATA 22,79,00,00,34,6E,20,4D, 30,05 
DATA 4E,AB, FF,C4 ,4E,75,20,79,00,00 


07 DATA 3A,3E,22,79,00,00,3R,62,42,AE 


DATA FE,AA,22,79,00,00,34,68,33,44 
DATA 00,24,33,45,00,26,30,06,32,05 
DATA 4, AB, FR,04,22,79,00,00,38,6E 
DATA 30,06,32,07,48, AE,FR,04,22,79 
) DATA 00,00, 31,6E,30,04,32,07,4E,AE 
DATA FF,0A,22,79,00,00,34,6E,30,04 
DATA 32,05,4E,AE,FF,OA,4E,75,42,87 
DATA 41,F9,00,00,32,AE,30,18,32,18 
DATA 34,18,36,18,B0,45,62,00,00,14 
DATA 02,46,62,00,00,14,B4,45,65, 
DATA 00,0E,B6,46,65,00,00,08,4E, 
DATA 00,00,05,20,DE,7C,00,01,BE,, 
| DATA 00,10,66,D0,08,39,00,06,00,, 
Ü DATA E0,01,67,F6,60,00,26,FE,23, 
DATA 00,00,34,66,00,00,34,6E,33,07 
>. DATA 00,00,34,74,38,39,00,00,34,72 
DATA CE, FC, 00,08,28,47,D9,FC,00,00 
DATA 32, AE,61,00,00,62,61,00,00,68 
DATA 30, 30,00,01,61,00, FF,38,61,00 
DATA 00,50,30,30,00,01,61,00,FF,20 
DaTn 42,87,35,39,00,00,34,74,33,07 
DATA 00,00,34,72,CE,FC,00,08,28,47 
| DATA D9,F0,00,00,32, AE,61,00,00,20 
| DATA 61,00,00,32,30,30,00,02,61,00 
DATA FR,02,61,00,00,26,30,30,00,04 
DATA 61,00, FE, F6,61,00,00,20,08,39 
DATA 00,06,00,BF,E0,01,67,P6,60,00 
DATA 26,78,38,10,34,10,30,10,3E,1C 
DATA 48,75,98,70,00,01,94,70,00,01 
DATA DO, 70,00,01,DE,70,00,01,48,75 
DATA 42,80,30,39,00,00,34,72,00, FC 
DATA 00,02,22,40,D3,FC,00,00,32,8E 
DATA 30, 11,38,00,61,00,00,48,13,C0 
DATA 00,00, 38,72,30,07,EB,48,61,00 
DATA 00,34, 13,00,00,00,38,70,30,07 
DATA E0,48,61,00,00,20,13,C0,00,00 
DATA 38,65, 4B,F9,00,00,35,6E,34,3C 
DATA 00,06,30,30,00,FB,3E,3C,00,F2 
DATA 23, F9,00,00,34,66,00,00,3A,6E 
DATA 4E,B9,00,00,04,18,48,75,00,7C 
3) DATA 00,0F,D0,7C,00,30,B0,70,00,34 

DATA 65,00,00,06,D0,70,00,07,4E,75 
DATA 20,79, 00,00,34,3E, 84, FC,00,07 
DATA 80,F0,00,07,04,B0,00,00, FF, FF 
DATA CG,BC,00,00,FF,FF,20,05,22,06 
DATA CO,FC,00,07,02,F0,00,07,D0,7C 
DATA 00,01,D2,70,00,01,34,00,36,01 
DATA D4,70,00,05,D6,7C,00,05,48,E7 
; DATA F0,00,30,39,00,00,34,72,D0,7C 
DATA 00,10,22,79,00,00, 34,66, 4E,AE 
DATA FE,AA,22,79,00,00,34,66,40,DF 
DATA 00, 0F»4E,AE, FE, CE,43,F9, 00,00 
DATA 34,98,30,39,00,00,34,72,D0,7C 


ni, DATA 00,10,4E, AB,FE,AA,43,F9,00,00 


DATA 3A,98,30,05,32,06,4E,AE,FE,BC 
,66,30,05,32,06 
70, 00,08, 4E,AE 
Er 


0,38, 

DATA DO, 70,01,00,02,7C 
175,42,87,41,#9,00,00 
18,32,18, 

0,00, 


S5R 


|| DATA 33,2E, »18,34,18,36,18 
>) DATA B0,45,62, „14,82,46,62,00 
) DaTa 00,14,B4,45,65,00,00,0E,B6,46 
DATA 65,00,00,08,4E,F9,00,00,07,14 
DATA DE,70,00,01,BE,70,00,16,66,D0 
DATA 08,39,00,06,00,BF,E0,01,67,F6 
DATA 60,00,25,04,0E,FC,00,04,20,47 
DATA D1,F0,00,00,33,DE,22,50,4E,D1 
DATA 08,39,00,06,00,BF,20,01,67,F6 
DATA 23,F9,00,00,34,66,00,00,34,6E 
DATA 60,00, 24,D6,00,79,00,01,00,00 


29; DATA 34,70,67,00,01,84,20,73,00,00 


DATA 3B,10,61,00,00,26,20,79,00,00 


DATA 3B,14,61,00,00,10,20,79,00,00 
DATA 3B,18,61,00,00,12,20,73,00,00 
DATA 3B,10,61,00,00,08,61,00,20,2E 
DATA 60, AE,2E,28,00,70,24,48,22,48 
DATA D3,F0,00,00,00,80,D1,F0,00,00 
DATA 00,70,20,30,00,00,00,1E,23,20 
DATA 51,08, FF, FC, 24,87,42,75,00,79 
DATA 00,01,00, 00, 34,70,67,00,01,78 
DATA 20,79,00,00,35,10,61,00,00,28 
DATA 20,79,00,00,38,14,61,00,00,1E 
DATA 20,73,00,00,3B,18,61,00,00,14 
DATA 20,73,00,00,3B,10,61,00,00,0A 
DATA 61,00,1F,00,60,00,FF,50,22,10 
DATA 24,48,22,48,D1,FC,00,00,00,04 
DATA 20,3C,00,00,00,1E,22,D8,51,08 
DATA FF,FC,25,47,00,70,48,75,00,79 
DATA 00,01,00,00,34,7C,67,00,01,6E 
DATA 20,79,00,00,3B,10,61,00,00,28 
DATA 20,79,00,00,38,14,61,00,00,1E 
DATA 20,79,00,00,3B,18,61,00,00,14 
DATA 20,79,00,00,35,1C,61,00,00,0A 
DATA 61,00,1F,76,60,00, FE, P6,20,3C 
DATA 00,00,00,1F,22,10,E2,99,20,C1 
DATA 51,08, FF,F8,4E,75,00,79,00,01 
DATA 00,00,34,7C,67,00,01,62,20,79 
DATA 00,00,38,10,61,00,00,28,20,79 
DATA 00,00,38,14,61,00,00,1E,20,79 
DATA 00,00,38,18,61,00,00,14,20,79 
DATA 00,00,38,10,61,00,00,04,61,00 
DATA 1F,28,60,00, FE,A8,20,30,00,00 
DATA 00,1F,22,10,83,99,20,C1,51,C8 
DATA FF,F8,4E,75,00,79,00,01,00,00 
DATA 34,70,67,00,01,54,20,79,00,00 
DATA 34,46,20,79,00,00,34,66,43,F9 


| DATA 00,00,34,94,20,3C,00,00,01,09 


DATA 22,3C,00,00,00,50,4E,AE,FF,8E 
DATA 33,FC,00,01,00,00,34,70,60,00 
DATA FE,5C,20,79,00,00,35,10,61,00 
DATA 00,28,20,79,00,00,38,14,61,00 
DATA 00,1E,20,79,00,00,38,18,61,00 
DATA 00,14,20,79,00,00,38,10,61,00 
DATA 00,04,61,00,1E,AC,60,00, FE,2C 
DATA 24,48,22,48,D3,FC,00,00,00,40 
DATA D1,FC,00,00,00,44,20,3C,00,00 


DATA 00,0F,22,D8,51,08,FF,RC,42,AA 
DATA 00,70,4E,75,20,79,00,00,3B,10 
DATA 61,00,00,28,20,79,00,00,3B,14 
DATA 61,00,00,1E,20,73,00,00,3B,18. 
DATA 61,00,00,14,20,79,00,00,3B,1C 
DATA 61,00,00,04,61,00, 

DATA FD,DA,24,48,22, 


DATA 00,30,D1,F0,00, ‚so 

DATA 00,00,00,0F,21,21,51,C8, FF, FC 
Dara 42,92,48,75,20,79,00,00, 

DATA 61,00,00,28,20,79,00,00,3B,14 
DATA 61,00,00,1E,20,79,00,00,3B,18 
DATA 61,00,00,14,20,79,00,00,3B,10 
DATA 61,00,00,04,61,00,18,04,60,00 
DATA FD,84,20,30,00,00,00,1#,22,10 
DATA 83,49,20,01,51,08, FF,P8,4E,75 
DATA 20,79,00,00,38,10,61,00,00,28 
DATA 20,79,00,00,38,14,61,00,00,1E 
DATA 20,73,00,00,38,18,62,00,00,14 
DATA 20,79,00,00,38,10,61,00,00,0A 
DATA 61,00,1D,C8,60,00,FD,48,20,3C 
DATA 00,00,00,17,22,10,48,41,E2,49 
DaTa 48,41,20,C1,51,08, FR,P4,4E,75 
DATA 20,79,00,00,34,46,20,79,00,00 
DATA 34,66,43,9,00,00,34,36,20,3C 
DATA 00,00,01,09,22, 30, 00,00,00,50 
DATA 4E,A, FF,8E,33, 0, 00,00,00,00 
DATA 34,7C,60,00, FD, 04,41,#9,00,00 
DATA 2D,96,2C,73,00,00,34,46,4E,AE 
DATA FF,34,23,00,00,00,38,56,67,00 
DATA FC,EA,20,40,23,E8,00,32,00,00 
DATA 34,64,22,68,00,32,30,3C,00,01 
DATA 20, 79,00, 00,34, 3E,4E,AE,FE,AR 
'ATA 22,79,00,00,38,64,30,30,00,01 
DATA 4E,AR,FE,A4,22,79,00,00,38,68 
DATA 30,30,00,00,32,30,00,00,34,3C 
DATA 00,DF,36,30,00,DF,4E,AB,FE,CE 
DATA 23,#9,00,00,34,64,00,00,34,6E 
DATA 45,#9,00,00,3B,77,38,30,00,05 
DATA 3C,3C,00,5C,38,30,00,58,42,39 


DATA 00,00,04,18,48, #9, 00,00,38,7C 
DATA 34,30,00,09,30,30,00,40,38,3C 
DATA 00,60, 4E,B9,00,00,04,18,4B,F9 
DATA 00,00,30,13,34,30,00,07,30,36 
DaTa 00,54,3E,30,00,7R,4E,B9,00,00 
DaTa 04,18,30,30,00,02,38,30,00,46 
DATA 34,30, 00,50,30,30,00,9A,3E,3C 
DATA 00,60,48,59,00,00,04,88,30,3C 
DATA 00,02,38,30,00,46,34,30,00,62 
DATA 30,30,00,94,3E, 30,00,72,45,B9 
DATA. 00,00,04,88,30,30,00,02,38,30 
DATA 00,46,38,30,00,74,30,30,00,9% 
DATA 3E,30,00,84,4E,B9,00,00,04,88 
DATA 08,39,00,06,00,BF,20,01,67,76 
DATA 08,39,00,06,00,BF,E0,01,66,16 
DATA 22,79,00,00,34,56,34,29,00,0E 
DATA 30,29, 00,00 ,BA, 70, 00,46,65, 00 
DATA 00,18,20,70,00,50,65,00,00,16 
DATA BA,70,00,94,62,00,00, 05,50, 70 
DATA 00,60,62,00,00,06,60,00,00, 52 
DATA B4,70,00,46,65,00,00, 1E,BC,7C 
DaTa. 00,62,65,00,00,16,34,70,00,94 
DATA 62,00,00,0E,B0,7C,00,72,62,00 
DATA 00,06,60,00,04,F4,BA,70,00,46 
DATA 65,94,B0,7C,00,74,65,94,BA,70 
DATA. 00,94,62,8E,80,70,00,84,62,88 
DATA 20,79, 00,00,34,46,20,79,00,00 
DATA 34,56, 4E, AE,FF,B8,60,00, FB, 70 
DATA 2C,79,00,00,34,46,20,79,00,00 
DATA 34,56,4E, AB, FR,B8,20,79,00,00 
DATA 34,62,30,30,00,1#,32,30,00,0D 
DATA 34,01,36,01,20,79,00,00,34,3E 
DATA 4E, AB, FE,E0,20,79,00,00,34,62 
DATA 30,30,00,18,32,30,00,03,34,01 
DATA 36,01,4E, AB, FE,EO,20,79,00,00 
DATA 34,46,23,F0,00,00,2D,R6, 00,00 
DATA 2D,h8,41,F9,00,00,2D,96,4E, AE 
DATA FP,34,23,00,00,00,34,56,20,40 
DATA 23,588,00,32,00,00,34,61,23,EB 
DATA 00,32,00,00,34,6E,22,68,00,32 
DATA 30,30,00,01,20,79,00,00,34,3E 
DATA 4E,AE, FE, AA,22,79,00,00,3h,6A 
DATA 30,30,00,01,4E, AB, FE,A4,22,79 
DATA 00,00,34,64,30,30,00,00,32,30 
DATA 00,00,34,30,00,DF,36,30,00,54 
DATA 4E,AE, FE,CE,22,79,00,00,34,6A 
DATA 30,30,00,00,32,30,00,55,34,30 
DATA. 00,5D,36,30,00,61,4E,AB, F,CE 
DATA 22,79,00,00,3,64,30,30,00,81 
DATA 32,30,00,55,34,30,00,DP,36,3C 
DATA 00,61,4E,AE, FE, CE,22,79,00,00 
DATA 3A,64,30,30,00,00,32,30,00,61 
DATA 34,30,00,DF,36,30,00,72, 4E, A 
DATA FE,CE,22,79,00,00,34,64,30,30 
DATA 00,00,32,30,00,73,34,30,00,24 
DATA 36,30,00,7F,4E, AB, FR, 0, 22,79 
DATA 00,00,34,6A,30,30,00,B8,32,30 
DATA 00,73,34,30,00,DF,36,30,00,7F 
DATA 4E, AE, FE, 0E,22,79,00,00,34,6A 
DATA 30,30, 00,00,32,30,00,7F,34,30 
DATA 00,DF,36,30,00,DR,4E,AB, FE, CE 
DATA 4B,F9,00,00,3B,85,34,30,00,11 
DATA 30,30,00,27,3E,30,00,4F,48,59 
DATA 00,00,04,18,4B,F9,00,00,38,96 
DATA 34,30,00,09,30,30,00,27,38,30 
DATA 00,6B,4E,59,00,00,04,18,4B, FO 
DATA 00,00,38,9F,34,30,00,06,30,30 
DATA 00,58,35,30,00,91,4E,B9,00,00 
DATA 04,18,30,30,00,02,38,30,00,54 
DATA 34,30,00,87,30,30, 00,80, 38, 30 
DATA 00,96, 45,B9,00,00,04,88,30,39 
DATA 00,00,2E,82,08,00,00,07,66,00 
DATA 00,36,08,39,00,06,00,BF,E0,01 
DATA 66,E8,22,79,00,00,34,56,34,29 
DATA 00,0,30,29,00,00,BA,70,00,54 
DATA 65,D4,50,70,00,87,65,0E,BA,7C 
DATA 00,80,62,08,B0,70,00,96,62,02 
DaTa 60,00, 00,0E,30,39,00,00,25,82 
DATA 08,00,00,07,66,F4,00,B9,00,00 
DATA. 00,00,00,00,2,62,66,00,00,00 


Listing 1. (Fortsetzung) 
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walten und ER lassen wie Zahlen und Texte - Briefmarkensammier zum Beispiel ö 
die digitalisierten Abbilder ihrer Schätze mit den zugehörigen Daten auf den Monitor bringer 
System ist relational; Sie können also Einträge verschiedener Datenbanken miteinander ve 

Die Daten lassen sich als Formular oder Liste auf dem Bildschirm oder Drucker ker" 
also die Zeit des Chaos in Platten-, Dia- oder anderen Sortimenten! 


Hardw: Anlordetunger Amiga 500, 1000, 2000 mit mind« 


regen 2 Amiga (deutsch) 


der Ren 


eine unbegrenzte Anzahl gei er Ein- oder Aus 
die Sie sich am Bildsel Weitere Leistungs‘ 

ert, S rbare Masken, Etikettendrui 
9, 1000 512 IM (empfohlen 1 


Markt&Technik 


Markt& Technik-Bücher und -Software erhalten Sie bei chr Büche 
Ihrem Buchhändler, in Computerfachgeschäften rSissuiSuElslissSgilt 
und in den Fachabieilungen der Warenhäuser Software - Schulung 


374 KO 
375 IR 
318 KL 
ar eı 
378 18: 
379 0E 
30 
382 y& 
382 m. 
383 Ni 
38, 
389.68 
386 K. 
387 %5 
388 pv 
389 1 
390 sp 
391 xu 
392 Iy 
393 80 
394 13 
395 ha 
36 no 
397 51 
398 2 
399 38 
400 di 
401 ys 
ho2 eV 
403 25 
404 a0. 
405 o7 
406 14 
407 pn 
N) 
409 88 
40 va 
„a 10 
412 6F 
3 v0 
Aids EN 
15 0b 
416 Bk 
417 SE 
418 04 
419 4% 
heO eu 
ar u 
#22 50 
ea 1, 
424 sb 
has #8 
426 5H 
A27 au 
428 28 
429. 08, 
430 wı 
4a hy 
432 61 
433) 00 
434 34 
435 04 
436 im 
437 36 
438 ik 
433 A 
440 Pu. 
BEA NE 
dba Tu 
wa 
hkd 0 
dis 38 
46 ge 
HUT EX 
HAB AP 
HEN 
450 0 
B54 HE 
452 ya 
453.06 
454 59 
453 ti 
456 oE 
457 


DATA 23,0,00,00,00,01,00,00, 22,82 
DATA 2C,79,00,00,34,46,20,72,00,00 
DATA 34,56,4E,AB,FF,B8,23,F0,00,00 
DATA 00,00,00,00,2D,48,20,79,00,00 
DATA 3A,32,20,79,00,00,38,62,43,9 
DATA 00,00,32,6E,30,30,00,20,42,AE 
DATA FF,40,20,79,00,00,32,42,24,3C 
DATA 00,00,03,ED,22,30,00,00,28,EA 
DATA AE, AB, FF,E2,23,00,00,00,34,86 
DATA 67,00,01,06,22,00,26,30,00,00 
DATA. 00,04,24,30,00,00,00,00,4E,AE 
DATA FR,D6,67,00,00,00,00,89,41,4F 
DATA 45,20,00,00,00,00,66,00,00,F6 
DATA 22,39, 00,00,34,86,26,30,00,00 
DATA 00, 02,24,30,00,00,00,04,4E,AR 
DATA FF,D6,67,00,00,84,20,39,00,00 
DATA 22,62,D0,79,00,00,00,04,50,89 
DATA 00,00,34,78,62,00,00,85,22,39 
DATA 00,00,34,86,26,30,00,00,00,20 
DATA 24,30,00,00,32,82,4E,AE,FP,D6 
DATA 67,00,00,74,42,82,24,39,00,00 
DATA 25,62,94,B0,00,00,00,01,C4, FC 
DATA 02,80,D4,89,00,00,34,44,42,83 
DATA 36,39,00,00,00,04,06,FC,02,80 
DATA 22,39,00,00,34,86,4E,AE,FF,D6 
DATA 67,00,00,42,4E,B9,00,00,24,F2 
DATA 20,79, 00,00,34,35,20,79,00,00 
DATA 34,62,43,F9,00,00,32,6E,30,3C 
DATA 00,20,4E,AE, FF,40,42,29, 00,00 
DATA 27,46,4E,B9,00,00,05,02,20,79 
DATA 00,00,34,42,22,39,00,00,34,86 
DATA AR, AE, FF,DC,60,00,78,24,20,79 
DATA. 00,00,2D,B4,20,79,00,00,34,46 
DATA AE, AE,FF,A0,20,79,00,00,38,42 
DATA 22,39,00,00,34,86,4E,AB,FR,DC 
DATA 60,00, 8,06,20,79,00,00,2D,34 
DATA 2,79,00,00,34,46,4E,AE,FF,A0 
DATA 60,00,F7,F2,00,B9,46,4F,52,4D 
DATA 00,00,00,00,66,BC,22,39,00,00 
DATA 34,86, 26,30,00,00,00,04,24,3C 
DATA 00,00,00,00,4E AB, FF,D6,67,A4 
DATA 00,B9,00,00,04,00,00,00,00,00 
DATA 64,98,22,39,00,00,34,86,26,3C 
DATA 00,00,04,00,24,30,00,00,00,00 
DATA 4E, A, FP,D6,41,79,00,00,00,00 
DATA 20,18,B0,50,49,40,42,4D,66,00 
DATA FF,72,20,18,B0,B0,42,4D,48,44 
DATA 67,00,00,32,B1,FC,00,00,04,00 
DATA 66,EC,60,00,FF,5A,20,18, 

DATA 43,4D,41,50,67,00,00, 
DATA 00,00,04,00,66,EC,60,, 
DATA 20,18,80,80,42,4F 
DATA 00,64,B1,FC, 00,00 2 
DATA 60,00, FF,24,D1,FC,00,00,00,04 
DATA 20,18,B0,B0,00,20,00,20,66,00 
DATA FF,18,D1,F0,00,00,00,04,10,18 
DATA 50,30,00,04,66, 00, FF,08,D1,FC 
DATA 00,00,00,03,60,46,D1,FC,00,00 
DATA 00,04,43, 9,00, 00,32,8E,20,30 
DATA 00,00,00,07,42,41,42,42,12,18 
DATA E9,49,84,41,42,41,12,18,84,41 
DATA 42,41,12,18,E8,49,84,41,32,02 
DATA 51,08, FF,E4,60,80,D1,FC,00,00 
DATA 00,04,20,39,00,00,22,62,90,BC 
DATA 00,00,00,01,00,FC,02,80,D0,39 
DATA 00,00,34,44,22,40,24,40,26,40 
DATA 28,40,D5,F0,00,00,00,80,D7, FC 
DATA 00,00,01,00,09,FC,00,00,01,80 
DATA 20,30, 00,00,00,1F,22,D8,24,D8 
DATA 26,08, 28,D8,51,08,FF,F6,60,00 
DaTA FE,42,20,79,00,00,34,46,20,73 
DATA 00,00, 38,56,4E,AB,FF,58,20,79 
DATA 00,00, 3,62,30,30,00,1R,32,3C 
DATA 00,0D,34,01,36,01,20,79,00,00 
DATA 3,38, 48, AE, FE,20,20,79,00,00 
DATA 34,62, 30,30,00,28,32,30,00,03 
DaTa 34,01,36,01,4E,AE,FE,EO,20,79 
DATA 00,00, 3,46,23,F0,00,00,2F,3E 
DATA 00,00, 2D,A8,41,79,00,00,20,% 
DATA 4E,AE, FF,34,23,00,00,00,32,56 
DATA 20,40,23,E8,00,32,00,00,34,64 
DATA 23,28, 00,32,00,00,34,6E,22,68 
DATA 00,32,30,30,00,01,20,79,00,00 
DATA 34,32, 48,AE,FE,AA, 22,79, 00,00 
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DaTa 34,62,30,3C,00,01,4E,AE,FE,A4 
DATA 22,79,00,00,34,62,30,30,00,00 
DATA 32,30,00,00,34,30,00,D7,36,3C 
00,54, 4£, 
34,68,30,30,00,00,32,30,00,55 
34,30, 00,35,36,30,00,61,4E,AE 

CE,22,79,00,00,38,64,30,3C 
00,59,32,3C,00,55,34,30,00,85 
36,30,00, 61,48, A, FE,CE,22,79 
00,00, 38,68, 30,30,00,49,32,3C 
00,55,34,30,00,D7,36,30,00,61 
4E,AE,FE, CE,22,79,00,00,34,64 
30,30,00,00,32,30,00,61,34,30 
00,D7,36,30,00,72,2E,AE, FE,CE 
DATA 22,79, 00,00, 34,64,30,3C,00,00 
DATA 32,30,00,73,34,30,00,1D, 36,30 
DATA 00, 7,42,AE, 72, CE,22,79,00,00 
DATA 34,64, 30,30, 00,B1,32,30,00,73 
DATA 34,30,00,D7,36,30,00,7,4E,AE 
DATA FE,0CE,22,79,00,00,34,64,30,30 
DATA 00,00,32,30,00,7,34,30,00,DF 
DaTa 36, ‚4E,AB,FE,CE,2B,F9 
DATA 00,00,38,45,38,30,00,14,30,30 
DATA 00, 1F,3E,30, 00,4F,4E,29,00,00 
DATA 04,15,43,79,00,00,38,B9,34,3C 
DATA 00,04,30,30,00,5F,3E,30,00,5D 
DATA 42,59, 00,00,04,18,4B,9,00,00 
DATA 3B,96,34,30,00,09,30,3C,00,1F 
DATA 32,30,00,62,42,39,00,00,04,18 
DATA 48,F9,00,00,3B,97,34,30,00,06 
DATA 30,30,00,58,3E,30,00,91,42,39 
DATA 00,00,04,18,30,30,00,02,38,3C 
DATA 00,54,38,3C,00,87,30,30,00,8C 


DATA 38,30,00,96,45,B9,00,00,04,88 
DATA. 30,39,00,00,30,02,08,00,00,07 
DATA. 66,00,00,36,08,39,00,06,00,BF 
DATA 20,01,66,28,22,79,00,00,34,56 
DATA 34,29, 00,08,30,29,00,00,BA,7C 
DATA 00,54,65,D4,BC,70,00,87,65,CE 
DATA BA,70,00,80,62,C8,80,70,00,96 
DATA 62,C2,60,00,00,08,30,39,00,00 
DATA 30,02,08,00,00,07,66,F4,00,B9 
DATA 00,00,00,00,00,00,27,86,66,00 
DATA 00,00,23,FC,00,00,00,01,00,00 
DATA 27,86,20,79,00,00,38,46,20,79 
DATA 00,00,34,56,4E,AE,FF,B8,23,FC 
DATA 00,00,00,00,00,00,2D,8,2C,79 
DATA 00,00,34,32,20,79,00,00,38,62 
DaTa 43,9,00,00,32,68,30,30,00,20 
DATA 4E, A, FR,40,00,B9,00,00,00,00 
DATA 00,00,2F,86,66,00,00,00,23,PC 
DATA 00,00, 00,01,00,00,2F,86,00,29 
DATA. 00,00, 00,00,00,00,2F,E2,66,00 


DATA 00,00,23, FC, 00,00,00,01,00,00 
DATA 20, 39,00,00,2F,86,22,39 
DATA 00,00,2F,E2,B2,80,60,00,00,0E 
DATA 23,C1,00,00,2F,86,23,00,00,00 
DATA 2F,E2,20,39,00,00,34,78,50,29 
DATA 00,00, 2F,E2,65,00,01,04,20,79 
DATA 00,00,34,42,24,30,00,00,03,EE 
DATA 22,30,00,00,2E,EA,4E,AE, FF,E2 
DATA 23,00,00,00,34,86,67,00,00,84 
DATA 23,F0,41,4F,45,20,00,00,00,00 
DATA 22,00,24,30,00,00,00,00,26,3C 
DATA 00,00,00,04,42,AE,FF,D0,67,00 
DATA 00,40,20,39,00,00,2F,E2,90,89 
DATA 00, 00,2F,86,D0,70,00,01,33,C0 
DATA 00, 00,00,00,22,39,00,00,34,86 
DATA 24,30,00,00,00,00,26,30,00,00 
DATA 00,02,4E,AE, FF, D0,67,00,00,70 
DATA 22,39,00,00,34,86,24,30,00,00 
DATA 32,8E,26,30,00,00,00,20,4E,AE 
DATA FF,D0,67,00,00,56,42,B9,00,00 
DATA 25,20,24,39,00,00,2P,86,9%,BC 
DATA 00,00,00,01,C4,FC,02,80,D4,E9 
DATA 00,00,34,24,26,39,00,00,27,22 
DATA 96,39,00,00,2F,86,D6,E0,00,00 
DATA 00,01,06,F0,02,80,22,39,00,00 
DATA 34,86, 4E,AE,FF,D0,67,00,00,16 
DATA 4E,59,00,00,24,F2,22,39,00,00 
DATA 34,86, 4E,AE, FF,DC,60,00,F2, 6 
DATA 20,73,00,00,2D,54,20,73,00,00 
DATA 34,46, 4E,AE,FF,40,20,79,00,00 
DATA 34,42,22,39,00,00,34,86,42,AE 
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DATA FF,D6,60, 00, F2,D2,20,79,00,00 
DATA 2D,84,20,79,00,00,34,46,4E,AE 
DATA FF,A0,60,00,#2,B2,20,79,00,00 
DaTa 34,32,43,79,00,00,34,98,20,3C 
DATA 00,00,00,10,4E,AE,FE,AA,43,79 
DATA 00,00,34,98,42,80,42,81,34,3C 
DATA 00,1F,36,30,00,1F,4E,AE,FE,CE 
DATA 42,29, 00,00,27,46,60,00,F2,88 
DATA 20,79,00,00,38,10,61,00,00,28 
DaTa 20,79,00,00,38,14,61,00,00,1E 
DATA 20,73,00,00,3B,18,61,00,00,14 
DATA 20,79,00,00,35,10,61,00,00,04 
DATA 61,00,12,D8,60,00,F2,58,20,3C 
DATA 00,00,00,1F,22,10,24,10,48,42 
DATA C2,BC,00,00, FF, FF,C4,B0, 00,00 
DATA FF,FF,42,83,42,84,2E,30,00,00 
DATA 00,0F,07,01,67,00,00,10,46,47 
DATA CE,70,00,0F,0F,03,46,47,08,7C 
DATA 00,0F,51,0F,FF,EA,2E,30,00,00 
DATA 00,0F,0R,02,67,00,00,10,46,47 
DATA CE,70,00,0F,0F,04,46,47,0E,7C 
DATA 00,0F,51,0P,FR,EA,48,43,86,84 
DATA 20,03,51,08,FF,A6,4E,75,20,79 
DATA 00,00,32,10,61,00,00,28,20,79 
DATA 00,00,38,14,61,00,00,18,20,79 
DATA 00,00,38,18,61,00,00,14,20,79 
DATA 00,00,38,10,61,00,00,04,61,00 
DATA 12,44,60,00,F1,04,22,48,D3, FC 
DATA 00,00,00,20,20,30,00,00,00,0F 
DATA 22,10,24,21,22,81,20,02,51,08 
DATA FF,F6,48,75,20,79,00,00,3B,10 
DATA 61,00,00,28,20,79,00,00,38,14 
DATA 61,00,00,18,20,79,00,00,38,18 
DATA 61,00,00,14,20,79,00,00,38,10 
DATA 61,00,00,04,61,00,11,F8,60,00 
DATA F1,78,43,F9,00,00,00,00,24,48 
DATA 2C,30,00,00,00,1R,2E,30,00,00 
DATA 00,1F,42,83,20,4A,20,18,0D,00 
DATA 67,00,00,10,46,47,08,70,00,1F 
DATA 0F,03,46,47,CE,70,00,1F,51,0F 
DATA FF,ES,22,03,51,0E,FF,D8,43, 79 
DATA 00,00,00,00,20,44,20,30,00,00 
DATA 00,1F,20,D9,51,08, PR, RO,4E,75 
DATA 20,79,00,00,34,62,30,30,00,1F 
DATA 32,30,00,0D,34,01,36,01,20,79 
DATA 00,00,34,3E,4E,AE,FE,EO,20,79 
DATA 00,00,34,62,30,30,00, 18, 32,30 
DATA 00,03,34,01,36,01,4, AB, FE,EO 
DATA 20,79, 00,00,34,46,23,FC,00,00 
DATA 31,54,00,00,2D,A8,41,F9,00,00 
DATA 2D,96,4E,AB, FF, 34,23,00,00,00 
DATA 3,56,20,40,23,E8,00,32,00,00 
DATA 34,64,23,E8,00,32,00,00,34,6E 
DATA 22,68,00,32,30,30,00,01,20,79 
DATA 00,00,34,3E,4E, AB, FE,AA,22,79 
DATA 00,00,34,64,30,30,00,01,45,AE 
DATA FE,A4,22,79,00,00,34,64,30,30 
DATA 00,00,32,30,00,00,34,30,00,DF 
DATA 36,30, 00,54, 45, AB, FE,CE,22,79 
DATA 00, 00,34,64,30,30,00,00,32,30 
DATA 00,55,34,30,00,39,36,30,00,61 
DATA 4, AR, FE,CE,22,79,00,00,3A,64 
DATA 30,30,00,59,32,30,00,55,34,30 
DATA 00,85,36,30,00,61,4E,AE,FE,CE 
DATA 22,79,00,00,34,64,30,30,00,49 
DATA 32,30,00,55,34,30,00,D7,36,3C 
DATA 00,61,48, AB, FE,0E,22,79,00,00 
DaTa 34,64,30,30,00,00,32,30,00,61 
DATA 34,30,00,DF,36,30,00,68,4E, AE 
DATA FE,CE,22,79,00,00,34,64,30,3C 
DATA 00,00,32,30,00,69,34,30,00,79 
DATA 36,30,00,75,4E,AE,FE,CE,22,79 
DATA 00,00,34,64,30,30,00,90,32,30 
DATA 00,69,34,30,00,DF,36,30,00,75 
DATA 4E, AR, FE,0E,22,79,00,00,3A,6A 
DATA 30,30,00,00,32,30,00,75,34,30 
DATA 00,DP,36,30,00,DP,4E,AE,FE,CE 
DaTa 4B,79,00,00,30,4F,3,30,00,13 
30,30,00,23,32,30,00,4F,4E,29 
00,00,04,18,45,9,00,00,35,B9 
DaTa 34,30,00,04,30,30,00,5F, 35,30 
DATA 00,50,48,59,00,00,04,18,4B,79 
DATA 00,00, 30,62, 34,30, 00,06,30,3C 
DATA 00,3,38,30,00,71,4E,89,00,00 
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DATA 04,18,4B,F9,00,00,3B,97,34,30 
DATA 00,06, 30,30, 00,58,3E,30,00,91 
DATA 4E,59,00,00,04,18,30,30,00,02 
DATA 38,30,00,54,34,30,00,87,30,3C 
DATA 00,80,38,30,00,96,4E,29,00,00 
DATA 04,88,30,39,00,00,32,12,08,00 
DATA 00,07,66,00,00,36,08,39,00,08 
DATA 00,BF,E0,01,66,E8,22,79,00,00 
DATA 34,56,34,29,00,0E,30,29,00,0C 
DATA BA,70,00,54,65,D4,50,70,00,87 
DATA 65,CE,BA,7C,00,80,62,08,80,7C 
DATA 00,96,62,C2,60,00,00,02,30,39 
DATA 00,00,32,12,08,00,00,07,66,F4 
DATA 20,79,00,00,34,46,20,79,00,00 
DATA 34,56,4E, A, FF,B8,23, PC,00,00 
DATA 00,00,00,00,2D,48,20,79,00,00 
DATA 34,3E,20,79,00,00,34,62,43,79 
DATA 00,00,32,6E,30,30,00,20,4E,AE 
DATA FR,40,44,39,00,00,31,A2,62,00 
DATA 00, 00,23, FC,00,00,00,01,00,00 
DATA 31,A2,44,59,00,00,31,FE,62,00 
DATA 00,00,23,FC,00,00,00,01,00,00 
DATA 31, F8,44,59,00,00,32,54,63,00 
DATA 01,00,20,39,00,00,31,A2,D0,B9 
DATA 00,00,32,54,90,50,00,00,00,01 
DATA 80,89,00,00,34,78,62,00,00,EE 
DATA 22,39,00,00,31, FE,D2,B9,00,00 
DATA 32,54,92,8C,00,00,00,01,B2,89 
DATA 00,00,34,78,62,00,00,D2,82,80 
DATA 67,00,00,02,B0,29,00,00,31,FE 
DATA 62,00,00,40,20,39,00,00,32,54 
DATA 00, F0,00,A0,90,80,00,00,00,01 
DATA 22,39,00,00,31,A2,92,BC,00,00 
DATA 00,01,02,F0,02,20,D2,B9,00,00 
DATA 34,44,20,41,22,39,00,00,31, 
DATA 92,80,00,00,00,01,02,F0,02 
DATA D2,B9,00,00,3A,4A,22,41,22 

‚20, 

1, 


DATA 51,08, FF,FC,60,00,00,6£,. 

DATA 00,00,31,42,20,89,00,00,3: 
DATA 62,A8,20,39,00,00,32,54,00,FC 
DATA 00,40,90,50,00,00,00,01,22,39 
DATA 00,00,31,42,D2,89,00,00,32,54 
DATA 92,B0,00,00,00,01,02,F0,02,80 
DATA D2,59,00,00,34,44,20,41,22,39 
DATA 00,00,31,FE,D2,89,00,00,32,54 
Data 92,B0,00,00,00,01,02,F0,02,80 
DATA D2,B9,00,00,34,44,22,41,D1,#C 
DATA 00,00,00,04,D3,FC,00,00,00,04 


DATA 23,20,51,08,FF,FO,4E,B9,00,00 
DATA 27,46,60,00,ED,A0,2C,79,00,00 
DATA 34,46,20,79,00,00,2D,84,4E,AE 
DATA FR,AO,60,00,ED,80,41,F9,00,00 
DATA 2D,96,2C,79,00,00,34,46,4E,AE 


DATA FF,34,44,80,67,00,ED,76,23,C0 
DATA 00,00,34,36,20,40,23,28,00,32 
DATA 00,00,34,64,22,68,00,32,30,3C 
DATA 00,01,20,79,00,00,34,3E,4E,AE 
DATA FE,AA,22,79,00,00,34,64,30,3C 
DATA 00,01,4E,AE, FB, A4,22,79,00,00 
DATA 34,64,42,40,42,41,34,30,00,DF 
DATA 36,30,00,DF,4E,AE, FE,CE,23,79 
DATA 00,00,3&,64,00,00,34,68,4B,F9 
DATA 00,00, 3B,BD,34,30,00,00,30,3C 
DATA 00,40,38,30,00,50,4E,89,00,00 
DATA 04,18,4B,F9,00,00,3B,C9,34,30 
DATA 00, 08,30,30,00,44,3E,30,00,5& 
DATA 42,59, 00,00,04,18,48,F9,00,00 
DATA 3B,D4,3A,30,00,0F,30,30,00,34 
DATA 38,30, 00,69,48,39,00,00,04,18 
DATA 4B,F9,00,00,3B,E3,34,30,00,0F 
DATA 30,30,00,34,35,30,00,73,42,89 
DATA. 00,00,04,18,48,9,00,00,3B,F2 
DATA 34,30,00,11,30,30,00,20,38,3C 
DATA 00,82,42,B9,00,00,04,18,4B,F9 
DATA 00, 00,38,9F,32,30,00,06,30,30 
DATA 00,58,35,30,00,96,42,39,00,00 
DATA 04,18,30,30,00,02,38,30,00,54 
DATA 34,30, 00,80,30,30,00,80,3E,3C 
DATA 00,98,42,29,00,00,04,88,08,39 
DATA 00,06,00,BF,20,01,66,F6,22,79 
DATA 00,00, 34, 56,34,29,00,0E,30,29 
DATA 00,00, BA, 70;00,54,65,E2,B0,7C 
DATA 00,80,65,DC,BA,70,00,80, 62,06 
DATA 20,70, 00,98,62,D0,20,79,00,00 


DATA 34,46,20,79,00,00,34,56,4E,AE 
DATA FF,BS,60,00,80, 38,41,79,00,00 
DATA 2D,96,23,70,00, 00,30, 42,00,00 
DATA 2D,48,20,79,00, 00,34, 46,4E,AE 
DaTa FF,34,23,00,00,00,34,56,20,40 
DATA 23,28,00,32,00,00,38,64,23,28 
DATA 00,32,00,00,34,65,22,68,00,32 
DATA 30,3C,00,01,20,79,00,00,3A,3E 
DATA ZE,AE,FE,AA,22,79,00,00,3A,6A 
DATA 30,30, 00,01,48, AB, FE,a4,20,79 
DATA 00,00,38,62,30,30,00,18,32,3C 
DATA 00,00, 34,01,36,01,20,73,00,00 
DATA 3A,38,4E,AE,F2,E0,20,79,00,00 
DaTa 32,62,30,30,00,18,32,30,00,03 
DaTa 34,01,36,01,42, AE,FE,20,22,79 
DATA 00,00,34,68,30, 30,00, 00,32,3C 
DATA 00,00,34,30,00,DF,36,3C,00,5E 
DATA 4E, AE, FE,CE,22,79,00,00, 33,68 
DATA 30,30,00,00,32,30,00,5F,34,30 
DATA 00,35,36,30,00,6B,4E,AE,FE,CE 
DATA 22,79,00,00,34,64,30,30,00,59 
DATA 32,30,00,57,34,30,00,85,36,30 
DATA 00,65,4E,AE,FE,CE,22,79,00,00 
DATA 34,64,30,3C,00,49,32,30,00,5F 
DaTa 34,30,00,D7,36,30,00,6B,4E,AE 
DATA FE,CE,22,79,00,00,34,64,30,30 
DATA 00,00,32,30,00,68,34,30,00,DF 
DATA 36,30,00,DF,4E,AE,FE,CE,4B,79 
DATA 00,00,30,1,34,30,00,14,30,30 
DATA 00,1F,38,30,00,59,4E,39,00,00 
DATA 04,18,48,F9,00,00,38,89, 3,30 
DATA. 00,04,30,30,00,5F,32,30,00,66 
DATA 4E,89,00,00,04,18,48,P9,00,00 
DATA 35,9P,3A,30,00,06,3C,30,00,58 
TA 32,30,00,70,42,89,00,00,04,18 
DATA 30,30,00,02,38,3C,00,54,34,30 
DATA 00,73,30,30,00,80,38,30,00,82 
DATA 4E,59,00,00,04,88,08,39,00,06 
DATA 00, BF,E0,01,66,76,22,79,00,00 
DATA 34,56,34,29,00,08,30,29,00,0C 
DATA BA,70,00,54,65,E2,50,70,00,73 
DATA 65,DC,BA,70,00,80,62,D6,B0,7C 
DATA 00,82,62,D0,20,79,00,00,34,46 
DATA 20,79,00,00,34,56,4E, FF,B8 
DATA 0C,59,00,00,00,00,00,00,30,EA 
DATA 66,00,00,00,23,FC,00,00,, 0; 0 
DATA 00,00,30,EA,20,39,00,00,. 
DATA B0,59,00,00,30,E4,62,0( 
DATA 23,F9,00,00,34,78,00,00, 
DATA 0C,59,00,00,00,00,00,00,, 
DATA 66,00,00,00,23,FC,00,00 
DATA 00,00,31,46,20,39,00,00,34,78 
DATA 50,89,00,00,31,46,62,00,00,00 
DATA 23,F9,00,00,34,78,00,00,31,46 
DATA 20,39,00,00,30,EA,22,39,00,00 
DATA 31,46,B2,80,64,00,00,0E,23,C1 
TA 00,00,30,24,23,C0,00,00,31,46 
DaTa 23,F9,00,00,30,E4,00,00,3A,8E 
DATA 41,29,00,00,20, 96,23, F0,00,00 
DATA 00,00,00,00,2D,48,20,79,00,00 
DATA 34,46,4E,AE,FF,34,23,00,00,00 
DATA 34,56,20,40,23,28,00,32,00,00 
DATA 34,64,23,E8,00,32,00,00,34,6E 
DATA 22,68,00,32,22,79,00,00,34,64 
DATA 30,3C,00,01,20,79,00,00, 34,38 
DATA 4E,AE, ‚A2,20,79,00,00,34,62 
DATA 43,F9,00,00,32,68,30,30,00,20 
DATA 4E,AE,FF,40,22,79,00,00, 34,64 
DATA 30,30,00,01,4E,AE,FE,A4,22,79 
DATA 00,00, 34,62,30, 30,00, 00,32,3C 
DATA. 00,00, 34,30,00,D7,36,30,00,DF 
DaTa 4E, AE, FE,CE,20,79,00,00, 34,46 
DATA 20,79,00,00,38,68,43,79,00,00 
Data 35,92,30,30,00,58,32,30,00,57 
DATA 42,AE,FF,8E,20,79,00,00,34,3E 
DATA 45,F9,00,00,30,28,34,30,00,0F 
DATA 30,30,00,34,32,30,00,48,42,59 
DATA 00,00,04,18,2B,F9, 00,00,38,9F 
DATA 34,30,00,06,30,30,00,58,32,30 
DATA 00,70, 4E,29,00,00,04,18, 25,9 
DATA 00,00,30,30,34,30,00,03,30,3C 
DATA Den 
DATA 04,18,30,30,00,02,38,30,00 
DATA 34,30,00,73,30,30,00,, Se 


8: 
Bess 


Listing 1. (Fortsetzung) 


DATA 00,82,45,59,00,00,04,88,30,30 
DATA 00,10,22,79,00,00,34,64,4R, AR 
DATA FE,AA,22,79,00,00,34,64,30, 30 
DATA 00,5F,32,30,00,14,34,30,00,7E 
DATA 36,30,00,33,4E,AE, FE, 02, 30,30 
DATA 00,02,38,30,00,5E,34,30,00,13 
DATA 30,30,00,77,3B,30,00,34, 42,89 
DATA 00,00,04,88,30,30,00,03,38,30 
DATA 00,5D,34,30,00,12,3,30,00,80 
DATA 32,30,00,35,45,29,00,00,04,88 
DATA 30,30,00,04,38,30,00,50,38,3C 
DATA 00,11,30,30,00,81,3E,30,00,36 
DATA 4E,39,00,00,04,88,23,F9,00,00 
DATA 35,10,00,00,00,00,23,F9,00,00 
DATA 32,14,00,00,00,04,23,F9,00,00 
DATA 38,18,00,00,00,08,23,F9,00,00 
DATA 38,10,00,00,00,00,23,#9,00,00 
DATA 38,20,00,00,00,10,23,F9,00,00 
DATA 34,92,00,00,34,84,24,70,00,DF 
DATA #0,00,23,F8,00,60,00,00,27,68 
DATA 21,E0,00,00,26,AC,00,60,00,79 
DATA 00,01,00,00,34,96,66,00,00,54 
DATA 20,39,00,DF,F0,04,00,B0,00,01 
DATA FF, 00,50,80,00,01,00,00, 68,0 
DATA 20,79,00,00,34,38,41,F9,00,00 
DATA 38,98,22,79,00,00,34,64,42,80 
DATA 42, 81,24,30,00,00,00,5P,26,30 
DATA 00,00,00,14,28,30,00,00,00,20 
DATA 24, 30,00,00,00,20,20,30,00,00 
DATA 00,00,4E, AB, FD,D8,42,79,00,00. 
DATA 34,96,08,39,00,06,00,BR,E0,01 
DATA 66,98,22,79,00,00,34,56,31,29 
DATA 00,0E,3C,29,00,00,BA,70,00,58 
DATA 65,00, 00, 12,80, 70,00,57,65,00 
DATA 00,16, BA,7C,00,5F,62,00,00,0E 
DATA 50,70, 00,5E,62, 00,00,06,60,00 
DATA 04,06,BA,7C,00,80,65,00,00,22 
DATA 80, 70,00,57,65,00,00,14,BA,7C 
DATA 00,87,62,00,00,12,3C,70,00,5E 
DATA 62,00,00,04,60,00,04,22,60,00 
DATA FR,40,BA,70,00,54,65,00,FF,38 
DATA BC,7C,00,73,65,00,FR,30,BA,7C 
DATA. 00,80,62,00,FF,28,50,70,00,82 
DATA 62,00, FR,20,21,7C,00,DF,F0,00 
DATA 21,9,00,00,27,68,00,60,23,F9 
DATA. 00,00,00,00,00,00,35,10,23,F9 
DATA 00,00,00,04,00,00,38,14,23,19 
DATA 00,00,00,08,00,00,38,18,23,R9 
DATA 00,00,00,00,00,00,38,10,23,F9 
DATA 00,00,00,10,00,00,38,20,20,79 
DATA 00,00,34,46,20,79,00,00,34,56 
DATA 4E,AE,FF,B8,23,F9,00,00,34,66 
DATA 00,00,31,6E,23,F0,00,00,00,00 
DATA 00,00,2D,48,60,00,E6,E6,30,39 
DATA 00,00,34,76,20,7C,00,01,66,00 
DATA 00,06,60,00,E6,D4,04,B9,00,00 
DATA 02,80, 00,00,35,10,04,B9,00,00 
DATA 02,80,00,00,38,14,04,B9,00,00 
DATA 02,80,00,00,38,18,04,B9,00,00 
DATA 02,80,00,00,3B,10,04,89,00,00 
DATA 02,80,00,00,38,20,04,79,00,01 
DATA 00,00,34,76,48,89,00,00,24,42 
DATA 42,29, 00,00,27,46,60,00,E8,84 
DATA 30,39,00,00,34,78,B0,B9,00,00 
DATA 34,78,66,00,00,06,60,00,58,76 
DATA 06,9,00,00,02,80,00,00,3B,10 
DATA 06,29,00,00,02,80,00,00,3B,14 
DATA 06,59, 00,00,02,80,00,00,3B,18 
DATA 06,59,00,00,02,80,00,00, 38,10 
DATA 06,59,00,00,02,20,00,00,3B,20 
DATA 06,79,00,01,00,00,34,76,48,B9 
DATA 00, 00,24,42,48,59,00,00,27,16 
DATA 60,00,86,20,42,80,30,39,00,00 
DATA 34,72,00,FC,00,02,20,40,D1,F0 
DATA 00,00,32,82,30,10,00,70,0F,00 
DATA E0,58,D0,7C,00,01,00,70,00,0F 
DATA E1,58,02,50,00,FF,81,50,4E,B9 
DATA 00,00,27,60,4E,59,00,00,05,02 
DATA 60, 00,25, F0,42,80,30,39,00,00 
DATA 34,72,00,F0,00,02,20,40,D1, FC 
DATA. 00,00,32,8E,30,10,00,70,0F,00 
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875.08 
BTE.ME 
877 Po 
878 DM 
879 th 
880 1y 
81 dc 
882 ur 
883 v5 
‚BBd N! 
885 20 
886 14 
887 08 
88.00 
889 bB 
890 Rn 
91 au 
892 Du 
893 IL 
894 
89 ıh 
896. 0D 
897 iv 
898 3) 
89 8 
300 be 
1 vo 
902 ID 
903 4% 
‚904 Br 
905 KT 
‚906 59 
907 vv 
908 nr 
909 16 
910 90 
op 
912 Dn 
913 0 
914 #8 
915 DW 
916. KE 
917 n& 
Ne 1g 
919.06 
920 75 
921 a0 
92219 
IQ 
EN 
925 18 
326 16 
927 eu 
928 KV 
929 Da 
930 Wt 
331 5X 
932 pv 
933 FP 
994 x 
935 Bt 
936 IE 
337 oR. 
938 DO 
939 98 
940, wı 
‚941 Pa 
2 ah 
943 9A 
a3 
945 DE 
46 X0 
AT 
948 X 
949 AG 
950 b2 
951 Ep 
952 ev 
953 20 
954 9P 
955 a1 
956 vp 
957 08 
958 4 


DATA 20,58,90,70,00,01,C0,70,00,0F 
DATA E1,58,02,50,00, FF,81,50,4,B9 
DATA 00,00,27,6C,4E,B9,00,00,05,02 
DATA 60,00,85,B4,42,80,30,39,00,00 
DATA 34,72,C0,P0,00,02,20,40,D1,F0 
DATA 00,00,32,8E,30,10,C0,70,00,F0 
DATA 18,58,D0,70,00,01,00,70,00,0F 
DATA 29, 58,02,50,0F,0F,81,50,48,B9 
DATA 00, 00,27,60,4,59,00,00,05,02 
DATA 60,00,E5,78,42,80,30,39,00,00 
DATA 3A,72,00,F0,00,02,20,40,D1,FC 
DATA 00,00,32,85,30,10,C0,7C,00,F0 
DATA 38,58,90,70,00,01,C0,70,00,0F 
DATA #9, 58,02,50,0F,0R,81,50,4E,B9 
DATA 00,00,27,60,45,59,00,00,05,02 
DATA 60,00,89,30,42,80,30,39,00,00 
DATA 34,72,00,F0,00,02,20,40,D1,F0 
DATA 00,00,32,88,30,10,00,70,00,0F 
DATA D0,70,00,01,00,7C,00,0R,02,50 
DATA OF, FO,81,50,45,89,00,00,27,6C 
DATA 4E,89,00,00,05,02,60,00, 85,04 
DATA 42,80,30,39,00,00,34,72,00, FC 
DATA 00,02,20,40,D1,RC,00,00,32,8E 
DATA 30,10,00,70,00,0F,90,70,00,01 
DATA 60,70,00,0F,02,50,0F,F0,81,30 
DATA 4E,B9,00,00,27,6C,45,E9,00,00 
DATA 05,02,60,00,4,00,20,79,00,00 
DATA 34,46,41,F9,00,00,2D,06,4E,AE 
DATA FP,34,23,00,00,00,31,56,20,40 
DATA 23,588, 00,32,00,00,34,64,23,E8 
DATA 00,32,00,00,31,6E,22,68,00,32 
DATA 30,30, 00,01,20,79,00,00,34,3E 
DATA 4E, AB, FE,AA,20,79,00,00,34,62 
DATA 30,30,00,1R,32,30,00,00,34,01 
DATA 36,01, 45, AB, FE,EO,20,79,00,00 
DATA 34,62,30,30,00,1,32,30,00,03 
DATA 34,01,36,01, 48, AB, FE,EO,22,79 
DATA 00,00,34,64,30,30,00,01,4E, AB 
DATA FE,A4,22,79,00,00,34,61,42,40 
DATA 42,41,34,30,00,8R,36,30,00,00 
DATA AR, AE,FE,CE,42,40,32,30,00,0D 
DATA 34,30,00,36,36,30,00,18,22,79 
DATA 00,00,3A,6A,4B, AB, FE,CE, 30,30 
DATA 00,54,32,30,00,0D,34,30,00,8F 
DATA 36,30,00,18,22,79,00,00,34,64 
DATA 4E,AE, FE,OE,42,40,32,30,00,19 
DATA 34,30,00,8F,36,30,00,20,22,79 
DATA 00,00,34,64,4B, AB, FE, CE, 30,30 
DATA 00,03,42,44,42,45,30,30,00,8F 
DATA 35, 30,00,20,45,B9,00,00,04,88 
DATA 48,F9,00,00,30,03,34,30,00,10 
DATA 30,30,00,08, 3E,30,00,08,4E,B9 
DATA 00,00,04,18, 48, F9,00,00,38,9F 
DATA 34,30,00,06,30,30,00,30,3E,30 
DATA 00,25,4E,B9,00,00,04,18,30,30 
DATA 00,02,38,30,00,20,34,30,00,1B 
DATA 30,30,00,64,3%,30,00,24,48,B9 
DATA 00,00,04,88,30,39,00,00,30,52 
DATA 08,00,00,07,66,00,00,36,08,39 
DATA 00,06,00,BF,E0,01,66,E8,22,79 
DATA 00,00,34,56,34,29,00,0E,30,29 
DATA 00,00,BA,70,00,20,65,D4,BC,70 
DATA 00,18,65,0E,BA,70,00,64,62,08 
DATA 20, 7C,00,24,62,02,60,00,00,0E 
DATA 30,39, 00,00,30,52,08,00,00,07 
Daran 66, 74,20,79,00,00,34,46,20,79 
DATA. 00,00,34,56,4E, AE,FF,B8,00,B9 
DATA. 00,00,00,00,00,00,30,88,66,00 
DATA 00, 00,23, FC,00,00,00,01,00,00 
DATA. 30,88,20,39,00,00,34,78,B0,B9 
DATA 00,00,30,8E,64,00,00,00,23, 9 
DATA 00,00,34,78,00,00,30,8E,20,39 
DATA 00,00,30,8E,33,00,00,00,34,76 
DATA 90,2C,00,00,00,01,C0,R0,02,80 
DATA. DO,59,00,00,34,44,23,00,00,00 
DATA 38, 10,00,80,00,00,00,80,23,C0 
DATA. 00, 00,3B,14,D0,50,00,00,00,80 
DATA 23,00,00,00,38,18,D0,B0,00,00 
DATA 00,80,23,00,00,00,3B,10,D0,BC 
DATA 00,00, 00,80,23,00,00,00,38,20 
DATA 20,79,00,00, 34,38, 20,79, 00,00 
DATA 34,62,43,#9,00,00,32,68,30,30 
DATA 00,20,4E,AB,FP,40,48,89,00,00 


‚DATA 21,42,4E,B9,00,00,27,46,60,00 


59 33 
360 1X 
961 07 
962 v8 
963 14 
964 hu 
965 ex 
966 yb 
967 v8 
368 A 
969 79 
EUER 
971 Me 
972 Ev 
973 Kb 
7A XQ 
975 7% 
976 TL 
7 86 
978 tE 
979.86, 
980 FR 
aBı 
982 tq 
983 mW 
‚984 oF 
985 28 
986 RO 
987 Bp 
988 Kx 
989 cE 
390 0 
991 CL 
92 Cy 
993 1 
394 WW 
995 07 
996 9a 
9719 
998 wo 
999 Pe 
3000 37 
4001 EN 
1002 I 
1003 7% 
1004 er 

1005 xt 

1006 04 
1007 12 
1008 1% 
3009 ja 
1010 9 
1011 üe 
1012 nt 
1013 3b 
1014 E68 
1035 0 
1016 K4 

1017 R3 
4048 un 
1019 19 
1020 Iw 
1021 22 
1022 9u 
1023 6W 
1024 Ye 
1025 ce 
1026 Ub 
1027 84 
1028 y9. 
1029 Ku, 
1030 1a 

1031 08 
1032 oK 
1033 Ok. 
1034 HK 
1035 #1 
1036 3d 
1037 st 
1038 YN 
2039 95 
1040 UT 

2041 ja 
1042 iR 


DATA E2,80,23,F0,00,00,00,64,00,00 
DATA 30,8E,20,30,00,31,30,30,E1,88 
DATA 23,00,00,00,30,96,23,00,00,00 
DATA 30,90,20,79,00,00,34,46,41,F9 
DATA 00,00,2D,06,48,AE,FF,34,23,00 
DATA 00,00,34,56,20,40,23,88,00,32 
DATA. 00,00, 30,64,23,58,00,32,00,00 
DATA 34,6E,22,68,00,32,30,30,00,01 
DATA 20,79,00,00,34,3E,4E,AE,FE,AA 
DATA 20,79,00,00,38,62,30,30,00,1F 
DATA 32,30,00,0D, 34,01,36,01,4E,AR 
DATA FE,E0,20,79,00,00,34,62,30,30 
DATA 00,18,32,30,00,03,34,01,36,01 
DATA 4E, AE, FE, E0,22,79,00,00,3A,6A 
DATA 30,30,00,01,4E, AB, FE,A4,22,79 
DATA 00,00,34,64,42,40,42,41,34,30 
DATA 00,8#,36,30,00,0C,4E,AB,FE,CE 
DATA 42,40,32,30,00,0D,34,30,00,36 
DATA 36,30,00,18,22,79,00,00,34,6A 
DATA 4E, AB, FE,CE, 30,30,00,54,32,30 
DATA 00,00, 34,30,00,87,36,30,00,18 
DATA 22,79,00,00,3,64,4B, AB, FE,OE 
DATA 42,40,32,30,00,19,34,30,00,BF 
DATA 36,30,00,20,22,79,00,00,34,6A 
DATA 4E,AB, FE,CE,30,30,00,03,42,44 
DATA 42,45,30,30,00,8F,3E,30,00,20 
DATA 42,89, 00,00,04,88,4B,F9,00,00 
DATA 30,40,34,30,00,0F,30,30,00,0C 
DATA 3E,30,00,08,4E,B9,00,00,04,18 
DATA 4B,F9,00,00,38,9F,34,30,00,06 
DATA 3C,30,00,30,3E,30,00,25,4E,B9 
DATA 00,00,04,18,30,30,00,02,38,30 
DATA 00,20,3A,30,00,18,30,30,00,64 
DATA 35,30, 00,21,48,B9,00,00,04,88 
DATA 30,39,00,00,30,52,08,00,00,07 
DATA 66,00,00,36,08,39,00,06,00,BF 
DATA E0,01,66,88,22,79,00,00,34,56 


DATA 34,29,00,08, 30,29,00,00,BA,70 
DATA 00,20,65,D4,B0,70,00,1B,65,CE 
DATA BA,70,00,64,62,08,BC,7C,00,2h 
DATA 62,02,60,00,00,08,30,39,00,00 
DATA 30,52,08,00,00,07,66,F4,20,79 
DATA 00,00, 34,46,20,79,00,00,34,56 
DATA 4E, AB, FF,B8,00,89,00,00,00,00 


DATA 00,00,30,88,66,00,00,00,23,FC 
DATA 00,00,00,01,00,00,30,8E,23,F9 
DATA 00,00,30,8E,00,00,34,78,20,79 
DATA 00,00,34,38,20,79,00,00,34,62 
DATA 43, #9, 00,00,32,68,30,30,00,20 
DATA 4E, AB, FF,40,23,F0,00,00,00,01 
DATA 00,00,30,8,20,30,00,30,30,31 
DATA E1,88,23,00,00,00,30,96,23,C0 
DATA 00,00,30,90,45,75,08,39,00,05 
DATA 00,DF,FO,1P,66,00,00,06,60,00 
DATA. 00, A0,48,E7,FR,FE,00,89,00,00 
DATA. 00,00,00,00,34,84,67,00,00,10 
DATA 04,59, 00,00,00,01,00,00,34,84 
DATA 60,00, 00,88,20,39,00,00,34,8% 
DATA 90,B0,00,00,00,01,C0,FC,02,80 
DATA D0,B9,00,00,34,41,23,00,00,00 
DATA 3B,10,D0,B0,00,00,00,80,23,C0 
DATA 00,00,38,14,00,B0,00,00,00,80 
DATA 23,00,00,00,3B,18,D0,B0,00,00 
DATA 00,80, 23,0,00,00,3B,10,D0,BC 
DATA 00,00,00,80,23,00,00,00,38,20 
DATA 33,F0,00,01,00,00,34,96,23,F9 
DATA 00,00,34,92,00,00,34,84,20,39 
DATA 00,00,3A,85,50,89,00,00,31,46 
DATA 66,00,00,10,23,F9,00,00,30,EA 
DATA 00,00,34,8E,60,00,00,00,06,B9 
DATA 00,00,00,01,00,00,3A,8E,40,DF 
DATA TR, FR,4E, 9,00, 00,00,00,20,79 
DATA 00,00,34,3E,42,80,42,81,42,82 
DATA 42,23,30,39,00,00,34,72,D0,70 
DATA 00,10,32,10,34,10,36,10,02,70 
DATA 0F,00,50,59,C4,70,00,F0,E8,54 
DATA. 06,70,00,0F,20,79,00,00,34,62 
DATA 4E, AB, FE,EO,48,75,20,79,00,00 
DATA 3A, 3E,41,F9,00,00,34,98,22,79 
DATA 00,00,34,66,42,80,42,81,34,30 
DATA 01,00,36,30,00,08,38,30,00,20 
DATA 34,30,00,20,30,30,00,00,45,AE 
DATA FD,D8,45,B9,00,00,28,C0,22,79 
DATA 00,00,34,66,30,30,00,02,4E,AE 


1043 Wr 
1044 v7. 
1045 87 
1046 c0 
1047 Qu 
1048 9M 
1049 8 
1050. yh 
1051 9u 
1052 hz 
1053, Bx 
1094 pu 
1055 va 
1056 vv 
1057 1B 
1058 YO 
1059 73 
1060 Ay 
1061 sy 
1062 ou 
1063 e5 
1064 Oh 
1065 64 
1066 85 
1067 Va 
1068 ko 
1069 6) 
1070 D6 
1071 Ir 
1072 IH 
1073 oe 
1074 ot 
1075 nd 
1076 #1 
A077 du 
1078 a2 
1079 ya 
1080 te 
1081 NE 
1082 Tp 
1083 20 
2084 19 
1089 9h 
1086 uQ 
1097 8a 
1088 ng 
1089 v2 
1090 eL 
1091 hz 
4092 1X 
1093 50 
1094 74 
1095 IN 
1096 0e, 
1097 1P 
1098 gP 
1099 Ik 
1100 12 
1101 10 
1102 ai 
1103 nz 
1404 2p 
1105 Ky 
1406 tB 
1107 in 
1108 Qg 
1109 Se 
1110 0q 
a it 
112 a3 
4113 80 
1114 ur 
1115 92 
116» 
1117 0q 
1118 68 
1119 ee 
1120 02 
1121 oh 
1122 80 
1123 07 
1224 0X 
1125 ws 
126 hr 


DATA FE, AA,42,86,22,79,00,00,31,66 
DATA 33,46,00,24,33,70,00,00,00,26 
DATA 30,06,32,30,00,E0,4E,AB,FF,OA 
DATA 22,79,00,00,34,66,33,70,00,00 
DATA 00,24,33,46,00,26,30,30,00,E0 
DATA 32,06,4E,AE,FF,04,D0,70,00,07 
DATA B0,70,00,E7,66,02,22,79,00,00 
DATA 34,66,30,30,00,04,4E,AE,FE,AA 
DATA 22,79,00,00,31,66,33,70,00,70 
DATA 00,24,33,70,00,01,00,26,30,30 
DATA 00,70,32,30,00,DF,4E,AE,FF,OR 
DATA 22,79,00,00,38,66,33,7C,00,01 
DATA 00,24,33,70,00,70,00,26,30,3C 
DATA 00,DF,32,30,00,70,4E,AE,FF,OA 
DATA 20,78,00,04,4E, AE,FR,70,20,30 
DATA 00,00,00,1F,2E,30,00,00,00,1F 
DATA 20,07,22,06,42,89,00,00, 24,94 
DATA 20,07,22,06,00,F0,00,07,02,FC 
DATA 00,07,00,B0,00,00,00,01,D2,BC 
DATA 00,00,00,01,45,B9,00,00,29,30 
DATA 51,0F,FR,D6,51,0E,FR,C0,20,78 
DATA 00,04, 4, AB, FF, 76,45, 75,46, AB 
DATA FE, 38,24,70,00,DF,P0,00,20,79 
DATA 00,00,34,54,22,28,00,08,4E,B9 
DATA 00,00,28, F0,22,28,00,0C,4E,B9 
DATA 00,00,28,F0,22,28,00,10,48,B9 
DATA 00,00,28,F0,22,28,00,14,48,B9 
DATA 00,00,28,F0,4B, AB, FR,32,08,2D 
DATA. 00, 0E,00,02,66,8,2B,41,00,54 
DATA 3B,70,00,00,00,66,3B,70, FF, FF 
DATA 00,44,3B,70,FR,FR,00,46,42,6D 
DATA 00,42,42,6D,00,74,3B,70,01,F0 
DATA 00,40,3B,7C,38,0E,00,58,4E,75 
DATA 36,00,C6,B0,00,00,00,0R,24,30 
DATA FC,00,00,00,E6,AA,C2,FC,00,28 
DATA 26,48,08,80,00,00,D2,80,76,28 
DATA 20,79,00,00,34,5N,08,05,00,00 
DATA 67,08,22,68,00,08,D3,01,61,20 
DATA 08,05,00,01,67,08,22,68,00,00 
DATA D3,01,61,1E,08,05,00,02,67,08 
DATA 22,68,00,10,03,01,61,10,08,05 
DATA 00,03,67,08,22,68,00,14,D3,C1 
DATA 61,02,45,75,70,05,85,91,D3,03 
DATA 51,08, FR, PA,4B,75,00,B9,00,00 
DATA 00,01,00,00,34,92,66,00,00,06 
DATA 60,00,00,60,04,B9,00,00,00,01 
DATA 00,00,34,92,41,F9,00,00,3C,3D 
DATA 22,39,00,00,34,92,82,R0,00,64 
DATA 61,00,00,00,82,FC,00,01,61,00 
DATA 00,28, 61,00,00,B4,60,00,00,38 
DATA 00,B9,00,00,00,08,00,00,3A,92 
DATA 66,00,00,06,60,00,00,20,06,B9 
DATA 00,00,00,01,00,00,34,92,41,F9 
DATA 00,00,30,3D,22,39,00,00,34,92 
DATA 82, F0,00,64,61,00,00,80,82,F0 
DATA 00,04,61,00,00,78,61,00,00,74 
DATA 48, F9,00,00,30,3D,24,30,00,00 
DATA 00,03,20,30,00,00,00,63,25,30 
DATA. 00,00,00,5D,48,89,00,00,04,18 
DATA. 08,39, 00,06,00,BF,EO,01,67,76 
DATA 60,00, R4,80,41,79,00,00,38,74 
DATA 42,81,32,39,00,00,34,76,82, FO 
DATA 00,64,61,00,00,32,82,F0,00,0R 
DATA 61,00,00,24,61,00,00,26,4B,F9 
DATA 00,00,38,74,34,30,00,03,30,3C 
DATA 01,03,3£,30,00,02,23,F9,00,00 
DATA 34,66,00,00,34,6E,4E,B9,00,00 
DATA 04,18,45,75,D2,70,00,30,10,01 
DATA 42,41,48,41,48,75,42,85,20,79 
DATA. 00,00,38, 10,48,B9,00,00,24,CE 
DATA 53,5D,20,79,00,00,3B,18,45,B9 
DATA. 00, 00,24,0E,23,5D,20,79,00,00 
DATA 3, 14,48,B9,00,00,24,CE,83,5D 
DATA 20,79, 00,00,3B,10,45,59,00,00 
DATA 24, 0E,48,75,26,00,28,01,86,F0 
DATA 00,08,08,F0,00,04,D8,43,48,43 
DATA 14,30,00,07,94,03,05,30,40,00 
DATA 67,00,00,06,08,05,00,00,45,75 
DATA 20,79, 00,00,34,44,20,39,00,00 
DATA 3A,78,90,B0,00,00,00,01,D1,FC 
DATA 00,00,02,00,22,30,00,00,00,1F 
DATA 20, FO, FR,FR,FF,FP,51,09, FR, F& 
DATA 51,08, FP,E8,45,75,20,79,00,00 
DATA 31,44,22,48,24,48,26,48,28,48 


00, 
38 
0, 
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GRAFIK 


1427 Im 
25 Ar 
1129 m 
1130 0X 
1131 ım 
1132 pr 
1133 db 
Yaı xp 
4135 aP 
1136 ix 
1137 Du 
1138 om 
1139 Wp 
1140 92 
14 Ha 
1142 to 
1143.86 
Add av 
1149 Ag, 
1146 pb 
1147 du 
A148 da 
9 ar 
150 m 
As1 EI 
1152 IM 
1153 Ou 
1154 RP 
1195 D5 
156 92 
MT ng 
1158 37 
1159 es 
1160 16 
1161 x0 
1162 02 
1163 pk 
1164 N 
1165 RK 
1166 0 
er an 
168 5p 
1169 me 
1170 Kg 
171 nF 
1172 al 
a3 oh 
174 N 
1195 56 
1176 n0 
au x5 
17a In 
1179 hi 
1180 Yn 
A181 sn 
1182 02 
1183 SL 
1184 dk 
1185 78 
1186 a0 
187 TK 
1188 0X 
1189 oB 
1190 10 
191 pr 
1192 08 
93 Qt 
294 f 
195 Ivy 
1196 17 


DATA D3, FC, 00,00,00,80,D3,FC,00,00 
DATA 01,00,D7,FC,00,00,01,80,D9, FC 
DATA 00,00,02,00,20,39,00,00,38,78 
DATA 90,BC,00,00,00,01,22,3C,00,00 
DATA 00, 1F,42,87,24,18,88,82,24,19 
DATA 8E,82,24,14,88,82,24,1B,8E,82 
DATA 28,07,51,09, FR,EA,D1,FC,00,00 
DATA 02,00,D3,FC,00,00,02,00,D5, FC 
DATA 00,00, 02,00,D7,FC,00,00,02,00 
DATA D9,FC,00,00,02,00,51,C8,PF,C2 
DATA 4E,75,4E,59,00,00,01,10,4E,B9 
DATA 00,00,00,06,42,89,00,00,00,66 
DATA 45,59,00,00,20,%0,4E,B9,00,00 
DATA 01,54,4E,B9,00,00,24,A0,20,78 
0; 


R 


DATA 00,04,22,30,00,01,00,03,20,39 
DATA 00,00,34,78,00,F0,02,80,4E,AE 
DATA FF,3A,23,00,00,00,3A,4A,67,DA 
DATA 23, 00,00,00,3B, 10,D0,80,00,00 
DATA 00,80,23,C0,00,00,3B,14,D0,EC 
DATA 00,00,00,80,23,C0,00,00,38,18 
DATA DO,BC,00,00,00,80,23,C0,00,00 
DATA 38,10,D0,5C,00,00,00,80,23,C0 
DATA 00,00,3B,20,33,PC,00,01,00,00 
DATA 34,76,4E,59,00,00,24,F2,08,39 
DATA 00,06,00,BF,E0,01,67,00,00,10 
DATA 08,39,00,04,00,DF,R0,16,67,00 
DATA 00,BE,66,26,22,79,00,00,34,52 
DATA 42,85,42,86,34,29,00,08,30,29 
DATA 00,00, BA,7C,00,E0,60,00,DA,86 
DATA B0,7C,00,20,60,00,D8,84,61,00 
DATA D9, 0,60, BE,20,78,00,04,20,39 
DATA 00,00,34,78,00,F0,02,80,22,79 
DATA 00,00, 3A,4A,4E, AB, FF, 2E,20,78 
DATA 00,04,20,3C,00,00,08,00,22,79 
DATA 00,00, 34, 5E,4E, AB, FR, 2E,4E,B9 
DATA 00,00, 00, F0,4E,B9,00,00,00,42 


DATA 4E,F9,00,00,01,30,20,78,00,04 
DATA 20, 30,00,00,08,00,22,36,00,01 
DATA 00,03, 4E,AE,FR,34,23,C0,00,00 
DATA 34,55, 22,40,20,7C,00,00,36,3E 
DATA 20,30,00,00,01,FF,22,D8,51,C8 
DATA FR,FC,22,39,00,00,34,5E,41,#9 
DATA 00,00,34,36,D1,P0,00,00,00,0A 
DATA 20,30,00,00,00,19,D3,90,D1,FC 
DATA. 00,00,00,14,51,08, FF, R6,4E,75 
34,52,3,29,00,0E 
BA,7C,00,E0,64,00 
‚00,20,64,00,00,26 
‚34,72, 


x 


00,00,34,80 


‚00, 

DATA 00,DF,00,DF,02,03,00,00,00, 
DATA 00,01, 18,00,00,00,00,00,00, 
‚00,00, 

0, 


DATA 00,00,00,00,00,00,00,i 
DATA 00,00, 

DATA 00,DF,, 
DATA 00,20, 
DATA 18,00, 
DATA 00,00, 
DATA 00, 00,00,90,00,2D,00,90,00,2D 
DATA 00,0F,00,00,2E,76,00,60,00,57 
DATA 00,20,00,04,00,00,08,01,00,04 
DATA 00,00, 2E,22,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,2E,46 
DATA 00,01,00,00,.00,00,00,00,00,00. 
DATA 03,00,00,05,00,00,2E,32,00,00 
DATA 00,00, FF,FE,FF,FE,00,20,FF, FE 
DATA 00,20,00,09, FF,FE,00,09, FF, FE 
DATA FF, FE,00,00,2£,64,00,00,28,70. 
DATA 00,00,00,04,00,00,00,00,00,00 
DATA 00,00,00,00,.00,00,00,00,00,00 
DATA. 00,00,00,00,00,00,00,00,30,30 
DATA 31,00,00,00,30,30,31,00,00,00 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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: DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00,00,00,00,00,27,00,75,00,90 
00,04,00,00,00,01,00,04,00,00 
2E,A2,00, 00,00, 00, 00,00,00,00 
'00,00,00,00,00,00,2E,06,00,02 
00, 00,00,00,00,00,00,00,03,00 
00,05,00,00,2E,B2,00,00,00,00 
FF, FE, FF, FE, 00,90, FR,FE, 00,90 
00,09, FF,FE,00,09, FF,FE,FR,FE 
00,00,2E,E1,00,00,2#,14,00,00 
00,28, 00,00,00,00,00,.00,00,00 
00,00,00,00,00,00,00,00,00,00 
00,00,00,00,00,00,4F,62,64,65 
6B,74,65,2E,41,4,45,00,00,00 
00,00,00, 00; 00,00,00,00,00,00 
00,00,00,00,00,00,00, 
00,00,00,00,00,00,00, 


2833333388 


00,00, 00,00,00,00,2R,8,00,00 
2F,94,00,00,00,04,00,00,00,00 
00,00,00,.00,00,00,00,00,00,00 
00,00,00, 00,00,00,00,00,00,00 
30,30,31,00,00,00,30,30,31,00 
00,00,00,00,2F,R6,00,88,00,57 
00,20,00,04,00,00,08,01,00,04 
00,00,2E,22,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,2F,06 
00,04,00,00,00,00,00,00,2F,EA 
00,00,2F,F0,00,00,00,04,00,00 
00,00,00,.00,00,.00,00,00,00,00 
00, 00, 00,00,00,00,00,00,00,00 
00,00, 30,30,31,00,00,00,30,30 
31,00,00,00,00,00,00,00,00,20 
00,75,00,90,00,04,00,00,00,01 
.00,04,00,00, 28, 2,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
30,22,00,05,00,00,00,00,00,00 
28, EA, 00,00, 2F,14,00,00,00,28 


00,00,00,00,00,00,00,00,00,64 
00,00,00,00,31,30,30,00,00,00 
31,30, 30,00,00,00,00,00,30, FE 
00,38,00,61,00,20,00,04,00,00 
.08,01,00,04,00,00,2E,22,, 
.00,00,00,00,00,00,00,00,. 
00,00, 30,08,00,01,00,00 
00,00,30,F2,00,00,30,F8 
00,04,00,00,00,00,00,00 
00,00,00,00,00,00,00,00, 
00,01,00,00,00,00,30,30, 
00,00,30,30,31. 
.00,00,00,88,00 

.00,00,08,01,00,04, 
00,00, 00,00,00,00, 
.00,00,00,00,31,; 
.00,00,00,00,31,. 


SIZERESSESSZEER 


2388 
88 


88 
ES 


‚00,00,00,00,00,00,00,00,00,00 
‚00,00,00,02,00,00,00,00,30,30 
32,00,00,00,30,30,32,00,00,00 
00,00,31,6,00,38,00,57,00,20 
00,04,00,00,08,01,00,04,00,00 
2E,22,00,00,00,00,00,00,00,00 
00,00,00,00,00,00,31,86,00,01 
‚00,00,00,00,00,00,31,AA,00,00 
31,B0,00,00,00,04,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
‚00,00,00,00,00,01,00,00,00,00 
30,30,31,00,00,00,30,30,31,00 
‚00,00,00,00,32,12,00,88,00,57 


ERERRER 
ABSBESE 


& 
RB 


ERERESSSSESES 
SBASLEIPHHTERE 
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8 
8 


BESNSRERNESE 


SUNSNSISESRERERESSSTNSUSESESESEEREERE 
SEERSEHESRISSSRNERISESERESH 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


00,20,00,04,00,00,08,01,00,04 
00,00, 2E,22,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,31,E2 
00,04,00,00,00,00,00,00,32,06 
00,00,32,00,00,00,00,04,00,00 
00,00,00,00,00,00,00,00,00,00 
00,00,00,00,00,00,00,02,00,00 
00,00,30,30,32,00,00,00,30,30 


32,00,00,00,00,00,00,00,00,7C 
00,68,00,20,00,04,00,00,08,01 
00,04,00,00,2E,22,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
32,38, 00,04,00,00,00,00,00,00 
32,62,00,00,32,68,00,00,00,04 
00,00,00,00,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,00,01 
00,00,00,00,30,30,31,00,00,00 
30,30,31,00,00,00,00,00,05,53 
09,99,0B, BB, OE,EE, 00,00, 00,00 
00,00,00,00,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
00,07,00,0F,07,7F,07,07,0F,0F 
0F,7P,03,33,0A,AA,0F,FF,07,00 
0F,00,08,77,00,70,00,F0,07,F7 
'00,02,00,E8,00,00,00,F8,00,10 
00,E8,00,14,00,F8,00, 1£,00,E8 
00,28,00, F8,00,20,00,E8,00,36 
00,F8,00,34,00,E8,00,44,00,F8 
00,48,00,8,00,52,00,F8,00,56 
00,28,00,60,00, F8,00,64,00,E8 
00, 6,00, F8,00,72,00,E8,00,70 
00, #8,00,80,00,E8,00, 84,00, F& 
00,8£,00,E8,00,98,00,F8,00,90 
00,E8,00,A6,00,F8,00,AA,00, EB 
00,B4,00,F8, 00,B5,00,E8,00,02 
00, F8,00,06,00,E8,00,D0,00, FB 
00,D4,00,28,00,DE,00,F8,01,09 
00,50,01,18,00,5F,01,09,00,2E 


01,18,00,30,01,14,00,3, 01,29, 
00,48,00, F8,00,3F,01,07,00,4E 
‚01,09,00,3F,01,18,00,4E,01,00 
00,66,01,0F,00,75,01,11,00,66 
01,20,00,75,01,00,00,77,01,0F 
00,86,01,11,00,77,01,20,00,86 
01,00,00,88,01,0F,00,97,01,11 
00,88,01,20,00,97,01,00,00,99 
01,0F,00,48,01,11,00,99,01,20 


00,A8,00, F8,00,BC,00, R,00,03 
01,20,00,50,01,27,00,03,00, FB 
00,E2,01,02,00,E9,00,F8,00,F6 
01,02,00,FD,01,08,00,E2,01,12 
00,59,01,08,00,F6,01,12,00,FD 
01,18, 00,E2,01,22,00,E9,01,1B 
00, F6,01,22,00,FD,01,01,00,BC 
01,25,00,03,00,00,07,42,00,00 
07,40,00,00,07,FA,00,00,08,48 
00,00,08,96,00,00,04,28,00,00 
14,68,00,00,14,A4,00,00,15,38 
00,00,15,84,00,00,16,02,00,00 
19,A0,00,00, 14, F4,00,00,20,46 
00,00,20,A2,00,00,21,00,00,00 
21,30,00,00,21,78,00,00,21,B4 
00,00, 21,0,00,00,22,28,00,00 
22,60,00,00,00,00,00,10,00,10 
00,02,00,00,00,00,03,00,00,00 
34,48,00,00, FR,DE,00,10,00,10 
00,02,00,00,00,40,03,00,00,00 
34,5E,00,11, FF,ER,00,10,00,10 
00,02,00,00,00,80,03,00,00,00 
34,72, FF,ER,FF,ER,00,10,00,10 
00,02,00,00,00,00,03,00,00,00 
34,86,00,00, FF,ER,00,10,00,10 
00,02,00,00,01,00,03,00,00,00 
00,00,00,00,00,00,00,10,00,10 


00,02,00,00,00,40,03,00,00,00 
34,AE,00,00, FF,DE,00,10,00,10 
00,02,00,00,00,00,03,00,00,00 
34,02, FR,ER,FF,EF,00,10,00,10 
00,02,00,00,00,80,03,00,00,00 
34,D6,00,11, FF,ER,00,10,00,10 
00,02,00,00,00,00,03,00,00,00 
34,EA,00,00, FF,EF,00,10,00,10 


Listing 1. (Fortsetzung) 


BETT HOMECOMPUTERWORLD.COM 


15 


| DATA 00,02,00,00,03,00,03, 


1 

02, 

} DATA 36,24, 
0: 


DATA 00,02,00,00,01,40,03,00,00,00 
DATA 00,00,00,00,00,00,00,10,00,10 
DATA 00, 02,00,00,01,80,03,00,00,00 
DATA 35,12,00,11,00,00,00,10,00,10 
DATA 00,02,00,00,01,C0,03,00,00,00 


| DATA 35,26,00,00,00,11,00,10,00,10 


DATA 00,02,00,00,02,00,03,00,00,00 
DATA 35,34,00,11,00,11,00,10,00,10 
DATA 00,02,00,00,02,40,03,00,00,00 
DATA 35,4E,00,00,00,22,00,10,00,10 
DATA 00,02,00,00 

DATA 35,62,00, 
DATA 00,02,00,, 
DATA 35,76,00, 
DATA 00,02,00, 
DATA 35, 84,00, 
DATA 00,02,00, 
DATA 00,00,00,00,, 
DATA 00,02,00,00,, 
DATA 35,82,00,28, 
DATA 00,02,00,00,03,, 
DATA 00,00,00,00,00,, 
DATA WERT: 


838388828888888388 


DATA 35,2E,00,10,00,00, 


8 


88 


DATA 36,02,00,10,00,14, 
DATA 00,02,00,00,03,E0,03, 
DATA 36,16, ,00,00,00,08; 
DATA 00, 


88883838833833388 


‚00,20, 
00,00, 
‚00,20, 
DATA 00,02,00,00,03,20,03,00,00,00 
DATA 00,00,00,00,75,FE,7B,FE,7B, FE 
DATA 78, FE,7B,FE,7B,FE,7B,FE,7B, FE 
DATA 5F,FE,6F,FE,77,PE,75,FE,7D,FE 
DATA TE,FE,00,00,00,01,00,21,00,21 
DATA 00,21,00,21,00,21,00,21,00,21 
DATA 00,21,00,05,00,09,00,11,00,21 
DATA 00,41,00,81,7F,FF,00,00,7F,7E 
DATA 7R,BE,7F,DE, 7P,EE,7F,F6,7E, FA 
DATA 7R,DE,7P,DE,7F,DE,7F,DE,7F,DE 
DATA 7F,DE,7R,DE,7F,DE,00,00,00,01 
DATA 01,01,02,01,04,01,08,01,10,01 
DATA 20,01,04,01,04,01,04,01,04,01 
DATA 04,01,04,01,04,01,04,01,7E, FF 
DATA 00,00,7F,FE,7P,FE,7F,FE,7E,FE 
DATA TP,FE,TR,FE,7P,FE,TR,FC,7R,FA 
DATA 00,76, 7F,EE,7F,DE,7F,BE,7E,FE 
DATA 00,00,00,01,00,01,00,41,00,21 
DATA 00,11,7F,89,00,05,00,03,00,01 


Ho DATA 00,01,00,01,00,01,00,01,00,01 


DATA 00,01,7F,FR,00,00,7F,FE,7D, FE 
DATA 7B,FE,77,FE,6E,00,5F,FE,3P, FE 
DATA 7F,FE,7R,FE,7E,FE,TR,FE,7E,FE 
DATA 7F,FE,7F,FE,00,00,00,01,00,01 
DATA 00,02,00,01,00,01,00,01,00,02 


L| DATA 00,01,40,01,20,01,11,FF,08,01 


DATA 04,01,02,01,00,01,7P,FF,00,00 
DATA 7R,BE,7P,BE,7P,DE,7F,BE,6R,7E 
DATA 17, FE,FB,FB,7R,DE,7F,E8,7E,F6 


DATA 7D,FE,7B,FE,7D,FE,7D,FE,00,00 


DATA 00,01,02,01,02,01,04,01,02,01 
DATA 01,09,00,17,00,21,04,01,68,01 


; DATA 10,81,00,41,00,21,00,41,00,41 


DATA 7R,FF,00,00,7F,7E,7F,BE,7F,DE 
DATA 7R,BE,6F,BE,53,FE,3F,FE,7F,FO 
DATA 7F,CA,7D,#6,7D,FE,7B,FE,7D,FE 


DATA 7E,FE,00,00,00,01,01,01,02,01 


DATA 04,01,02,01,02,09,00,35,00,03 
DATA 40,01,20,01,10,41,00,41,00,21 
DATA 00,41,00,81,7F,FF,00,00,7F, FE 
DATA 47,0E,5F,F6,5P,PA,5P,FA,SF,PA 
DATA SF,FA,SF,FA,SP,FA,SF,FA,SP,PA 


} DATA 5F,FA,40,02,7®,FE,00,00,00,01 


DATA 00,01,07,F1,07,49,07,45,07,05 
DATA 00,05,00,05,00,05,00,05,00,05 
DATA 00,05,00,05,1F,FD, 00,01, 7F,FF 
DATA 00,00, 77,FE,03,86,3°,BE,35,B6 
DATA 38,56,3B,B6,35,B6, 3B,BE,3B,AE 
DATA 3B,AE,22,36,7#,F6,7F,FE,7F,FE 
DATA 00,00,00,01,00,01,00,01,3E,39 
DATA 22,25,22,25,22,25,22,25,22,39 


; DATA 22,29,22,29,22,25,3#,25,00,01 


SESSSRSBSSSSSRERSE 
SEREHAERBESSSEIRER 


EsEs 
BRaaE 


KER 


SERRERSESE 
SRERRENSESASS 


DATA 00,01,7P,FF,00,00,72,FE,7E, FE 
DATA 7E,FE,76,EE,68,96,5E,FA,3E, FC 
DATA TE, FE, 7E,FE, 7, FE, TE,FE, TE, FE 
DATA 7E,FE, 78, FE,00,00,00,01,00,01 
DATA 00,81,00,81,00,81,00,81,00,81 
DATA 00,81,40,83,20,85,16,E9,08,91 
DATA 00,81,00,81,00,81,7R, FF, 00,00 
DATA TE, FE,7D, FB, 7B, FE, 77, FE, 7B, FE 
DATA 7B,FE,00,02,7F,FE,7B, FE,7B, FE 
DATA 77,FE,7B, FE,TD, FE, 7E,FE,00,00 
DATA 00,01,00,81,00,41,00,21,00,11 
DATA 00,21,00,21,00,01,3F,FF,00,21 
DATA 00,21,00,11,00,21,00,41,00,81 
DATA 7F,FF,00,00,7P,PE,77,FE,6F, FE 
DATA SF,FE,6R,FR,6R,PE,6R,FE,6F,FE 
DATA 6F,FE,6R,FE,6R,FE,6F,FE,60,02 
DATA 7 ,FE,00,00,00,01,00,01,04,01 
DATA 02401,01,01,02,01,02,01,02,01 
DATA 02,01,02,01,03,FD,00,05,00,05 
DATA 00,01,00,01,7R,FP,00,00,7F, FE 
DATA 40,0E,5F,EE,5F,FE,5R,EE,5F,EE 
DATA SF,EE,5R,EE,5F,EB,5P,EE,48,0E 
DATA 7R,FE,7R,PE,7,FE,00,00,00,01 
DATA 00,01,00,01,00,01,0F,FD,08,05 
DATA 08,05,08,05,08,09,08,05,08,05 
DATA 08,05,08,05,0P,FD,00,01,7F, FF 
DATA 00,00,7R,FE,7C,FE,79, FE, 7B, FE 
DATA 7R,FE,78,3E,7D, FE,7D, FE, 7D, FE 
DATA 7D, FE, 7D,FE, 71,DE,7R,FE,7P,FE 
DATA 00,00,00,01,00,01,00,01,01,C1 
DATA 03,E1,01,01,00,01,03,01,01,C1 
DATA 01,01,01,01,01,01,01,01,07,F1 
DATA 00,01,77,FF,00,00,7F,FE,63, FE 
DATA 9D, FE, 5D, FE,5D,FE,63,FE,77, FE 
DATA 78,3E,77, FE,47,FE,47,FE,77, FE 
DATA 77, FE, 77, FE,00,00,00,01,00,01 
DATA 00,01,00,31,00,49,00,49,00,31 
DATA 00,21,00,11,00,09,00,05,00,05 
DATA 00,05,07,FD,00,01,7F, FP,00,00 
DATA 6E,00,52,00,3E,00,7E,00,72,00 
DATA 7E,00,00,00,01,00,01,00,01,00 
DATA 01,00,41,00,2D,00,11,00,7R,00 
DATA 00,00, 78,00, 78,00, 7E,00,7C,00 
DATA 44,00,76,00,00,00,01,00,09,00 
DATA 35,00,03,00,01,00,02,00,01,00 
DATA 7F,00,00,00,76,00,74,00,70,00 
DATA 7A,00,74,00,78,00,00,00,01,00 
DATA 11,00,21,00,41,00,21,00,21,00 
DATA 01,00,77,00, 00,00, 78,00, 5E,00 
DATA 5E,00,38,00, 5E,00,68,00,00,00 
DATA 01,00,01,00,05,00,05,00,03,00 
DATA 05,00,09,00,7F,00,00,00,00,00 
DATA 00,00,00,00,00,.00,00,00,00,00 
DATA 00,00,00,00,00, 00,00,00,00,00 
DATA 00,00,.00,00,00, 00,00,00,00,00 
DATA. 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,01 
DATA 00,00,00,01,00,00,00,00,00,00 
DATA 00,00,00,00,.00,.00,00,00,00,00 


DATA 00,00, 00,00, 00,00,00,00,00,00 
DATA 00,.00,00,05,00,00,00,00,00,00 
DATA 00,00,00,00, 00, 00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00, 00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00, 00,00, 00, 00,00 
DATA 00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,04 
DATA 00,20,00,05,00,00,00,00,00,00 


DATA. 00,00,00,00,00,00,00,00,00,00 
DATA. 00,00,00,00,00,00,00,00,00,00 
DATA. 00,00,00,00,00,00,00,00,67,72 
DATA 61,70,68,69,63,73,22,60,69,62 
DATA 72,61,72,79,00,64,6F,73,2E,6C 
DATA 69,62,72,61,72,79,00,69, 68,74 
DATA 75,69,74,69,67,6E,2E,60,69,62 
DATA 72,61,72,79,00,47,62,64,65,6B 
DATA 74,20,4E,72,28,52,20,47,20,42 
DATA 30,20,30,20,30,20,30,30,31,4C 
DATA 61,64,65,68,53,70,65,69,63,68 


mp 


EERMBER 


BESERERSHEESSSSSSENSSERSRERSNGE 
BAIERENSEERRTIEREHERSSEH 


1611 5) 


DATA 65,72,62,40,61,64,65,6E,20,68 
DATA 61,63,68,20,4F,62,61,65,68,74 
DATA 44,61,74,65,69,6E,61,6D,65,; 
DATA 65,72,74,69,67,53,70,65,69,63 
DATA 68,65,72,68,20,76,67 ‚62, 20,48 
DATA 62,64,65,6B,74,65,61,63,68,41 
DATA 4D,49,47,41,20,47,42,44,45,43 
DATA 54,45,44,49,54,4F,52,20,56,31 
DATA 2E,32,77,72,69,74,74,65,66,20 
DATA 31,39,38,38,20,62,79,4D,49,43 
DATA 48,41,45,40,20,42,49,52,54,53 
DATA 43,48,49,20,4D,61,72,6B,74,20 
DATA 26,20,54,65,63,68,6E,69,6B,54 
DATA 65,69,67,65,20,4F,62,6h,65,6B 
DATA 74,20,42,72,2E,41,62,62,72,75 


‚DATA 63,68,41,6E,69,6D,61,74,69,6F 


DATA 6E,20,76,6F,6E,20,4P,62,64,65 
DATA 6B,74,47,65,73,63,68,77,69,6E 
DATA 64,69,67,68,65,69,74,30,30,35 
DATA 4D,61,78,2E,20,4,62,6h,65,6B 
DATA 74,74,61,68,60,48,68,70,69,65 
DATA 72,65,68,20,76,6F,6E,20,4,62 
DATA 6A,65,6B,74,41,6E,7A,61,68,60 
DATA 00,00,03,E0,00,00,03,56,00,00 
DATA 00,00,00,00,00,02,00,00,00,00 
DATA 00,00,00,18,00,00,00,18,00,00 
DATA 00,24,00,00,00,30,00,00,00,3C 
DATA 00,00,00,48, 
DATA 00,50,00, 
DATA 00, 
DATA ‚00, 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA mo, 


8 


‚00,01,64,00,00,01,70 
TE, 00,00,01,94,00,00 
‚01, AE,00,00,01,BE 
‚D8,00,00,01,R0,00,00 
»28,00,00,02,46 
0,02,6C,00,00 
4,00,00,02,B6 
10, 02,06,00,00 
DATA 02,E4 ‚F8,00,00,03,0A 
DATA 00, 00, 03,10,00,00,03,44,00,00 
DATA 03,58,00,00,03,64,00,00,03,64 
DATA 00,00,03,70,00,00,03,82,00,00 
DATA 03,88,00,00,03,94,00,00,03,A0 
DATA 00,00,03,B2,00,00,03,88,00,00 
DATA 03,0A,00,00,03,D0,00,00,03,E2 
DATA 00,00,03,4,00,00,03,FA,00,00 
DATA 04,00,00,00,04,12,00,00,04,14 
DATA 00,00,04,20,00,00,04,36,00,00 
DATA 04,42,00,00,04,50,00,00,04,60 


2E2L8323888888 


SEREeSB essen 


8388 


[\ 
9 
© 


BERS* 
8 


DATA 00,00,04,74,00,00,04,84,00,00 
DATA 04,90,00,00,04,94,00,00,04,B0 
DATA 00,00,04,BE,00,00,04,00,00,00 
DATA 04,DE,00,00,05,04,00,00,05,22 
DATA 00,00,05,26,00,00,05,20,00,00 
DATA 05,32,00,00,05,38,00,00,05,62 
DATA 00,00,05,68,00,00,05,74,00,00 
DATA 05,08,00,00,03,D2,00,00,05,E0 
DATA 00,00,05,EE,00,00,05,F0,00,00 
DATA 06,02,00,00,06,14,00,00,06,18 
DATA 00,00,06,18,00,00,06,30,00,00 
DATA 06,7A,00,00,06,84,00,00,06,8E 
DATA 00,00,06,90,00,00,06,A2,00,00 
DATA 06,20,00,00,06,BE,00,00,06,D8 
DATA 00,00,06, FE,00,00,07,22,00,00 
DATA 07,36,00,00,07, 34,00, 00,07,46 
DATA 00,00,07,50,00,00,07,54,00,00 
DATA 07,64,00,00,07,68,00,00,07,A4 


DATA. 00,00,07,AE,00,00,07,B8,00,00 
DATA 07,02,00,00,07,00,00,00,07, FE 
DATA 00,00,08,08,00,00,08,12,00,00 
DATA 08,10,00,00,08,26,00,00,08,40 
DATA 00,00,08,56,00,00,08,60,00,00 
DATA 08,64,00,00,08,74,00,00,08,9A 
DATA 00,00,08,4,00,00,08,A4,00,00 
DATA 08,50,00,00,08,C8,00,00,08,D2 
DATA 00,00,08,D6,00,00,08,26,00,00 


en 


GRAFIK 


1629 X2 
1630 07 
1631 u 
1632 ya 
1633 NL 
1634 Sg 
1635 5M 
‚1636 EB 
1637 52 
1638 Ky 
1639 15 
1640 Un 
1641 29 
A6h2 55 
1643 10 
16u4 1x 
1645 PR 
1646 DR. 
1647 v8 
16h In 
1649 W) 
1650 e8 
1691 au 
1652 29 
1693 21 
1654 30, 
1655 05 
1656 10 
1657 N 
1658 Fr 
1659 TE 
1660 Pa 
161. 02 
1662 mt 
1663 ib 
1664 Ds 
1665 Tr 
1666 uQ 
4667 Iv 
1668 pJ 


1875 ov 
1676 81 
4677 pE 
1678 2u 
1879 gr 
1680 RG 
1681 Eq 
1682 &t 
1683 29 
1684 hy 
1689 ce 
1686 11 
1689 © 
1688 Ub 
1689 zu 
1690 24 
1691 Bi 
1692 yu 
1693 ©q 
1694 Sn 
1695 Wo 
1696 iP 
1697 38 
1698 g1 
1699 Ho 
2700 31 
1701 9 
1702 >2 
1703 0x 
1704 21 
1705, Kb 
1706 za 
1707 Ow 
1708.26 
1209 50 
4710 70 
ara a1 
Anz au 


DATA 08,F0,00,00,09,24,00,00,09,2E 
DATA 00,00,09,38,00,00,09,42,00,00 
DATA 09,74,00,00,09,7E,00,00,09,88 
DATA 00,00,09,92,00,00,09,B6,00,00 
DATA 09,C0,00,00,09,04,00,00,09,D4 
DATA 00,00,09,FC,00,00,04,02,00,00 
DATA 04,08,00,00,04,20,00,00,0A,2A 
DATA 00,00,04,30,00,00,04,34,00,00 
DATA 04,48,00,00,04,56,00,00,04,60 
DATA 00,00,04,6E,00,00,04,88,00,00 
DATA 0A,80,00,00,04,92,00,00,04,A4 
DATA 00,00,04,44,00,00,04,BC,00,00 
DATA 04,C2,00,00,04,D4,00,00,04,EE 
DATA 00,00,05,08,00,00,05,22,00,00 
DATA 0B,30,00,00,08,AA,00,00,0B,B0 
DATA 00,00,08,BE,00,00,08,C4,00,00 
DATA 0B,CE,00,00,08,20,00,00,0B,EA 
DATA 00,00,00,00,00,00,00,06,00,00 
DATA 0C,04,00,00,0C,10,00,00,0C,14 
DATA 00, 00,00, 24,00,00,00,20,00,00 
DATA 00,34,00,00,00,44,00,00,00,52 
DATA 00,00,00,60,00,00,00,86,00,00 
DATA 06,40,00,00,00,BA,00,00,0C,D4 
DATA 00,00,0C,EE,00,00,0D,08,00,00 
DATA 0D,1A,00,00,0D,20,00,00, 
DATA 00,00,0D,38,00,00,0D,44,00,00 
DATA 0D,64,00,00,00,64,00,00,00,82 
DATA 00,00,0D,AC,00,00,0D,BC,00,00 
DATA 0D,CA,00,00,0D,D0,00,00,0D,D6 
DATA 00,00,0D,E4,00,00,0D,E4,00,00 
DATA 0D,F0,00,00,0D,F6,00,00,0E,0% 
DATA 00,00,0E,10,00,00,0E,14,00,00 
DATA 0E,48,00,00,02,62,00,, 
DATA 00,00,0E,78,00,00,0E,, 
DATA 0E,94,00, 00,08, 4,00, 
DATA 00,00,0E,C4,00,00,0E,, 
DATA 0E,D0,00,00,02,D6,00,, 
DATA 00,00,0E,EA,00,00,0E,, 
DATA 0E,F6,00,00,0F,04,00, 
DATA 00,00,0F,14,00,00,0F, 
DATA 0F,28,00,00,0F,2E,00, 
DATA 00,00, 0R,6C,00,00,10,00,00,00 
DATA 10,38,00,00,10,48,00,00,10,84 
DATA 00,00,10,84,00,00,10,94,00,00 
DATA 10,46,00,00,10,B0,00,00,10,C6 
DATA 00,00,10,00,00,00,10,D0,00,00 
DATA 10,D6,00,00,10,E0,00,00,10,EA 
DATA 00,00,10,F2,00,00,11,00,00,00 
DATA 11,04,00,00,11,18,00,00,11,32 
DATA 00,00,11,40,00,00,11,66,00,00 
DATA 11,80,00,00,11,94,00,00,11,B4 
DATA 00,00,11,CE,00,00,11,E8,00,00 
DATA 11,FA,00,00,12,00,00,00,12,12 
DATA 00,00,12,18,00,00,12,24,00,00 
DATA 12,30,00,00,12,42,00,00,12,50 
DATA 00,00,12,62,00,00,12,74,00,00 
DATA 12,44,00,00,12,54,00,00,12,02 
DATA 00,00,12,C8,00,00,12,CE,00,00 
DATA 12,DC,00,00,12,E2,00,00,12,E8 
DATA 00,00,12,E8,00,00,13,00,00,00 
DATA 13,0E,00,00,13,18,00,00,13,26 
DATA 00,00,13,2C,00,00,13,32,00,00 
DATA 13,3E,00,00,13,44,00,00,13,44 
DATA 00,00,13,50,00,00,13,54,00,00 
DATA 13,68, 00,00,13,70,00,00,13,9& 
DATA 00,00,13,A0,00,00,13,80,00,00 
DATA 13,0,00,00,13,00,00,00,13,E4 
DATA 00,00,13,EA,00,00,13,FA,00,00 
DATA 14,00,00,00,14,06,00,00,14,16 
DATA 00,00,14,24,00,00,14,24,00,00 
DATA 14,38,00,00,14,3E,00,00,14,48 
DATA 00,00,14,4E,00,00,14,50,00,00 
DATA 14,62,00,00,14,70,00,00,14,76 
DATA 00,00,14,86,00,00,14,90,00,00 
DATA 14,46,00,00,14,B0,00,00,14,BA 
DATA 00,00,14,C4,00,00,15,34,00,00 
DATA 15,44,00,00,15,4E,00,00,15,58 
DATA 00,00,15,86,00,00,15,90,00,00 
DATA 15,94,00,00,15,44,00,00,16,04 
DATA 00,00,16,16,00,00,16,20,00,00 
DATA 16,36,00,00,16,30,00,00,16,40 
DATA 00,00,16,46,00,00,16,50,00,00 
DATA 16,54,00,00,16,62,00,00,16,70 
DATA 00,00,16,74,00,00,16,88,00,00 


C3 
‚oo 
18,86 
00 
BL 
oo 
0a 
oo 
48 


.0R, 


1713 05 
171 br 
1715 er 
1716 Pu 
717 55 
1718 en 
1719 47 
3720 9 
1721 9X 
1722 K7 
1723 08 
1724 2a 
1725 »0 
1726 2 
1727 = 
1728 Eu 
2729 gb 
1730 ©0 
1731 08 
17327 
1733 0 
274% 
1735 57 
176 
1237 He 
1738 IC 
1739 Bu 
1740 Te 
1rkı 6 
1742 Ja 
1743 AL 
74h un 
1745 T6 
31746 B5 
177 18 
IMs Dr 
179 ar 
4750 17 
1751 au 
1752 a 
1753 ch 
1754 be 
1755 07 
1756 15 
1757 In 
1758 au 
1759 P& 
1760 Ko 
1761 BY 
1762 Ir 
1763 20 
1764 v5 
1765 40 
1766 yN 
1767 &5 
1768 Ve 
1769 9 
1770 43 
man 
ira 5ı 
1773 82 
IT 
2775 Ds 
1716 xa 
azrı ıı 
1778 si 
ar u 
1780 =U 
1781 35 
1782 20 
1783 21 
1784 He 
1785 x5 
1786 29 
1787 && 
1788 cu 
1789 In 
m» 
2791 ng 
1792 =5 
1793 u 
174 26 
1795 8: 
1796 2 


DATA 16,2,00,00,16,50,00,00,16,D6 
DATA 00,00,16,F0,00,00,17,04,00,00 
DATA 17,24,00,00,17,32,00,00,17,58 
DATA 00,00,17,64,00,00,17,70,00,00 
DATA 17,82,00,00,17,88,00,00,17,94 
DATA 00,00,17,40,00,00,17,82,00,00 
DATA 17,C0,00,00,17,D2,00,00,17,EA 
DATA 00,00,18,14,00,00,18,20,00,00 
DATA 18,26,00,00,18,34,00,00,18,34 
DATA 00,00,15,40,00,00,18,46,00,00 
DATA 18,54,00,00,18,62,00,00,18,68 
DATA 00,00,18,76,00,00,15,70,00,00 
DATA 18,86,00,00,18,80,00,00,18,98 
DATA 00,00,15,2,00,00,15,42,00,00 
DATA 18,54,00,00,18,04,00,00,18,CE 
DATA 00,00,18,DE,00,00,18,2E,00,00 
DATA 18,F6,00,00,19,06,00,00,19,18 
DATA 00,00,19,12,00,00,19,26,00,00 
DATA 19,36,00,00,19,30,00,00,19, 40 
DATA 00,00,19,54,00,00,19,54,00,00 
DATA 19,64,00,00,19,84,00,00,19,8E 
DATA 00,00,19,94,00,00,19,42,00,00 
DATA 19,48,00,00,19,88,00,00,19,02 
DATA 00,00,19,D0,00,00,19,D4,00,00 
DATA 19,28,00,00,19,FE,00,00,14,02 
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14 
= 


14,20,00,00,14,32,00,00,14,38 

),00,14, 50,00, 
»68,00,00,14, 
DATA 00,00,14,80,00,00,14,92,00, 
DATA 14,A0,00,00,1,50,00,00,14, 
DATA 00,00,14,28,00,00,14,R6,00,, 
DATA 14,FC,00,00,18,00,00,00,18, 
DATA 00,00,15,10,00,00,1B,11,00, 
DATA 1B,22,00,00,18,30,00,00,1B, 
DATA 00,00,13,48,00,00,18,54,00,, 
DATA 1B,64,00,00,18,74,00,00, 18,‘ 
DATA 00,00, 1B,AE,00,00,13,08,00, 
DATA 1B,22,00,00,18,FC,00,00,10, 
DATA 00,00, 1,00,10,26,00, 
DATA 10,20, »3E,00,| „ 

00,00, ıc, 

ıc, ‚oo, 

oo, ıc 

ıc, 00, 

00, ıc 

0, 

2D, 

oo, 

2, 


SRERENEASSETEHKEHSESESNSSE 


BBEBSESBESHEHSHSLSESESES 


8686858 


‚00, 
2. 
00; 
2, 
‚00, 
2, 
‚00, 
1E, 
00, 
1E, 
00, 


BESBEBSESESESHBSESSESHEHBBELHERSESES 
EBERZERERSBZAERZEESHEERERSEESESENERNS 


NSESESESESESLSEELBEELSER 
& 
® 


Eu SESESESESASESKE 
8 


® 

» 
BSEHSEEBBESEEBSE 
BSEHERSRZETNRERSL 


oo, 
00, 
2E, 
‚00, 
=, 


858 


[2 


58 


DATA 00,00,1E,B6,00,00,12,C0,00,00 
DATA 18,CA,00,00,18,D4,00,00,12,DE 

DATA 00,00,1E,22,00,00,1E,F0,00,00 
DATA 18,P6,00,00,1F,00,00,00,1F,1E 
DATA 00,00,1F,24,00,00,2F,24,00,00 
DATA 1F,56,00,00,1F,66,00,00, 17,26 
DATA 00,00, 1F,F2,00,00,1F,FC,00,00 
DATA 20,06,00,00,20,20,00,00,20,14 
DATA 00,00,20,20,00,00,20,26,00,00 
DATA 20, 30,00,00,20,34,00,00,20,3E 
DATA. 00,00,20,48,00,00,20,5,00,00 
DATA 20,68,00,00,20,72,00,00,20,7C 
DATA 00,00,20,86,00,00,20,8E,00,00 
DATA 20,94,00,00,20,94,00,00,20,%4 
DATA 00,00,20,A4,00,00,20,5C,00,00 
DATA 20,06,00,00,20,D0,00,00,20,D4 
DATA 00,00, 20,24,00,00,20,20,00,00 
DaTa 20,F2,00,00,20,F8,00,00,21,04 
DATA 00,00,21,10,00,00,21,28,00,00 
DATA 21,34,00,00,21,40,00,00,21,40 
DATA  00,00,21,64,00,00,21,70,00,00 
DATA 21,70,00,00,21,88,00,00,21,6 
DaT2 00,00,21,40,00,00,21,58,00,00 


Is & 


Listing 1. (Fortsetzung) 


DATA 21,04,00,00,21,22,00,00,21,E8 
DATA 00,00,21,F4,00,00,22,00,00,00 
DATA 22,14,00,00,22,20,00,00,22,2C 
DATA 00,00,22,38,00,00,22,52,00,00 
DATA 22,58,00,00,22,62,00,00,22,68 
DATA 00,00,22,72,00,00,22,70,00,00 
DaTa 22,84,00,00,22,92,00,00,22,90 
DATA 00,00,22,B2,00,00,22,08,00,00 
DATA 22,D6,00,00,22,PA,00,00,23,14 
DATA 00,00,23,20,00,00,23,46,00,00 
DATA 23,40,00,00,23,58,00,00,23,64 
DATA. 00,00,23,76,00,00,23,90,00,00 
DATA 23,96,00,00,23,AE,00,00,23,D8 
DATA 00,00,23,24,00,00,23,EA,00,00 
DATA 23,F8,00,00,24,06,00,00,24,0C 
DATA 00,00,24,12,00,00,24,10,00,00 
DATA 24,20,00,00,24,26,00,00,24,2C 
DATA 00,00,24,30,00,00,24,42,00,00 
DaTa 24,48,00,00,24,5,00,00,24,66 
DATA 00,00,24,72,00,00,24,78,00,00 
DATA 24,78,00,00,24,84,00,00,24,92 
DATA 00, 00,24,98,00,00,24,46,00,00 
DATA 24,54,00,00,24,B1,00,00,24,00 
DATA 00,00,24,06,00,00,24,D0, 00,00 
DATA 24,DA,00,00,24,22,00,00,24,R0 
DATA 00,00,24,F4,00,00,25,10,00,00 
DATA 25,26,00,00,25,34,00,00,25,58 
DATA 00,00,25,72,00,00,25,84,00,00 
DATA 25,4,00,00,25,AA,00,00, 25,30 
DATA 00,00,25,02,00,00,25,D4,00,00 
DATA 25, EE,00,00,25,4,00,00,26,00 
DATA 00,00,26,36,00,00,26,42,00,00 
Data. 26,48,00,00,26,56,00,00,26,64 
DATA 00,00,26,64,00,00,26,6E,00,00 
DATA 26,74,00,00,26,71,00,00,26,80 
DATA 00,00,26,92,00,00,26,40,00,00 
DATA 26,46,00,00,26,06,00,00,26,D4 
DATA 00,00,26,DE,00,00,26, ER, 00,00 
DATA 26, P4,00,00,27,00,00,00,27,00 
DATA 00,00,27,18,00,00,27,24,00,00 
DATA 27,20, 00,00,27,32,00,00,27,36 
DATA 00,00,27,30,00,00,27,42,00,00 
DATA 27,40,00,00,27,50,00,00,27,5E 
DATA 00,00,27,62,00,00,27,70,00,00 
DATA 27,90,00,00,27,48,00,00,27, AE 
DATA. 00,00,27,B4,00,00,27,D6,00,00 
DATA 27,D0,00,00,27,20,00,00,28,06 
DATA 00,00,28,24,00,00,28,38,00,00 
DATA 26,56,00,00,28,80,00,00,28, AA 
DATA 00,00,28,0C,00,00,28,D6,00,.00 
DATA 26,80,00,00,28,EA,00,00,28, F4 
DATA 00,00,29,50,00,00,29,40,00,00 
DATA 29,B2,00,00,29,88,00,00,29,BE 
DATA 00, 00,29,E0,00,00,29,R2,00,00 
DATA 29, F8,00,00,29, FE,00,00,2A,18 
DATA 00,00,24,30,00,00,24,44,00,00 
DATA 24,40,00,00,24,68,00,00,24,78 
DATA 00,00,24,70,00,00,24,82,00,00 
DATA 2A,98,00,00,24,9E,00,00,2,A6 
DATA 00,00,24,AC, 00, 00,24,B4,00,00 
DATA 2A,BA,00,00,24,02,00,00,24,C8 
DATA 00,00,24,4,00,00,24,FA,00,00 
DATA 28,22,00,00,28,48,00,00,28,96 
DATA. 00, 00,2B,90,00,00,2B,42,00,00 
DATA 28, 48,00,00, 28, AE,00,00,2B,B4 
DATA 00,00,28,C4,00,00,28,D2,00,00 
DATA 2B,DA,00,00,28,6,00,00,28,F2 
DATA 00,00,28,FE,00,00,20,04,00,00 
DATA 20,12,00,00,20,18,00,00,20,38 
DATA 00,00,20,64,00,00,20,6E,00,00 
DATA 20,82,00,00,20,8C,00,00,20,92 
DATA 00,00, 20,98,00,00,2C,B2,00,00 
DATA 20,BA,00,00,20,00,00,00,20,D2 
DATA 00,00, 20, F2,00,00,2D,10,00,00 
DATA 2D,14,00,00,20,10,00,00,2D,26 
DATA 00,00, 2D, 24,00, 00, 2D,D8,00,00 
DATA 2D,F6,00,00,2,08,00,00,2E,18 
DATA 00,00, 2E,24,00,00,2E,46,00,00 
DATA 28,44, 00,00,2E,88,00,00,28,98 
DATA 00,00,22,A4,00,00,2E,06,00,00 
DaTa 2E,0A,00,00,2F,35,00,00,2F,50 
DATA 00,00,2F,60,00,00,2F,64,00,00 
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1879, IV: DATA 2F,6E,00,00,2F,94,00,00,2F,AC 1896 «5 

1880 nb DATA 00,00,2F,BC,00,00,2F,06,00,00 1897 Ad 

1881 ED DATA 2F,CA,00,00,30,08,00,00,30,18 1898 YK 

882 Us DATA 00,00,30,22,00,00,30,26,00,00 1399 ıX 

1283 XQ DATA 30,58,00,00, .00,00,30,72 1900 zB 

1884 du DATA 00,00,30,76, 1901 LI 

1885 Y1 DATA 30,B4,00,00,30,C4, 1902 eo 

1886 x0 DATA 00,00,30,02,00,00,31,10,00,0f 1903 a 

1887 3y DATA 31,20,00,00,31,24,00,00,31,2E 1904 18 

1888 YD DATA 00,00,31,54,00,00,31,60,00,00 1905 Sn 

1R89 An) DATA 31,7C,00,00,31,86,0( 1906 $t DATA 00,00, 
1890 P5 DATA 00,00,31,B6,0 1907 uq DATA 35,44,00, 
1891 4 DATA 31,D8,00,00,3: 1908 7Q 

1892 x DATA 00,00,32,24, 1909 aa 

1893 xg DATA 32,3E,00,00,32,42,00, 1910 oy 

1894 VF DATA 00,00,33,E2,00,00, 911 zu 

1895 Fr, DATA 33,EA,00,00,33,EE,00,00,33,F2 1912 he 


DATA 00,00,33,F6,00,00,33,FA,00,00 
DATA 33, F8,00,00,34,02,00,00,34,06 
DATA 00,00,34,04,00,00,34,0E,00,00 
DATA 34,12,00,00,34,16,00,00,34,14 
DATA 00,00,34,18,00,00,34,22,00,00 
DATA 34,26,00,00,34,24,00,00,34,2E 
DATA .00,00,34,32,00,00,34,46,00,00 
DATA 34,54,00,00,34,6E,00,00,34,82 


DATA 00,00,34,AA,00,00,34,BE,00,00 
DATA 34,D2,00,00,34,E6,00,00,35,0E 
‚00,00,35,36,00,00 
,35,5E,00,00,35 
DATA 00,00,35,86,00,00,35,AE, 
DATA 35,D6,00,00,35,EA,00,00,35, FE 
DATA 00,00, 36, 12,00,00,36,26,00,00 
DATA 00,10,00,00,00,01,00,00,0E,2C 
DATA 00,00,0E,3E,00,00,0E,54,00,00 


68,00, 00,0E,AC, 00,00,0F,40 
00,00,0F,54,00,00,0F,64,00,00 
‚0F,82,00,00,0F,A0 
‚00, 0F,D0,00,00 
13,78,00,00,13,86,00,00,13,A4 
‚B6,00,00,15,B6,00,00 
0,00, 1E,B0,00,00,18,BA 
00,00,1E,C4,00,00,1E,0E,00,00 
1E,D8,00,00,1P,EE,00,00,1F,F& 
00,00,20,02,00,00,20,00,00,00 
20,16,00,00,00,00,00,00,03,F2 
A 00,00,03,E8,00,00,01,00,00,00 
03,F2 


1925 qK DAT 


(6) MT 


Listing 1. (Schluß) 


Der Konvertierer 


Von Andreas Lietz 


Mit dem »Amiga Object Editor« aus dem 
Sonderheft 2 konnte man zwar wunder- 
schöne Sprites entwerfen, aber sie ließen 


fehls nun mühsam die Farben 

einstellen, mit denen das Ob- 

jekt zuvor erzeugt wurde. 
Diese Arbeit nimmt Ihnen 


aben Sie schon einmal 

mit dem langsamen 

und _umständlichen 
Amiga-Basic-Objekteditor ge- 
arbeitet? Dann werden Sie es 
sehr zu schätzen wissen, daß 
Sie jetzt die Objekte Ihrer Träu- 
me komfortabel mit dem »Ami- 
ga Object Editor« (ADE) aus 
dem vorangehenden Artikel 
(Seite 6). 

»AOE-Convert«wandeltsie in 
das BOB-Format, auf das Sie 
mit Hilfe der OBJECT-Befehle 
des Amiga-Basice bequem Zu- 
griff haben. 

Da AOE-Convert in Assem- 
bler geschrieben ist, haben wir 
das Programm als Basic-Lader 
(Listing 1) abgedruckt. Assem- 
bler-Interessierte finden in Li- 
sting 2 den Quellcode des Pro- 
gramms. 

Tippen Sie bitte Listing 1 mit 
Hilfe des Checksummers auf 
Seite 159 ab und speichern es, 
als »AOE-Convert.bas«. Nach 
dem Start mit »RUN« erzeugt 
der Basic-Lader das lauffähige 
Programm »AOE-Convert« auf 
Diskette. 

Dieses Programm rufen Sie 
durch Eingabe seines Namens 
aus dem CLI auf; Sie können 
ihm auch mit dem CLI-Befehl 


copy icon.info 
AOE-Convert.info 


ein Icon zuweisen und das Pro- 
gramm über die Workbench 
aufrufen. 

Die Anwendung des Pro- 
gramms ist ganz einfach: Nach- 
dem Sie es gestartet haben, er- 
scheint am oberen Bildschirm- 
rand ein Fenster (Bild 1), indem 
nach der AOE-Datei gefragt 
wird. Geben Sie also den Na- 


sich nicht mit Amiga-Basic verwenden. Mit 
»AOE-Convert« bauen Sie diese Objekte 
problemlos in Ihre Basic-Programme ein. 


INane der AOE-Datei: Ball 
INane der BASIC-Datei: Ball.bob 
jöb jektnumer: 1 


a0) 


Bild 1. Das Fenster von »ADE-Convert« 


men der Datei ein, die Sie kon- 
vertieren wollen. 

Nun fragt das Programm 
nach der Datei, in die das kon- 
vertierte Objekt geschrieben 
werden soll. 

Als letztes erfolgt die Frage 
nach der Objektnummer. Ami- 
ga-Basic kann nämlich nur ein- 
zeine BOBs in einer Datei verar- 
beiten - AOE speichert aber un- 
ter Umständen mehrere Objek- 
te zusammen auf Diskette. 

Wenn Sie auf diese Frage mit 
<RETURN> antworten, wird 
das erste Objekt der Datei kon- 
vertiert. Falls das Programm 
nach dieser Frage kommentar- 
los abbricht, ist ein Fehler auf- 
getreten. 

Möglicherweise wurde die 
Quelldatei nicht gefunden oder 
sie war keine ADE-Datel. Auch 
beim Schreiben der Zieldatei 
kann etwas nicht funktioniert 
haben. 

Nachdem das Objekt konver- 
tiert wurde, fragt das Programm 
nach dem Namen eines weite- 
ren Objekts. Ist alles konver- 
tiert, verlassen Sie »ADE-Con- 
vert«, indem Sie <RETURN> 
ohne zusätzliche Eingabe drük- 
ken. 
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Achtung: Sie sollten nach 
dem Konvertieren die ADE-Da- 
tei nicht löschen! Vielleicht 
möchten Sie ja später noch ein- 
mal an dem Objekt arbeiten. 
‚Außerdem wird diese Datei für 
die richtige Einstellung der Far- 
ben im Basic-Programm benö- 
tigt. 

Die konvertierten BOBs las- 
sen sich ganz normal mit dem 
OBJECT.SHAPE-Befehl von 
‚Amiga-Basic laden. Sie werden 
in der richtigen Größe ange- 
zeigt, wenn Sie einen niedrig- 
auflösenden Screen (320 x 256 
Punkte) mit 16 Farben verwen- 
den. Damit das Objekt die rich- 
tigen Farben bekommt, müßte 


das kleine Programm in Listing 
3 ab. Es macht sich die Tatsa- 
che zunutze, daß der Amiga 
Object Editor in seinen Dateien 
die Farben des Objektes mit 
speichert. 

Bauen Sie Listing 3 an einer 
Stelle Ihres Programms ein, an 
der der Screen und das Fenster 
bereits geöffnet wurden, in de- 
nen sich Ihr Objekt bewegen 
soll. Wenn Sie in den OPEN- 
Befehl in Zeile 2 den Namen Ih- 
rer ADE-Datei einsetzen, wer- 
den die Farben automatisch 
richtig eingestellt. Ein Beispiel, 
bei dem das Objekt auf dem 
Bildschirm bewegt wird, sehen 
Sie in Listing 4. 

Natürlich müssen Sie auch 
hier in Zeile 4 und 15 die OPEN- 
Befehle entsprechend anpas- 


sen. 

Damit haben Sie von Basic 
aus Zugriff auf die Dateien des 
»Amiga Object Editor« (AOE) 
aus dieser Ausgabe (Seite 6). 

Sie stellen mit ADE einen 
BOB her, bringen das Ergebnis 
mit Hilfe von AOE-Convert auf 
Basic-Format und binden diese 
Datei als BOB in Ihre eigenen 


man mit Hilfe des Palette-Be- Programme ein. kn 
Programmname: AOE-Convert.bas 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
oder 1.3 
Sprache: Amiga-Basic 
Bemerkung: Basiclader für »ADE-Convert« 


‚AMIGA-SONDERHEFT 9 


GaRAFıK 


7 yB2 
EN 


art 
20,78 
um 
an 
23% 


Sn 


ABS READ anz 
"568. FOR i=1 T0 anz 
6 nl READ h$ 


wert1=ASC(LEFT$(h$,1)) 

IF wert1>64 THEN werti=wert1-87 
BLSE wertiswert1-48 
wertiswerti816 

wert2=4SC (RICHT$(h3,1)) 

IF wert2>64 THEN wert2=wert2-87 
BISE wert2=wert2-48 
wertswertiwert2 

PRINT #1,CHRS(wert); 


14,200 nExT 

CLOSE 1 

A607 mm 

Werte: 

DATA 1092 

DATA 00,00,03,23,00,00,00,00,00,00 
DATA. 00,03,00,00,00,00,00,00,00,02 
DATA. 00, 00,00,aa,00,00,00,19,00,00 
DATA. 00,0,00,00,03,e9,00,00,00,a« 
DATA 20,78,00,04,93,09,4e,ae,fe,de 
DATA 28,40,48,a0,00,20,66,16,41,ec 
DATA 00,50,4e,ae, fe,80,41,e0,00,3€ 
DATA 4e,ae,fe,80,23,c0,00,00,00,00 
DATA 43, £9,00,00,00,00,70,00,4e,ae 
DATA 24,8,23,00,00,00,00,04,67,00 
DATA 01,04,20,79,00,00,00,04,22,3c 
DATA 00,00,00,06 ,24,3,00,00,03,ed 
DATA de, ae, £f,e2,23,00,00,00,00,08 
DATA 67,00,01,04,22,39,00,00,00,08 
DATA 24, 36,00,00,00,28,61,00,02,2c 
DATA de,ae,f?,d0,22,39,00,00,00,08 
DATA 24,36,00,00,00,00,76,32,4e,.e 
DATA £,06,53,00,67,00,01,98,41,29 
DATA 00,00,00,06,42,30,00,00,22,39 
DATA 00,00,00,08,24,30,00,00,00,34 
DATA 61,00,01,16,4e,ae,£?,00,22,39 
DATA. 00,00,00,08,24,30,00,00,00,48 
DATA 76,32,4e,ne, £1,d6,53,00,67,00 
DATA 01,62,41,29,00,00,00,48,42,30 
DATA 00,00,22,39,00,00,00,08,24,3c 
DATA 00,00,00,54,61,00,01,00,4e,ae 
DATA £?,40,22,39,00,00,00,08,24,3c 
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Eeu4 


52 #4 


er 
15 
3% 


65h 


ziar 
Zr 


74 3D 
75 ür 


80 
ar tr 


3380 


5,9 


00,00,00,86,76,04,48,ae,17,d6 
53,00,68,04,78,01,60,32,41,19 
00,00,00,26,41,10,00,00,7e,00 
7e,00,1e,20,67,20,9e,3c,00,30 
10,20,67,18,90,30,00,30,c, fe 
00,08, de,46,10,20,67,08,90,3c 
00,30, ce, f0,00,64,88,46,33,07 
00,00,00,86,22,30,00,00,00,0e 
24,30,00,00,03,2d,4e,ae,1?,e2 
23,00,00,00,00,86,67,00,00,48 
22,39,00,00,00,80, 24, 36,00,00 
09,94,76,26,42 ‚2e,27,86,41,19 
00,00,00,%,00,90,41,42,45,20 
66,00, 00,56,22,39,00,00,00,8c 
34,39,00,00,00,86,53,42,c4,£0 
02,80,76,00,4e,2e,f? be, 22,39 
00,00,00, 80,2, 30,00,00,00,3% 
26,3°,00,00,02,00,42,2e,17,46 
22,39,00,00,00, 82, 4e ae, ff,de 
42,59, 00,00,00,80,22,30,00,00 
00,48,24,32,00,00,03,ee,4e,ae 
ff,e2,23,00,00,00,00,90,67,00 
00,5e,41,29,00,00,02,94,42,98 
42,98,20,£0,00,00,00,04,7a,20 
20,05,20,05,30,£0,00,18,30,fc 
09,08 ,42,58,22,39,00,00,00,90 
24,30,00,00,02,94,76,12,42,2e 
#2,40,22,39,00,00,00,90,24,3c 
00,00,00,94,26,30,00,00,02,00 
4e,ae,£2,60,22,39,00,00,, 
42,28, ££,40,42,59,00,00,, 
60,00, fe,40,48,09,00,00,, 
67,10, 2,79,00,00,00,04,22,39 
00,00,00,90,4e,e,f,d0,42,59 
00,00,00,86,67,10,20,79,00,00 
00,04,22,39,00,00,00,8c,4e,ae 
f?,40 ,4a,09,00,00,00,08,67,10 
2<,79,00,00,00,04,22,39,00,00 
00,08,4e,ae, ??,de,4a,b9,00,00 
00,04,67,08,20,78,00,04,22,79 
00,00,00,04,4e,ae,te,62,42,b9 
00,00,00,00,67,06,20,78,00,04 

79,00,00,00,00,48,28, 18,86 
70,00,42,73,20,42,76,00,48,18 


ExecBase 
FindTask 
WeitPort 
Getlisg 
Replylisg 
CloseLibrary 
OpenLibrary 
Open 

Close 

Read 

Write 

Beck 

urvent 
readüniy 
neuFile 


Hove.1 ExeoBase,A6 
Sub.1 Al,AL 

Jar FindTask(46) 
Move.1 DO,A4 
Tst.1 Sac(a4) 


Lea 85c(A4),A0 


Listing 2. Für 

Bne.s Start £ 

Lea $5c(A4),A0 Assembler-Interessierte: 
Jsr WaitPort(46) das Quellprogramm 


von »AOE-Convert« 


DaTa 
DATA 
DATA 
DATA 
Daza 
Data 
{Data 
Data 
Dara 
DATA 
DATA 
DATA 
Dara 
DATA 
DATA 
DATA 
DaTa 
DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ae DATA 
DATA 
DATA 
DATA 
(c) 1989 Mar 


Listing 1. Der Basic-Lader 
für »AOE-Convert« 


; DOS-Library öffnen 


Programmname: AOE-Convert Jsr GetMag(A6) 
Computer: A500, A1000, A2000 mit Kickstart 1.2 Bee 
oder 1.3 Start: 
Lea DoSName,at 
Spracht Assembler Moveq #0,D0 
Bornerkung ugs Jer OpenLibrary(A6) 
Move.1 DO,D0SBase 
5 AöRConvert aeg 
ne Berner 
3 % Move.i #Fenster,Di 
5 Michael Bertsch Nove.l #readOnly,D2 


Jar Open(46) 
Move.1 DO,PensterHandle 
Beq Ende 


Schleife: 
Hove.1 FensterHanäle,D1 
Wove.1 #A0ZFileFrage,D2 
Bsr Länge 
Jsr Write(46) 

Nove.1 Fensterfienäle,D1 
Move.1 #A0EPilelane,D2 
Noveq #50,D3 

Jer Resa(16) 

Subq.b #1,D0 

Beq Inte 
Lea AUEFileNene,40 
Cir.b (40,00) 

Move.1 FensterHandie,D1 
Move.1 #BASICFileFrage,D2 
Bar Länge 

Jsr Write(a6) 

Nove.1 FensterHandie,D1 
Move.1 #BASICFileNane,D2 
Moveg #50,D3 

Jar Read(a6) 


; Fenster öffnen 


; Frage nach den 1. Dateinanen 


; Frage nach den 2. Dateinanen 


; 2. Dateinanen holen 


Dateinanen holen 


=] 


67,04,52,83,60,28,4e,75,00,00 
00,00,03,ee,00,00,00,05,00,00 
60,01, 00,00,00,22,00,00,00,46 
00,00,00,66,00,00,00,90,00,00 
00,d2,00,00,00,32,00,00,00,02 
00,00,00,24,00,00,00,36,00,00 
'00,40,00,00,00,56,00,00,00,60 
00,00,00,74,00,00,00,72,00,00 
00,80,00,00,00,96,00,00,00,3a 
00,00,00,b0,00,00,00,02,00,00 
00,cc,00,00,00,e0,00,00,00,e6 
00,00,00,f2,00,00,01,20,00,00 
01,32,00,00,01,42,00,00,01,4c 
00,00,01,52,00,00,01,5e,00,00 
01,6e,00,00,01,74,00,00,01,86 
00,00,01,80,00,00,01,90,00,00 
01,26,00,00,01,30,00,00,01,be 
00,00,01,06,00,00,01,e6,00,00 
01,ec,00,00,01,?8,00,00,01,fe 
00,00,02,08,00,00,02,18,00,00 
02,22,00,00,02,22,00,00,02,30 
00,00,02,38,00,00,02,42,00,00 
02,48,00,00,02,52,00,00,02,5a 
00,00,02,60,00,00,02,63,00,00 
'02,76,00,00,02,80,00,00,02,8c 
00,00,00,00,00,00,03,2,00,00 
03,e8,00,00,00,19,64,62,73,2e 
60,69,62,72,61,72,79,00,43,4£ 
48,38,30,28,30,21,36,34,30,20 
35,30,2£,20,41,41,45,43,6f,6e 
76,65,72,74,20,00,48,61,64,65 
20,64,65,72,20,41,42,45,24,44 
61,74,65,69,32,20,00,4e,61,6d 
65,20,64,65,72,20,42,41,53,49 
43,24,44,61,74,65,69,38,20,00 
42,62,68,65,60,74,68,75,6d,6d 
65,72,32,20,00,00,00,00,03,12 
00,00, 03, eb,00,00,00, a0,00,00 
03,12 
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Subq.b #1,D0 

Beq Ende 

Lea BASICFilellane, a0 

Cir.b (A0,D0) 

Move.1 Fensterliandie,Dl ; Frage nach der Objektnummer 
Move.1 #0bjektnunmerFrage,D2 

Bsr Länge 

Jar Weite(46) 

Nove.1 Fenstertiandle,D1 
Nove.1 #Nunmer,D2 
Moveq #4,D3 

Jsr Read(46) 

Subq.b #1,D0 

Bne.s Rechnen 

Noveq #1,D7 

Bra.s Weiter 


; Objektnummer holen 


Rechnen: 
Les Nunner,A0 
Lee (40,D0),A0 
Hoveq #0,D7 
Noveq #0,D6 
Nove.b -(A0),D7 
Beq.s Weiter 
Sub.b #48,D7 
Yove.b -(A0),D6 
Beq.s Weiter 
Sub.b #48,D6 
Mulu #10,D6 
Add.x D6,D7 
Nove.b -(A0),D6 
Beg.s Weiter 
Sub.b #48,D6 
Mulu #100,D6 
add.w D6,D7 


; Objektnunner errechnen 


Weiter: 
Nove.w D7,Numer . 
Nove.1 #A0EFileNane,D1 
Nove.1 #readoniy,D2 
Jsr Open(A6) 

Hove.1 DO,AOEFileHendle 
Beq Ende 

Move.1 AOEFileliandle,Dl 5; Objekt einlesen 
Move.1 #Puffer,D2 

Noveq #38,D3 

‚Jsr Read(A6) 

Lea Puffer,A0 

Cmp.1 #"A0E *,(A0) 

Bne Ende 

Yove.1 AOEFi1eHendle,D1 
Yove.« Nummer, D2 

Subg.» #1,D2 

Mulu #640,D2 

Moveq #eurrent,D3 

Jsr Seek(46) 

Nove.1 AOBFileHandle,D1 
Nove.1 #Puffer,D2 
Move.1 #512,03 

Jer Read(46) 

Move.1 AOEFiletandle,Di 
Jer Olose(46) 

Cir.1 A0EFileHandle 
Hove.1 #BASICFileName,D1 
Nove.1 #newFile,D2 

dsr Open(46) 

Nove.1 DO,BASICFileHandle 
Beq Ende 

Lea Puffer2,A0 

Cir.2 (A0)+ 

Clr.1 (40)+ 

Move.1 #4,(10)+ 

Noveq #32,D5 

Move.1 D5, (40)+ 

Move.1 D5,(A0)+ 

Kove.ı #24, (80)+ 

Move.# #15, (40)+ 

Cir.u (A0)+ 

Nove.1 BASICFileHandle,D1 
Move.1 #Puffer2,D2 
Noveg #26,D3 

Jsr Write(A6) 

Nove.1 BASIOFileHanäle,Di 
Yove.1. #Puffer,D2 


; AUE-Datei öffnen 


; AOE-Datei schließen 


5 BASIO-Datei öffnen 


; BASIO-Datei erstellen 


Hove.1 #512,D3 

Jar Write(46) 

Nove.1 BASICFiLeHendle,D1 
Jsr 010se(36) 

Olr.1 BASIOFILeHandle 
Bra Schleife 


Ende: 

Tst.1 BASICFileHandle 
Beq.s BASICRILeZu 

Move.1 DOSBase,A6 

Move,1 BASIOFileHandle,D1 
Jar Olose(46) 


BusIcritezu: 
Tst.1 AOEFileHlandle 
Beq«s AOBFileZu 

Yove.1 DOSBese,A6 
Hove.1 AOEFileHandle,D1 
Jsr Close(46) 


AOEFLLeZu: 
Tst.1 Fensterllandle 
Beg«s Keinfenster 
Yove.1 DOSBese,A6 
Hove.l FensterHandle,Di 
Jsr Close(46) 


Keinrenster: 
Tst.1 I SBase 
Beq.s KeineDOSLibrary 
Move.1 ExecBase,A6 
Move.1 DosBase,Al 
Tsr CloseLibrary(A6) 


KeineDoSLibrary: 
Tst.1 WBNSg 

Beq.s KeinewBliag 
Nove.1 ExecBase,46 
Nova.ı WEMSg,AL 
Jar Replylisg(46) 


Keinewällsg: 
Moveg #0,D0 
Rts 


Länge: 
Nove.1 D2,20 
Noveg #0,D3 


101: 
Tst.b (A0)+ 
Beg.s 102 
Addq.1 #1,D3 
Bre.s 101 


102: 
is 
Date 


DOoSName: Do.b "dos, Library”,0 
Fenster: Do.b "CON:0/0/640/50, 
A0kFilefrage: De.b "Wane der 
BASICFileFrage: De.b "Name de: 


Objektnunmerfrege: De.b "Objektnummer: ",0 


Bes 
er 


WEMsg: Do.1 0 
DOSBase: De.1 0 
FensterHandle: De.1 0 
AOEFileName: Blk.w 30 
BASICFileNane: Bik.w 30 


De.# 0 


Nummer: Bik.w 3 
A0EFileiiandle: De.1 0 
BASICFileHandle: De.1 0 
Puffer: BIk.1 128 
Puffer2: Bik.w 13 


End (e) 1989 MET 


; BASIO-Datei schließen 


; BASIO-Datei schließen 


5 AOE-Datei schließen 


; Fenster schließen 


DOS-Library schl 


; Länge des Textes ermitteln 


/ A0BConvert *, 
AOE-Datei: ",0 
7 BASIC-Datei: ",0 


ıg 2. (Schluß) 
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GRAFIK 


Programmname:. Farb-Lader 
Computer: A500, A1000, A2000 mit Kickstart 1.2, 1.3 
Sprache: Amiga-Basic 
Bemerkung: Zum Einbau in eigene Programme 


e n 
IN a8 = INPUIS 
48y FOR ie 0 
SWi2 08-1 
2 b8e 
73% 


AND 240)/256, (ASC (b 


9 xh CLOSE 1 
(6) 1989 MAT 


Listing 3. Dieses Programm stellt die richtigen 
Farben für ein Objekt ein 


| 
Programmname: BOB-Move 
Computer: A500, A1000, A2000 mit Kickstart 1.2, 1.3 
Sprache: Amiga-Basic 
Bemerkung: _ Bitte richtige Dateinamen einsetzen! 


‚erlesen 


)/16,(ASC(b$) AND 240)/256,(ASC ( 


der konvertier 


Listing 4. Ein Beispielprogramm, das mit 
konvertierten Objekten arbeitet 


Von Peter Sparlinek 


auberei 
mit Bildern 


Ob in Stein gemeißelt oder nur aus Umris- gemacht werden, die ganz an- 


sen bestehend. »IFF _Filter«macht aus Ih- ders aussehen, Ge al dla vor 


en Begriff Textverarbei- 
tung kennt jeder. Doch 
genau wie man Text 
verarbeiten kann, ist dies auch 


ren Farbbildern neue fantastische Grafiken. 
Probieren Sie es doch einfach einmal aus. 


Tiefpaßfilter, den Gradientenfil- 
ter, etc. Jeder dieser Filter hat 
eine andere Aufgabe. Der Tief- 
paßfilter filtert, wie der Name 


bei Bildern möglich. Bildverar- 
beitung ist ein interessantes 
Thema. Tolle Effekte lassen 
sich damit erreichen. Doch wie 
geht das? »IFF_Filter« zeigt es 
Ihnen. Sehen Sie sich doch ein- 
mal die Beispielbilder an. Bild 1 
ist das Original, das wir mit ver- 
schiedenen Filtern behandelt 
haben. Die Ergebnisse sehen 
Sie in Bild 2 bis 4. 

Filter spielen in der Bildverar- 
beitung eine große Rolle. Aus 
»normalen«, farbigen Bildern 
können Bilder mit Grautönen 


nes O MECOMPUTERWORLD. COM 


Peter Sparlinek 


Den ersten Kontakt zu einem Com- 
modore PET 2001 hatte Peter Sparli- 

nek im Jahr 1980. Nachdem Basic zu 
langsam wurde, erfolgte der Umstieg 

auf 6502-Assembler. Die nächsten Schrit- 
te waren ein VC20 (1983) und ein C64 


(1985). Zwei Jahre später wurde ein Amiga 500 
angeschafft, auf dem der Autor vornehm- 

lich in C programmiert. Den Anstoß 

zu IFF_Filter erhielt Peter Sparli- 

nek in seinem Informatikstudium. 


schon sagt, die hohen Frequen- 
zen aus einem Bild, Unter hohen 
Frequenzen versteht man bei 
Bildern den häufigen Wechsel 
von Farben. Nebenbei entsteht 
der Effekt der Unschärfe. Je grö- 
Ber der Filter, desto stärker wird 
die Unschärfe. Mit dem Gra- 
dientenfilter kann man sehr gut 
die Kanten von den Objekten 
des Bildes hervorheben, wäh- 
rend Flächen mit gleicher Inten- 
sität (gleicher Farbe) dabei ver- 
schwinden. Man erhält also im 
neuen Bild die Farbübergänge. 


ai 


Ma-/LaN 


Bild 1. Das Originalbild mit einer Auflösung von 320 x 200 Punkten und 32 Farben 


Filter - was ist das nun genau und wie funktioniert es? Diese Fra- 
ge soll am Beispiel des 5x 3-Tiefpaßfilters beantwortet werden. Der 
Tiefpaß berechnet den durchschnittlichen Grauwert in einer defi- 
nierbaren (hier 5x3) Umgebung. Man kann ein Bild in Form einer 
Matrix darstellen, deren Elemente die Grauwerte beziehungsweise 
die Farbe enthalten. Ebenso kann man den 5x3-Tiefpaßfilter als 
Matrix darstellen. 

Die Breite der Filtermatrix ist hier 5, die Höhe 3. Weil es ein Tief- 
paßfilter sein soll, haben alle Elemente den Wert 1. Der zentrale 
Punkt der Filtermatrix ist der Mittelpunkt. Jetzt wird die Filtermatrix 
auf das Bild gelegt und alle Grauwerte des Bildes werden mit dem 
entsprechenden Wert der Filtermatrix multipliziert und die Produk- 
te anschließend aufsummiert. Die Summe wird anschließend 
durch die Summe der Filtermatrixelemente (hier 15) dividiert und 
schon hat man den Grauwert, den das neue Bild an der Stelle unter 
dem zentralen Punkt annimmt. Dieses Verfahren wird für alle Bild- 
punkte angewandt. 

Der Inhalt der Filtermatrixelemente legt fest, um was für einen 
Filter es sich handelt. Eine Übersicht über einige Filter sehen Sie 
in der Tabelle. 

Wie man dem Namen nach schon vermuten kann, bearbeitet 
IFF__Filter Bilder, die im IFF-Standard vorliegen. Praktisch alle 
Malprogramme auf dem Amiga verwenden dieses Format. Dabei 
spielt es keine Rolle, ob ein Pinsel (Brush) oder ein Overscan-Bild 
(besonderes Grafikformat des Amiga) verarbeitet wird. Eine Aus- 
nahme sind Bilder im HAM-Format, sie können nicht gefiltert wer- 
den. 

IFF_Filter liefert als Resultat wieder ein IFF-Bild, man kann also 
die erzeugten Bilder mit den üblichen Programmen weiterbearbei- 


Bild 2. Das Originalbild (siehe Bild 1) nach der 
Umwandlung in Grautöne ohne Filter 
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ten. IFF_Filter liest ein Bildein, 
wandelt es in ein Graubild 
(16 Farben) um, läßt den Filter 
über das Bild laufen und spei- 
chert es auf Diskette. Bei 512 
KByte Speicher kann es zu 
Speicherproblemen kommen, 
wenn ein Bild mit 640x512 
Punkten und 16 Farben verar- 
beitet werden soll. 

Der Aufruf im CL! sieht fol- 
gendermaßen aus: 


IFF_Filter <Dateiname> 
[Paraneter...] 
Hierbei ist <Dateiname> 


der Name des IFF-Bildes (ge- 
gebenenfalls mit Pfad). Es exi- 
stieren folgende Parameter: 

-d<Dateiname> 

Das erzeugte Bild wird nach 
<Dateiname> geschrieben. 
Wenn diese Option fehlt, hängt 
IFF_Filter ».Filter« als Na- 
menserweiterung (Suffix) an, 
gegebenenfalls auch die Filter- 
größe. 

+i 

Während des Programmlaufs zeigt IFF_Filter die aktuelle Funk- 
tion an. 

-n 

Das erzeugte Bild wird negativ (nicht bei LOW und OWN). 


va 


Das erzeugte Bild wird ungepackt gespeichert. Die Voreinstel- 
lung ist gepackte Speicherung. Sollte ein von IFF_Filter generier- 
tes Bild nicht von Ihrem Malprogramm geladen werden, probieren 
Sie diesen Parameter. 

-h<X> 

Für <X> sind Werte von 1 bis 4 erlaubt. Das Eingabebild wird 
aufgehellt. Bei dem Wert 1 verwendet IFF_Filter normale Hellig- 
keit. Setzen Sie 4 ein, wird das Bild stark aufgehellt. 

-<typ> 

Hiermit geschieht die Auswahl des Filters. Für <typ> können 
Sie folgende Parameter eingeben: 

ID - Nur Umwandlung in Grautöne 

REL1 - Relieffilter vertikal 

REL2 - Relieffilter diagonal 

GRA1 - Gradientenfilter diagonal 

GRA2 - Gradientenfilter vertikal 

GRA3 - Gradientenfilter alle 8 Richtungen 

LOW - Tiefpaßfilter 

OWN - selbst zu definierender Filter 

Ein Beispiel verdeutlicht die möglichen Aufrufe: 


cape -h3 -p -REL1 


Das IFF-Bild »Seascape« wird geladen und in ein Graubild um- 
gewandelt. Dabei wird um den Faktor 3 aufgehelit. Nach dem Tief- 


Bild 3. Das Originalbild (siehe Bild 1) bearbeitet mit dem 
Relieffilter 2 und Aufhellung um den Faktor 4 
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paß wird das gefilterte Bild ungepackt unter dem Namen »Sea 
scape.Filter« gespeichert. 

Natürlich sind auch Kombinationen der verschiedenen Filterar- 
ten verwendbar: 


IFF_Filter DHO:Pie +i -dRAM:Bild -REL1 -GRA2 


Diesmal lädt IFF_Filter das Bild »Pic« von der Festplatte DHO: 
und wendet den ersten Relieffilter und den zweiten Gradientenfilter 
darauf an. Dann speichert das Programm das Bild in der RAM-Disk 
unter dern Namen »Bild«. Während des Vorgangs werden Informa- 
tionen zum Programmlauf ausgegeben. 

Mit dem Parameter »-OWN« sind Sie in der Lage, eigene Filter zu 
definieren. Dem Einfallsreichtum sind hier keine Grenzen gesetzt. 
Wählt man diese Option, fragt IFF_Filter zuerst nach der Größe 
der Filtermatrix. Diese muß ungerade sein, damit ein zentraler 
Punkt eindeutig festgelegt ist. Dies ist aber keine Einschränkung, 
denn man kann eine 2x2-Matrix in eine 3x3-Matrix einbetten, in- 
dern man die restlichen Zeilen und Spalten mit 0 füllt. Mit Ausnah- 
me der Nullmatrix (alle Elemente sind 0) sind alle Matrizen erlaubt. 
In der Regel erzielen die Matrizen die besten Ergebnisse, die aus- 
‚gewogen sind, das heißt die Summe aller Elemente ist Null. Für 
den eigenen Filter gilt, wie so oft, das Sprichwort: »Probieren geht 
über Studieren«. Rene Beaupoil/kn 


Bild 4. Das Originalbild (siehe Bild 1) bearbeitet mit dem 
Gradientenfilter 3 und Aufhellung (Faktor 4) 


Bedeutung 


‚Tiefpaß: Breite und Höhe der Matrix. 
" variabel (hier 7x3); Matrix mit 1 
‚gefüllt. Unschärfe und Störpunkte 
verschwinden 


Relleffilter 1 (vertikal): 
Bild wie aus Stein gemeißelt. Um 
den Relieffitter horizontal zu 
bekommen, muß die Matrix um 90 
Grad gedreht werden. 


= Gradientenfilter 1 diagonal: 
Hervorheben der Kanten in 
diagonaler Richtung 


Hr 


Gradientenfilter 3 
(alle 8 Richtungen): Hervorheben 
der Kanten in allen 8 Richtungen. 


He 
+1 -8 +1 
+1 +1 +1 


Tabelle. So sehen die verschiedenen Filtermatrizen aus, 
die in optimierter Form berechnet werden 


AMIGA-SONDERREETg HOMECO MPLTERWOR.D.SOM 


rogrammautor: Peter Sparlinek 


#include <stälo.h> 
<exec/exec.h> 
<1ibraries/dos.h> 
2) #define HIN(a,b) (a<b) 
352 #define ABS(x) (x>0)2(: (2)) 
S0X) #define INFO(s) if(info)puts(s) 
TIE long AMylock; 
BZ# struct FileInfoBlock MyInfo; 
924 long adr; 
20.36 cher *aktuell; 
ii gb FILE #in,sout,*fopen(); 
2 int o,1,J,k,filtertyp, fnset=0,neg=0; 
1349 char *natrix,*erg,Zeile[100],string[60],text[5],c; 
el} long heip,colors[32]; 
1568. unsigned char bahd[25],jJ,rot,blau, gruen; 
16 WE int helligkeit,width,anzbyte,height,ddepth,depth,f_anz, line 
s,info,count,pack, 
planes, kompress=-10; 
18 7HD) cher £o[]=| 0x46,0x4f,0x52,0x4d,0x00, 0x00,0x00, 0x00, 
19 38 0x49,0x40,0x42,0x4d] ; 
20 &$0| char cn[J=| 0x43,0x44,0x41,0x50,0x00,0x00,0x00,0x30, 


21 FAB 0x00,0x00, 0x00,0x10, 0x10,0x10, 0x20,0x20, 0x20, 
2m 0x30,0x30, 0x30,0x40, 0x40,0x40, 0x50,0x50,0x50, 
ar 0x60,0x60, 0x60,0x70, 0x70,0x70, 0x80,0x80, 0x80, 
24 ce 0x90,0x90,0x90,0xa0, 0xa0, 0xa0,0xb0,0xb0,0xb0, 
25 vr 0xc0, 0200, 0xc0,0xd0,0xd0,0xd0,0xe0,0xe0, 0xe0, 
26 MR Ox£0,0xf0,0x£0] ; 

(ZU AD JuaHAHHnHnuRKReRHAnsaeenaeake main KARARKAKKKEERK 

Erereerer? 


ZBNs main(argc,argv) 
SEE int arge; 
BOB) cher *targv; 


31 Ru | 

BERK int ce; 

BER Long m; 

Shi char s[20]; 

35 FE helligke: Itertyp=0;text[4]=0,pack=1,info=0; 
SEAN, !rlarge<2 Il !strenplargv[1],"?”) II 1>99) Hilfe(); 
3703 tor(ir2;1<arge;i+) 

ser | 

39 Ha 

0.48 ‚2) I tstrnnp(s, ”-@",2)) 
273 

42 ür3 

308 ing,&s[2]); 

412 


45a for(k=-0;k<strien(s);k 
ZE0E  ifl!stremp(s,”-N”))n 
E7pä else ifl!stremp(s, "+I”))info=s1; 

4sik else 1f(!strenp(s,”-P”))pack=0; 

226 else ir(!stmemp(s,“-H",2)) 

SB | 

SEUB iffsirlen(s)=-3) 

5292| 1r(s[2]>'0' 88 s[2]<'5t) helligkeit=s[2]-"01; 
22 | 


)s[kJ=toupper(s[k]); 


5332| Readiff(argv[1]); /* Liest IFF-Bild ein #/ 
5633 seizen(erg,widththeight, 0x0); 

5222, Col to_grey(); /* Umwandlung in Grautöne %/ 
5800, for(i-2;i<arge;im) 

a | 

0e72 strepgis,ergv[i]); 

633 forlk-0;E<strien(s);k++)s[k]=toupper(s[k]); 
cap(s, "-ID"))IA(); 

(!streap(s, ”-REL1”))Relief1(); 
BEBBE <ise 1F(!strenp(s, "-REL2”))Relief2(); 


Listing. Bildverarbeitung mit »IFF_Filter«. 
Bitte mit dem Checksummer (Seite 143) eingeben. 
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else if(Istrenp(s, ”-GRAL”)JAbleitungi(); 
else if(!stremp(s, ”-GRA2”))JAbleitung2(}; 
else if(!stremp(s, "-CRA3”))Ableitung3(); 
else if(!strenp(s, "-LOW” ))Tiefpass(); 
else if(1stremp(s, "-OM” ))Om(); 


= if(!fnset) 
{ 
strepy(string,argv[1]); 


stroat(string, ”.Filter 
if(neg) streat(string, 


42(! (out=fopen(string, "w”))) exit(puts("Kenn Zieldetei nie 
ht öffnen! \n”)); 

printf("Bild in Datei $s\n”,string); 

© PusIrr(); 

felose(out); 

Freeiem(matrix,widthheight) ; 

Freeten(erg,widthsheight) ; 

} 


JRRRRKORHOSEH Funktionen AHERkEEEssKEEEEEE 
Hilfe) /# Hilfstext bei falschen Aufrufparanete 
{ 

puts("USAGE IFF_Filter <filenane> [Paraneter... 


puts( “Parameter: ”); 
Puts(”-d<filenane> Festlegen der Ausgabedate: 


puts("-n negativ”); 

puts("-p IFP-Bild ungepackt abspeichern”); 
puts( "+ Info über Programmlauf”); 
puts("-h<n> Aufhellen des Bildes O<n<5”); 
puts(” 1: normal ... 4 sehr heil”); 


puts("-<typ> Auswahl des Filters”); 
puts("\tnit <typ>:"); 

puts( "\t\tID\tIdentität”); 
pute("\EÄLRELINGRelief-Pilter 1”); 

puts( "\t\tREL2\tRelief-Filter 2”); 
puts("\t\tGRAI\tAbleitung diagonal”); 
puts(\t\tGRAZ\tADIeLtUng wang- und senkrecht”); 
puts(”\t\tGRAZ\tAbleitung in alle 8 Richtungen”); 
puts("\t\tLoW\tTiefpass”); 

puts( "\t\tOWN\teigener Filter”); 

ex1t(1000); 


j 
14() /* Bild nur in Grauverte umwandeln - kein Filter 


register int x; 

INFO("Bild in Grauwerte - kein Filter”); 

i£(neg) 

[b 

for(x=0;x<widththeightzx+) 
*(erg+x)=14- *(matrixsx); 


else 
for(x=0;x<widthrheightjxt) 

Hergtx)= *metrixtx); 
E Relisfl() /* Relieffilter vertikal #/ 

{ 
2 long ewischen,dw=2kwidth; 
int K,1,11,12,13,14,15; 
INFO("RELIEF-FILTER 1°); 
for(ke2;k<width-2;kH) 
{ 

heipsdusk; 
1-metrix[k-2]+4matrix[k-1]+6tmetrix[k]+4smetrixfkri]sne 
trixe[ie+2]; 
12-netrix[heip-width-2]+4*matrix[help-width-1]+6*matrixfh 
elp-width]+4*matrix[help-width+1]-metrixfhelp-wiäth+2]; 
33-matrix[help-2]+4*natrix[help-1]+6*netrix[help]-4tmatri 
x[help+1]+natrix[help+2]; 
14enatrix[helptwidth-2]+4tnatrixfhelpswidth-1]-6#metrixfh 
elp+w1dth]+4mstrix[helptwidth+l]mstrixfhelp-wiätk+2]; 
19enstrix[help+äu-2]+4*nstrix[help+äw-1]+6*metrixfhelpsäw 
J+4#natrix[help+äw+1]+matrix[helpräu+2]; 
or(1=251<height-2;14) 

[b 

awischens-11-12-12414+14+15; 

if(neg) 


zwischen=7- (zuischen#7) /672; 
else 

Suischen=7+(zwischen#7)/672; 
erg[k+width#1]=(char) zwischen; 
11-12;12=13;13=14;14=15; 
heip-k+wiätht(1+3) 
i5smetrix[heip-2]+4matrix[help-1]+6%matrix[heip]+4*matr 
ixfhelp+1]+matrix[help+2]; 


]/8 Relter 1 %/ 
Belier2() /# Belieffilter diagonal */ 
{ 

int k,1,n,dvewidthr2; 

INFO("RELIEF-FILTER 2 (diagonal) ”); 
for(k»2;k<width-2;kt) 

{ 


for(1=2;1<height-2;14) 


heipsk+lmwiäthz 
S=-2atrix[help-äu-2]-3tnatrix[help-dw-1]-3*natrix[heip-d 
w]-zatrixfhelp-äv+1] 
-3tmetrix[help-width-2]-8%matrix[help-wiäth-1]-6tmatrix 
[heip-width]+natrix[heip-width+2]; 
„mi=-38natrix[help-2]-Stnetrix[help-1]+6*natrix[help+1]+3 
uatrix[helpt2] 
-zatrix[helpwidth-2]+6%matrix[heip+width]+8fnatrix[hel 
Prwidth+1]+3rmatrix[helptwidtht2]; 
mtenetrix[helprdw-1]43%matrix[heip+dw]+3tmatrix[heiptdut 
1j4matrixfheip+dwi2]; 
i£(neg) 
==7-(mR7) /490; 


erg[k+wiätht1]=(char)m; 


3 
‚Ableitungi() 
{ 


int K,Ln; 
ZNFO( "GRADIENTENFILTER 1 (diagonal) ”); 
for(k-1;k<widiä;kt) 


{} 
“or(ls1j1<heightji) 


v 

helpsk+lmwidth; 
menstrix[help]-matrix[help-width-1]; 
if(neg) 

w=7-(m#7)/14; 
else 

a 74287) /14; 
erg[k+width#l]=(char)n; 


3 
Ableitung2() 
{ 


int Kıla; 

INPO( "GRADIENTENFILTER 2 (vertikal) 
for(k-O;k<width;kt) 

[ 


tor(l=1;1<heightjl+) 


f 

Beipsk+lawidth; 
a-matrix[help]-netrix[nelp-width]; 
if{neg) 

2=7-(m#7) 756; 
eise 

n=7+(m#7) 7565 
erg[kwiatht1]=(char)n; 


Ableitung3() 

[ 

E int £,1,0; 

INFO("GRADIENTENFILTER 3 (elle 8 Richtungen) "); 
for(k-1;k<widin;k) 


[0 
for(1=-1;1<height;1+) 


GaRAFıK | 


[ 
helpekelauidtn; 
Nenatrix[help-width-1]+matrix(help-width+1]j+matrix[help+ 
width+l] 
matrix[helpwidth-1]+netrix[help-width]+matrix[heip+1] 
+natrix[helpwidth]+matrix[heip-1]-Stmatrix[help]; 
if(neg) 
(m)yu2; 


ne74(mN7)/112; 
erg[k+wläthrlj=(char)a; 


iD int 1,3,2,%,y,x1,y1,xdlv, ydlv,ywidth,xy,hh,ok; 
d | char 0; 

puts( "TIEFPASS”); 

tor(ok=0;0k=20;) 


{ 

puts(”\näitte Größe des Filters eingeben. (Nur ungerade # 
erte)”); 

print£("waagrecht: (3<= x <=99) "); scanf("F4”,Ex1); 
printf(*senkreoht: (3<= y <=17) ”); scanf("24”,&y1); 
Ar(x1>2 BR yl>2 A x1<100 34 yl<18 46 (x182) 86 (y1R2 
)) okel; 


) 
if(!fnset) 

sprint£(string, "Sa_34_$4”,string,xl,y1); 

xälvexl/2;yäivayl/2; 
xyaxltyl;yuidtheyäivsuiäth; 
or(xeywidth;x<wiäthywidth;xH) 
tor(ysx-ywidth;y<=x+ywidth;y+ewidth) 
erg[x]»(char) (erg[x]matrix[y]); 
For(xud;x<utäth;rn) 

Tor(yaynldthwläther;y< (height-ydlv)kwidthex;yrevidtn) 
erg[yJ=(char) (erg[y-width]-matrix[y-wldth-yeidth]natrix 
Waywiath]); 

novmen(erg,matrix,width*height); 
setnen(erg,widththeight,0x00) ; 
tor(yaywidth;y< (height-yaiv)width;ytewidtn) 


for(hhexeO;x<x1;x4+) hhrematrixfary]; 
or(xexäiv;x<wiäth-xdiv;s) 


{ 
erg[x+y]=(char) (hh/xy); 
Ihe (hhematrix[eryexäivel])-natriztng-xäiv]; 


1] 
om) /* Eigener Filter %/ 


il) int Mfil,ame0,ym=0,x0,50,28,11,JJmeg,pos,kk,11,xf,11,12; 
iO zestart: 

whlle(!(xn>0 66 xn<width/4) 68 !(m>0 && m<height/4)) 
{ 


printf("Bitte Filtergröße eingeben\nwasgrecht (O<x<$d) 
"width/4) ; 

scang( "44", Km); 

printf( "senkrecht (0<y<$4) "‚height/4); 

scanf( "fa", Aym); 


al | 
| Artı(am$2)) printf(”x auf 4 angehoben\n”,++xm); 
4t(1(ym$2)) printf(’y auf Sa angehoben\n",++ym); 
if(1(fil=(int ")malloe(sizeof(int)txnsym))) 
[3 
puts("Kann nicht genügend Speicher belegen\nVersuchen Sie 
kleinere Werte”); 
goto restart; 


Possneg=0; 

puts("Eingabe der Filtermatrix”); 

for(iis0;11<ym;iie) 
tor(Je0;Jj<zmijit) 


print£("\nFilter[$4;54]=",11+1,Jj+1); scanf("$d”,&zw); 
if(zw>0) post=zw; else neg-=zu; 
Alttismjgleze; 

) 

1f(pos=eneg && neg==0) 


rn) 


i 
SS puts("Nullmatrix nicht erlaubt !”); 


goto restart; 


} 

puts("Filter ok ? (jlyln)”); 

(ebar 0; 

for(e=! !jelz'y! && cl='j? BE cleinijesgetehar()); 
if(os='n!) goto zestart; 


Es kann etwas dau 


INPO( "Berechnung des gefilterten Bil 
em... 
Pos+eneg; 
tor(11exmn/2;11<width-xn/2; 114) 


{ 
Lor(JJewidthr(ya/2)+11;3) <widtne(neight-yn/2)+4;JJtewid 
th) 
{ 
au20; 11sxn/2ewidthe(ym/2) ;12evidthn(ym/2)-xn/2; 
tor(kkejj-11,x2eOjkk<ejjri2;kkrmwidtn) 
for(11ekk;11<mskkj litt, ut) 
zu+s K(fil4xf) # matrix[12]; 
ae ne: 


} 
free(fi1); 


1 
Gol_to_grey() /® Grauwertumwandlung */ 
{I 

register int 11,JJ,kk; 

INPO( "GRAUWERTUNUANDLUNG”) ; 
kkewidtitheight; 

tor(J3=0;35 <kkzli) 
natrix[}j]=(char)colors[aatrix[jjJ]; 


ReadIFF(bilänane) /# Bild im IFF-Format einlesen */ 
char *bildname; 

{ 

Ant body_gelesen=0, loop, Ix,laenge,breite; 

long lang; 


MyLock»Lock(biläname,ACCESS_READ) ; 
Af(IMylock) exit(printf("Illegel Filename $s\n”,bildnane)) 


if(!Exanine(Nylock,&tyInfo)) exit(printf( "Can't get $s\n”, 
bildnane)); 

InengesMyInfo.fib_Size+1; 
UnLock(NyLock); 
aktuell=adr=AllocNen(laenge,MEMF_CHIP) ; 
An=Open(bildnane,MODE_OLDFILE) ; 
Rend(in,adr,aenge); 

Close( in); 

INFO("Lesen IFF-Bild”); 
wnile(!boäy_gelesen) 

{ 


HyRead(text,4); 
Af(1strnenp(text, "BMiD”,4)) 


MyRead(bmhd,24); /® BitMapHender einlesen #/ 
breitesbuhä[4]#256+bmhd[5]; 
if(breiteg16)wiäthe((breite> >4)+1)<<4; 

else widthebreite; 

heightsbahd[6]#256+bahd[7]; 
depthe(char)bahd[12]; 

konpresa«(char)brhä[14]; 

ddepthel< <depth; /# ddepth =2depth */ 

Af(! (matrix«AllocHen(width*height,MEMR_CLEAR))) 
exit(puts("Kann nicht genügend Speicher belegen! *)); 
Af(1(erg=AllooNen(widthrheight,MEMF_CLEAR))) 


FreeNen(matrix,widthsheight) ; 
exit(puts( "Kenn nicht genügend Speicher belegen!”)); 
} 
1£(info) 
L 
puts( "Bilddaten: 
printf(*-Breite :#ä\n-Hoehe :#d\n-Bitplanes :%d 
\n-Farben :#ä\n-gepsckt :",breite,height,depth,dde 
pth); 


Listing. Bildverarbeitung mit »IFF_Filter« (Fortsetzung) 


1f(kozpress) puts("Ja”); else puts("Nein”); 


1 78 SD 87 
else if(Istrnosp(text, "OMAR“,4)) 
[} 


INFO("Farbtabelle (CMAP)”); 
KyRead(Sf_anz,4); 

Sans/=3; 

tor(1oop=0;1oop< f_anz;loop++) 


{ 
NyRead(Uret,1); 
MyRead(ägruen,1); 
MyRead(Sblau, 
oo=(char) ((((rot> >4)+(gruen> >4)+(blau> >4)) 
(A4r1filtertyp)#helligkeit)/45); 
eolors[loop]=(char) (MIN(co,0xDe+1filtertyp)); 


W727 
else if(!strncap(text, "BODY”,4)) 


{ 
INPO( "Bilddaten (BODY) ”); 
if(kompress<0) exit(puts( "Kein BMHD-Chunk!”)); 
NyRend(text,4); /# CHUNK-Länge überlesen */ 
1f(!kompress) 
[ 
INFO("einlesen\n”); 
for(lines=D;1ines<height;lines+) 
{ 
Iwslinestwidth; 
for(planes=1;planes<ddepth;planes< <=1) 
[ 
YyBend(erg,wiäth/8); 
tor(jeis0;1<width/8;tH) 
for(ke128;k>0;J4+,k> >=1) 
if(erg[i] &k) matrix[Iwsj]+=planes; 


INFO("Entpacken”); 
for(lines=0;lines<height;lines+) 

{ 
Awslinestwiäth; 
tor(planes=1;planes<ddeptn;planes< <=1) 
{ 


120; 
sntle(1<width/s) 
{ 


MyRead(&5j,1); 
12(35>0 38 jj<128) 


l 
MyRead(Sergli],Jj+1); 
i4ejjel; 


else 

[i 
Jäefehar) (-39+2); 
MResd(Serg[i),1); 
for(kel;k<jjjk++) erglirk]serg[i]; 
dell 

} 


1 
for(isjs0;1<width/8;tt) 
for(ke128;k>0;j++,k> >=1) 
if(erg[i] &%) zatrix[Ivsj]+=planes; 


J 
} 
body_gelesenel; 
] m BoDr 7 
else if(!strnenp(text, "FORH”,4)) 


T 
MyRead(klaenge,4); 


else if(!strnenp(text, "ILBM”,4)) 

else } 

L 
MyRend(&lang,k); 
for(ke0;k<lang;k-)NyReaä(iaenge,1); 


} /8 while 8/ 
Freeien(sdr,laenge); 

1 /% Readler a/ 

PutIPr() /# Bild in IFF-Forsat abspeichern #/ 


Ant Iv; 
INFO(”Schreiben des IFF-Bildes”); 
for(lines=0; lines <height;lines++) 


Ivelinestwidth; 
tor(planes=1;planes<16;planes< <=1) 
{ 
2020; 
tor(is0;1<widthjtt) 
[ 
e<<el; 
Af(ergliw+i] & planes) cc++ 
At(1(188) && 4) 
l 
Af(pack) 
Zeile[1/8-1]=(char)eo; 
else 
natrix[oount++J«(char)ee; 
2020; 


j 

I 

1f(pack) Packen(); 
j 


} 
to[6]=(char) ( (4+28+56+8+0ount+countf2)/256) ; 
fo[7]=(char) ((4+28+56+8+count+count$2)$256) ; 
furite(fo,12,1,0ut); /# FORN-Chunk ®/ 
furite("BED",4,1,0ut); 

birhd[14]=(char)pack; 

bmhaf12]=(char)4; 

furite(bmhd,24,1,0ut); /# BMHD-Chunk ®/ 
Awrite(em,56,1,0ut); /® CHAP-Chunk #/ 
Aurite("BODY”,4,1,cut); 
£pute(0x00, out) ; £pute(0x00,0ut); 

‚fpute( (char) ( (count+count$2)/256) ‚out); 
‚£pute( (char) ( (count+count$2)8256) ‚out); 
fwrite(matrix,count,1,0ut); 

Af(countg2) fpute(0x00,0ut); /* auf gerade Anzahl bringen 


‚Packen() /* IFF-Bild packen #/ 


Ant last,i,j; 
ohar m; 
Austewidth/8; 
120; 
while(1<1ast) 
{ 


msZeileli]; 

tor(jeitijmesZeilefj] bh J<lastjjer); 
if(jtei+l) 

{ /% Jetzt wird gepackt #/ 
‚natrix[oount++]=(char)(1-J+1); 
matrix[eount++]en; 
de; 

] 

else 

{ /® Hier wird ungepackt übernommen ®/ 
for(;mi=Zeile[jJäkj <«last;neZeile[j4+)); 
Arlj<last) J-»2; 
J=MIN(last-1,J); 
matrix[count++J=(char) (J-1); 
for(;1<ejimatrix[eount++]eZeile[i4r]); 

) 

] /# while #7 

} /* Packen #/ 

MyRead(nach,anz) /® Hilfsfunktion für ReadIFF() #/ 


Grafik 


in der dritten 
Dimension 


»Ray Tracer« heißt wörtlich übersetzt 
»Strahlenverfolger«. Wer aber glaubt, mit 
dem folgenden Programm könne er sei- 
nen Amiga als Geigerzähler einsetzen, der 
irrt sich. Die Strahlen sind in unserem Fall 
harmloses Licht und verfolgt werden sie 
zur dreidimensionalen Darstellung. 
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sSAMIGA 


ONDERHKHEF 


1 Rund um den 


Amiga 
Ausführliche Kurse, 
Bauanleitung, Tips&Tricks 


Das Sonderheft 1 enthält einen 
ausführlichen Basic-Kurs - alles 
über den richtigen Umgang der 
alternativen Benutzeroberfläche 
"Command Interfoce Line”. 
Bauanleitung: Mit dern Digitizer 
und der zugehörigen Software 
"Digisoft Plus* tauchen Sie ein in 
die Welt der digitalen Klänge. 
Tips&Tricks: aufgeteilt nach vier 
Bereichen: Einsteiger, Insider, 
‚Amigo-Basic und CL. 


3Cund 
Assembler 


Zwei Super-Kurse und 
viele Tips und Tricks 


Der große C-Kurs für alle 
Umsteiger. Programmieren Sie 
ab sofort mit kräftiger 
Unterstützung durch 
Betriebssystem und Libraries. Der 
Assemnbler-Kurs enthüllt alle 
Geheimnisse des 68000er 
Prozessors. 


5 Public 


Domain 
‚Software zum Nulltarif: 
Das Beste aus aller Welt 


Die ganze Faszination der 
Tafık in einem Projekt. 
Wichtigster Themenbereich 
werden Utilities mit 
‚zahlreichen Hilfsprogrammen 
sein. 


7 Spiele- 


programmierun: 
‚Knowhow, Projekte, Spiele 


Knowhow: Wir lüften die 
Geheimnisse von Blitter, Copper 
& Co. Projekte: Die erste 
‚3D-Vektor Library für den Amiga. 
ermöglicht völlig neue Erlebnisse 
in der Grofik-Welt. Lesen Sie 
über die Entstehung neuer Spiele 
von der Idee bis zum Programm, 
Spiele: Fünf brandheiße Spiele 
aus diesem Heft sind - neben 
vielen Tools und Utilities - auf 
Diskette erhältlich. 


WIN HONSSTMPUTERWORLS:COM 


Anwendungen 


Workshops: Experten verraten 
alle Tricks im Umgang mit 
‚den professionellen 
Programmen Sonix, Superbase 
und Beckertext. Überblick: 
Amvendungspro jramme und 
die Vorstellung der besten 
Programme. Top-Programme 


‚ fast umsonst: Hochkarätige 


‚Anwendungen zur 
Textverarbeitung, 
Kontenführung und 
Dateiverwaltung bestechen 
durch ausgereifte 
Benutzerführung. 


E 


2 Listings der 


Spitzenklasse 
Tolle Anwendungen, 
Tips, Tricks und Tools 


"Fontdesigner”, 


"Objekt-Editor', 
"Haushaltsbuch”, 
"Keyboard-Master', "Fast 
Lood-Copy', "Super-Copy' 
sind nur einige von vielen 
Anwendungen im 
Sonderheft 2. Außerdem: 
Ratschläge zu Superbase 
und zwei außergewöhnliche 
Spiele 


E 


Basic und 


ni; 


iele 
Spitzenspiele zum 


Abtippen in AMIGA-Basic 


Die absoluten Spiele 
Top-Hits für den AMIGA in 
einer Übersicht. Mit 
Klassikern wie "Shanghai" 
und vielen brandneuen Hits. 
Ein ausführlicher Basic-Kurs 
führt zu Programmen mit 
rasanten 
Geschwindigkeiten. 


Ich bestelle: _ _ Ausgaben AMIGA SH Nrt— 
— " " Nr 
en N 
rl N 
et N ae 


Insgesamt: —— Ausgaben für 16,-DM 
pro Exemplar 


Name, Vorname 


Straße, Hausnummer 


PLZ, Wohnort 


Rechnungssumme DM 
zzgl. 3,-DM Versandkosten 3,.DM 
Rechnungsbetrag insgesamt DM 
Schicken Sie bitte die ausgefüllte Rorte 
zusammen mit dem Rechnungsbetrag als 
Verrechnungsscheck im Briefumschlag anı 


Markt&Technik Verlag AG, Leserservice, 
‚Hans-Pinsel-Str.2 in 8013 Haar bei München 


SAMIGA 


BESTELLCOUPON 


ay Tracing« nennt man 

die perspektivische 

Darstellung von dreidi- 
mensionalen Objekten unter 
Berücksichtigung der Licht- 
strahlen. Was in diesem kurzen 
Satz an List und Tücke für den 
Programmierer steckt, wird erst 
vollends klar, wenn Sie sich ver- 
deutlichen, was dabei berück- 
sichtigt werden muß. 

So müssen nicht nur die Ab- 
messungen der Objekte (in un- 
serem Fall Kugeln) der Per- 
spektive entsprechend umge- 
rechnet werden. Es muß auch 
der Lichteinfall berücksichtigt, 
die Spiegelungen richtig darge- 
stellt (möglicherweise auf einer 
gekrümmten Oberfläche) und 
eventuell einzelne Flächen 
durchsichtig gemacht werden. 


Verkürzte 
Rechenzeiten 


Bei weniger leistungsfähigen 
Computern erweisen sich der- 
artige Programme oft genug als 
wahre »Rechenzeitkiller«, die 
den Prozessor für erhebliche 
Zeit lahmlegen. Aber auch der 
‚Amiga - mit 68000er und dem 
Customchip Blitter sehr gut ge- 
rüstet - ist mit dieser Aufgabe 
‚stark gefordert. 

So kann die Berechnung ei- 
ner Grafik mit mehreren Ele- 
menten im Interlace-Modus 
durchaus zwei bis drei Stunden 
in Anspruch nehmen. Das heißt 
aber nicht, daß Sie sich einen 
zweiten Amiga kaufen müssen, 
weil Ihrer mit Raytracing dem- 
nächst ausgelastet ist. Es gibt 
einige Möglichkeiten, die Aus- 
gabe zu beschleunigen oder 
notfalls abzubrechen. 

Solange Sie an Ihrer Grafik 
noch Änderungen vornehmen, 
sollten Sie grundsätzlich im 
»Low-Resolution«-Modus arbei- 
ten. Dieser ist etwa viermal so 
schnell wie der Interlace-Mo- 
dus. Eine erhebliche Verkür- 
zung der Rechenzeit bietet die 
Berechnung im »Test«-Modus. 
Diese stellt die Grafik im Brief- 
markenformat dar. Sie brau- 
chen auf eine Grafik nur wenige 
Minuten warten, für die sonstei- 
nige Stunden nötig wären. 

Wollen Sie weitere Rechen- 
zeit einsparen, ziehen Sie eii 
fach während des Bildschirm- 
aufbaus den Screen nach un- 
ten (oder stellen im Menü »ver- 
deckt« ein). Sie müssen aller- 
dings darauf achten, den 
Screen wieder ganz nach oben 
zu ziehen, bevor Sie mit »Win- 
dow ändern« die Einstellungen 
bearbeiten. Denn dieser Menü- 
punkt öffnet ein eigenes Fen- 
ster, das sich nur durch ein 
Gadget am unteren Rand be- 


seitigen läßt. Sollten Sie Ihren 
‚Amiga zwischendurch für drin- 
gende andere Aufgaben benö- 
tigen, so können Sie die Be- 
rechnung mit einem einfachen 
Mausklick an einer beliebigen 
Stelle des Screens abbrechen. 
Speichern Sie jetzt den derzeiti- 
‚gen Stand der Grafik. Wenn Sie 
weitermachen wollen, laden 
Sie diese und arbeiten an der- 
selben Stelle weiter. Leider ist 
es uns aufgrund der Länge die- 


Auflösung von 320 x 256 Punk- 
ten haben. 

Berechnen: Hier finden Sie 
die beiden Punkte »Test« und 
»Start«. Bitte zügeln Sie vorerst 
Ihre Neugier und lassen Sie 
den Punkt »Start« links liegen. 
Dieser bringt längere Wartezei- 
ten mit sich. Starten Sie statt 
dessen einen »Test«-Lauf, Die- 
ser berechnet - weil noch keine 
Objekte definiert wurden - in 
wenigen Sekunden die Grafik. 


Bildschirmnitte X 
Y 
2 
Blickrichtung x 
x 
z 


Bildschirnabstand 
Brechungszahl 


Durchmesser 
Kugelposition x 
x 


2 
Sp/Gl1/Li (1/2737 
Kugel löschen (?) 


Kugelnunner [RETI = 


17.999999 


Bild 1. Mit dem Menüpunkt »W. ändern« stellen Sie alle 
wichtigen Daten für Ihre Grafik ein 


ses Programms nicht möglich, 
das Listing abzudrucken, da 
sonst kaum Platz für weitere 
Programme in diesem Heft 
übrigbliebe. 

Der Raytracer ist nur auf un- 
serer Programmservice-Disket- 
te enthalten, die Sie mit der Kar- 
te auf Seite 34 bestellen kön- 
nen. 


Programm- 
Service 


Starten Sie den Raytracer 
‚entweder vom CLI mit »rt« und 
<RETURN> oder von der 
Workbench per Doppelklick auf 
das Icon. Sie sehen jetzt einen 
neuen Screen mit der Titellei- 
ste. Drücken Sie die rechte 
Maustaste, dann sehen Sie vier 
Menüs: »Raylracer«, »Auflö- 
sung«, »Berechnen« und »Ex- 
tras«: 

Auflösung: Wählen Sie den 
Punkt »High« an, so wird der 
Bildschirm auf »High-Resolu- 
tion« und Interlace umgestellt 
(640 x 512 Punkte). 

Bevor Ihnen vom Flackern 
die Augen schmerzen, schalten 
Sie lieber zurück (mit dem Me- 
nüpunkt »Lowe«). Der Bildschirm 
sollte jetzt wieder die normale 
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Sie sehen jetzt in der linken 
oberen Ecke eine Grafik im 
Briefmarkenformat, die ein rot- 
grünes Schachbrettmuster und 
einen schmalen blauen Strei- 
fen als Horizont anzeigt. 

Natürlich ist es nicht Sinn ei- 
nes Raytracers, eine Flach- 
landsilhouette mit Schachbrett- 
muster auf den Bildschirm zu 
zaubern. Dafür gibt es weit an- 
spruchslosere Programme. 

Extras: Gehen wir also dar- 
an, das erste Objekt zu definie- 
ren. Zu diesem Zweck wählen 
Sie im Menü »Extras« den 
Punkt »W. ändern«. Sie sehen 
ein neues Fenster (Bild 1), in 
dem Sie alle wichtigen Parame- 
ter einstellen. 

Sie sehen an der aktuellen 
Einstellung, daß ein Objekt be- 
reits definiert ist. Es handelt 
sich dabei um die Kugel mit der 
Nummer Null, die als Lichtquel- 
le dient. Sie können die Position 
dieser Lichtquelle ändern, in- 
dem Sie mit der Maus zweimal 
auf die entsprechenden Werte 
klicken und diese editieren, so- 
bald der Cursor auftaucht. 

Ähnlich gehen Sie vor, wenn 
Sie eine neue Kugel plazieren 
wollen. Klicken Sie zweimal auf 
die Nummer der Kugel (im Mo- 


GRAFIK 


ment »0«) und tragen Sie dort 
eine Eins ein. Diese Änderung 
wird allerdings erst akzeptiert, 
wenn Sie mit einem Klick auf 
das Feld »[RET]« bestätigen. 
Sie sehen jetzt die aktuellen 
Maße Ihrer neuen Kugel ange- 
zeigt, nämlich fünf Nullen. Ge- 
ben Sie ihr neue Werte, indem 
‚Sie die alten wie oben beschrie- 
ben ändern. Achten Sie darauf, 
daß Sie am Anfang Werte ein- 
tragen, die im darstellbaren Be- 
reich liegen - später können Sie 
immer noch experimentieren. 
Wir schlagen vor, daß Sie fol- 
gende Startwerte eintragen: 
Durchmesser 50, X-Position 50, 
Y-Position 100, Z-Position 200 
und bei »Sp/Gl/Lis« eine 2. Der 
letzte Wert unterscheidet zwi- 
schen spiegelnder (1) und glat- 
ter (2) Oberfläche beziehungs- 
weise einer Lichtquelle (3). 


Die erste eigene 
»Landschaft« 


Klicken Sie mit der Maus jetzt 
auf »[RET]«, um die neuen Ein- 
stellungen zu bestätigen und 
danach auf das »ok«-Gadget 
am unteren Bildschirmrand. 

Wenn Sie jetzt noch einmal 
„Test« anwählen, sehen Sie die 
Grafik mit Ihrer neu definierten 
Kugel am rechten Rand. Außer- 
dem dürfte Ihnen aufgefallen 
sein, daß die Berechnung der 
Grafik jetzt deutlich mehr Zeit in 
Anspruch nimmt. 

Um einen ersten Eindruck zu 
erhalten, sollten Sie Ihren Ami- 
ga vielleicht für zwei bis drei 
Stunden »beschäftigen«. Stel- 
len Sie den Interlace-Modus ein 
(mit »Auflösung«/»High«), star- 
ten Sie die Berechnung (mit 
»Berechnen«/»Start«) und zie- 
hen Sie den Screen ganz nach 
unten. Der Lohn des Wartens 
ist eine Grafik, die zwar leicht 
flackert (wegen Interlace), aber 
immerhin einen kleinen Ein- 
druck von der Leistungsfähig- 
keit des Amiga vermittelt. Wenn 
Sie alles genau befolgt haben, 
sollte das Bild etwa so ausse- 
hen, wie das Foto im Inhaltsver- 
zeichnis, das bei unseren er- 
sten Versuchen entstand. 

Wenn Sie nach diesem Vor- 
geschmack Lust zum Experi- 
mentieren bekommen haben, 
steht dem nichts mehr im We- 
ge. Sehen Sie sich den Menü- 
punkt »W. ändern« etwas ge- 
nauer an. Sie finden unter an- 
derem Möglichkeiten, Ihren 
Blickwinkel (unter »Blickrich- 
tung«), den Abstand vom Ort 
des Geschehens (mit »Bild- 
schirmabstand«) und die Bre- 
chungszahl zu verändern. Ex- 
perimentieren Sie mit diesen 
Werten. Wenn Sie eine Einstel- 
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lung gefunden haben, die Sie 
vollkommen zufriedenstellt, 
können Sie diese mit »E. si- 
chern« speichern. Das Pro- 
gramm legt eine Datei »RTWer- 
te« an, aus der beim nächsten 
Start die Voreinstellungen ge- 
holt werden. 

Rayfracer: Auf ähnliche Art 
können Sie fertige Grafiken 
speichern und wieder laden. 
Die entsprechenden Menü- 
punkte finden Sie unter »Ray- 
tracer« (»Laden« und »Saven«). 
Beide verzweigen in einen File- 
requester, der nur Directories 


oder selbstgespeicherte Grafi- 
ken erkennt. Dabei wird hinter 
jedem von Ihnen gewählten Na- 
men entweder »-I« (wenn es 
sich um eine Low-Resolution- 
Grafik handelt) oder »-h« ange- 
hängt. Diese Erweiterung kön- 
nen Sie beim Speichern eben- 
so wie beim Laden weglassen. 

Mit dem dritten Menüpunkt 
(»Ende«) sollten Sie vorsichtig 
umgehen. Er respektiert Ihren 
Wunsch und reagiert prompt, 
ohne vorher zu fragen, ob Sie 
nicht noch speichern wollen. 
Neben den bereits besproche- 


nen Menüpunkten können Sie 
im »Extras«-Menü die Titellei- 
ste ein- und ausblenden, ein 
Countdown-Fenster einrichten, 
das Sie informiert, wie viele Zei- 
len noch dargestellt werden 
müssen, und den aktuellen 
Screen sichtbar beziehungs- 
weise unsichtbar machen. 
Auch diese Einstellungen wer- 
den in RTWerte gespeichert, so 
‚daß sie nicht jedesmal neu defi- 
niert werden müssen, sondern 
automatisch beim Start gela- 
den werden. Das spart Zeit und 
erleichtert die Arbeit. 


Mit den Informationen aus 
diesem Artikel und etwas Expe- 
rimentierfreude sollten Sie in 
der Lage sein, fantastische 
Grafiken auf den Bildschirm zu 
zaubern. Wenn Sie mehr über 
die theoretischen Grundlagen 
dieses Themas wissen wollen, 
empfehlen das Buch »3-D-Gra- 
fik-Programmierung« von Data 
Becker, in dem Sie viele interes- 
sante Informationen zu diesem 
Gebiet finden. Arno Gölzer/kn 
3-D-Grafik-Programmierung: Jennrich, Mass- 


mann, Schulz; Data Becker; 284 Seiten; ISBN 
3.89011-174-2; Preis 59 Mark 


Von Harry Kellermeyer und Rene Beaupoil nien nicht im Bild haben wollen, geben Sie beim DIM-Befehl ein- 


fach einen dritten Parameter an (DIM 4,60,0). 


Perspektive auf dem Bildschirm darstellen. Für diesen 


M it »3DAnim« können Sie dreidimensionale Objekte mit 
Zweck stellt Ihnen das Basic-Programm eine eigene 


Sprache zur Verfü 


generiert Quellcode in Basic oder Assembler. Die Gesch 

in Basic ist erstaunlich. Lassen Sie sich überrasche 
Um dreidimensionale Bewegungen zu beschreibt 

man ein Koordinatensystem mit drei Achsen und geil 


m ORIG xyz 


Der Ursprung des Koordinatensystems wird neu definiert. Die 
‚Angaben beziehen sich immer auf das ursprüngliche Koordinaten- 


das heißt zweimal derselbe ORIG-Befehl bewirkt dasselbe 


Dieser befindet sich direkt auf dem Monitor Ijt 


rechts wird die x-Achse, nach oben die y- und 


Monitor hinein« die z-Achse an- 
getragen. Ausgegangen wird 
von einem Quader, dessen vor- 
dere Seite die Monitorfläche ist 
und dessen Tiefe genauso groß 
ist wie die Breite. Die Einheit ist 
in alle Richtungen ein Hires- 
Punkt. Dadurch treten keine 
Verzerrungen auf (640 x 512 x 
640 virtuelle Punkte), obwohl 
die eigentliche Animation am 
Ende bei 640 x 256 Punkten ab- 
läuft. Natürlich können auch 
Punkte außerhalb dieses 
Raums positioniert werden, nur 
sind diese nicht unbedingt 
sichtbar. Um die Zeit noch mit 
ins Spiel zu bringen, geht das 
Programm so vor: Die Bewe- 


gung wird, wie beim Daumenkino, in Einzelbilder aufgelöst. Diese 
Bilder werden dann nacheinander dargestellt, wobei sich nach 


dem letzten Bild das Ganze wiederholt. 


3DAnim versteht 25 Befehle, die zur Erzeugung der Bewegung 
nötig sind. Sie werden im folgenden erläutert. Parameter in eckigen 
Klammern sind optional, müssen also nicht angegeben werden. 


I DIM p,n[,opt] 
Dieser Befehl muß der erste in der Liste 
sein und darf nur dort vorkommen. Es wird 
angegeben, wie viele Bilder man insgesamt 
benutzen will: DIM p,n bedeutet, daß auf n 
Bildern je p Punkte dargestellt werden sol- 
len, Dabei geht die Numerierung von 0 bis 
p-1 und von 0 bis n-1. Wird der Parameter 
»opt« angegeben, werden keine Linien zum 
Fluchtpunkt gezeichnet (siehe auch 
PERS). 
M PERS xy,z 
Wenn Sie das Programm ausprobieren, 
stellen Sie fest, daß Ihr Computer außer Ih- 
ren Objekten noch zwei weitere Linien 
zeichnet. Es sind Orientierungslinien, die 
zum Fluchtpunkt führen, also zu dem 
Punkt, in dem alle zur z-, -Achse parallelen Li- 
nien scheinbar zusammenstoßen. Sie kön- 
nen den Fluchtpunkt durch diesen Befehl 
selbst bestimmen, Wenn Sie die beiden Li- 


Es werden auch die Koordinaten aller Punkte auf den 
nkt umgerechnet. 


‚Be ehl kann man im Koordinatensystem eine andere 
. Dabei 
so wird er der Pixelgröße in x-Richtung ange- 


nnen auch Verzerrungen entstehen. 


paßt. Also entspricht »RES 320« 
dem Befehl »RES 320,256,320«. 
Der Ursprung, Fluchtpunkt und 
sämtliche Punkte werden ent- 
sprechend umgerechnet, so 
daß sie auf dem Bildschirm an 
derselben Stelle erscheinen. Ist 
ein Parameter negativ, so kehrt 
sich die Richtung der Achse 
um. 

BI INKS r1,91,b1[,r0,90,b0] 

Die Parameter liegen im Be- 
reich von 0 bis 15 und bestim- 
men die RGB-Werte der Farben 
1 und 0. Wenn Sie die letzten 
drei Werte weglassen, werden 
sie automatisch 0, das heißt der 
Hintergrund ist schwarz. Vor- 
einstellung ist »INKS 15,15,15, 


‚0«, also weiße Objekte auf schwarzem Hintergrund. 
BI MASK flagx,flagy,flagz 


‚Auf diese Weise kann man erreichen, daß bei den Befehlen SET, 


ACC, DEC, SHI, SHII und COPY einzelne Komponenten ausmas- 
kiert werden, wenn das entsprechende Flag 0 ist. Nach dem Kom- 
mando »MASK 1,1,0« werden durch einen COPY-Befehl nur noch 


die x- und y-Werte kopiert. Eine andere Anwendung ist, eine Rota- 


Harry Kellermeyer 


Der Autor begann mit seinem Com- 
puter-Hobby Ende 1985 auf einem 
Sharp PC 1401. Wegen der beschränk- 
ten Fähigkeiten folgte bald ein Schnei- 


der CPC 464. Im September 1987 
schaffte sich Harry Kellermeyer dann ei- 
nen Amiga 500 an. »3DAnim« war ur- 
sprünglich ein Programm, das einen ro- 
tierenden Oktaeder auf dem CPC 464 
darstellte. Mit der größeren Leistungsfä- 
higkeit des Amiga wuchs das Pro- 
gramm dann immer weiter. Das Resultat 
ist »3DAnim«, das vor Ihnen liegt. Mit 
dem Gewinn von 2000 Mark (Programm 
des Monats im AMIGA-Magazin 8/89) fi- 
nanziert der Autor seinen Urlaub. 


Oh HOMECOMDUTERWORLD.COM 


tion eines Körpers um eine zur x-Achse par- 
allelen Achse mit entgegengesetzter Ei- 
genrotation auf ein simples Auf und Ab zu 
reduzieren (durch Ausschalten der z- 
Komponente), um dies dann mittels »SHI 
dx,0,0« in einen Sinus zu verwandeln. 

I LET varwert 

Einer Variablen (vO bis v100) kann ein 
Wert zugewiesen werden. 

B SET p.x,y,2[,al;b]] 

Damit man Punkte bewegen kann, muß 
erst ein Anfang gemacht werden, Dies ge- 
schieht durch den Befehl SET. Dem Punkt 
p werden von Bild »a« bis Bild »b« die Koor- 
dinaten (x, y, z) zugewiesen. Fehlt b, so ist 
b gleich a. Ist weder a noch b vorhanden, 
gilt die Zuweisung für alle Bilder. Folgen 
mehrere SET-Befehle hintereinander und 
wird jeweils der nächste Punkt definiert, 
können die Parameter, durch einen Doppel- 
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Punkt getrennt, aneinandergehängt werden. Der jeweils erste Pa- 
rameter muß dann aber vom zweiten Punkt an weggelassen wer- 
den. So wird aus 

SET 4,1,1,1 

SET 5,,8 

SET 6,8,3,3,2 

schließlich 

SET 4,1,1,1:,8:8,3,3,2 

LINE punkteliste[;punkteliste[:punkteliste ...]] 

Mit LINE wird festgelegt, in welcher Reihenfolge die Punkte je- 
weils miteinander verbunden werden sollen. Es werden zuerst die 
Punkte in der ersten Liste zusammenhängend gezeichnet, neu po- 
sitioniert, weitergezeichnet und so weiter. Dabei besteht eine Punk- 
teliste aus durch, Kommata getrennten Parametern, die entweder 
‚ein Term oder ein Intervall (Term1..Term2) sind. So bedeuten bei- 
spielsweise: 

5 Punkt 5 

3.6 Punkte 3 bis 6 

6..3 Punkte 6 bis 3 (in dieser Reihenfolge) 
„10 Punkte 0 bis 10 

4.. alle Punkte ab 4 

. alle Punkte 

Kommen in einem Programm mehrere LINE-Anweisungen vor, 
so werden die einzelnen Punktelisten vor der Interpretation einfach 
aneinandergehängt und durch einen Doppelpunkt voneinander 
getrennt. Das heißt, die Befehle 


LINE 2,1,3 
"LINE 4,5,6 
bewirken dasselbe wie 
LINE 2,1,3:4,5,6 
EM REC Punkteliste:x0,y0,z0 ‚dx,dy,dz 

Den 4 Punkten in der Liste werden Koordinaten zugewiesen, so- 
daß ein Rechteck entsteht. Der erste Punkt ist bei (x0, yO, 0), die 
restlichen ergeben sich, indem man gegen den Uhrzeigersinn wei- 
tergeht. Das Rechteck liegt immer parallel zu einer Koordinaten- 
‚ebene, es ist also dx, dy oder dz gleich Null. 

I LREC Punkteliste:x0,y0,z0 ‚dx,dy‚dz 

Dieser Befehl verhält sich wie REC, nur werden zusätzlich die 
Punkte miteinander verbunden. 

ı BOX Punkteliste:x0,y0,z0 ‚dx,dy‚dz 

Mit diesem Befehl werden den 8 Punkten der Liste Koordinaten 
zugewiesen, so daß ein Quader entsteht. Die linke, untere Ecke 
liegt im Punkt mit den Koordinaten (x0, yO, z0). Der Quader hat die 
Maße dx, dy und dz. 

iM LBOX Punkteliste:x0,y0,z0 ‚dx,dy‚dz 

Dieser Befehl bewirkt genau dasselbe wie BOX, jedoch wird zu- 
sätzlich ein entsprechender LINE-Befehl ausgeführt. 
m MOVE Punkteliste:anfang,endet[,ende2[,modus]] 

Fehlen modus oder ende, gilt modus=0, ende2=ende!1. Inner- 
halb der Punkteliste kommt es, im Gegensatz zu LINE, nicht auf 
die Reihenfolge der Punkte an. Wiederholen sich Punkte, hat 
es auch keinen weiteren Einfluß. Voreinstellung ist »MOVE 
0..p-1:0,n-1,n-1,0« (p,n=Anzahl aller Punkte und Bilder). Nach die- 
ser Anweisung werden nur noch die Punkte in der Punkteliste be- 
wegt. Danach folgende Teilanimationen beziehen sich nur noch 
auf das Bildintervall von »anfang« bis »ende2«, es wird die ganze 
Bewegung auf die Bilder von »anfang« bis »ende1« verteilt. Danach 
entscheidet »modus«, wie sie bis »ende2« verlängert wird. 
modus=0: Die Bewegung wird genauso weitergeführt. 
modus=1: Nach jeweils (endet + 1 - anfang) Bildern beginnt die 
Bewegung von vorne. 
modus=2: Nach jeweils (ende! + 1-anfang) Bildern kehrt sich die 
Bewegung um. 

‚Auswirkungen zeigt MOVE auf die Befehle ROT, ROTI, TURN, 
SHI, SHII, ACC, DEC, EXT. 

MM SHI dx,dy‚dz 

Die Punkte werden linear ansteigend um insgesamt dx, dy und 
dz verschoben. 
M SHIl dx,dy‚dz 

Hier werden die Punkte ebenfalls um dx, dy und dz verschoben, 
aber nicht allmählich, sondern in jedem Bild um diesen Betrag. 
IM ROT xm,ym,zm,xyw,yyzw.dw 

Dieser Befehl dient zum Drehen von Objekten und benötigt den 
Drehpunkt und drei Winkel. Sie müssen also erst einmal die Achse 
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im Raum konstruieren. Der Befehl 
ROT 200,250,100,0,90,-360 


bewirkt eine Drehung der Figur um den Punkt (200,250,100). Um 
die Drehachse zu erhalten, gehen Sie folgendermaßen vor: 

Stellen Sie sich eine senkrechte Gerade durch den Drehpunkt 
vor. Diese wird nun um »xyw« gegen den Uhrzeigersinn parallel zur 
x-y-Ebene gedreht. Anschließend drehen wir diese Gerade noch 
um »yzw« Grad (wieder gegen den Uhrzeigersinn) parallel zur y-z- 
Ebene. 

Die Drehung wird auf alle Bilder verteilt. Beidem obenstehenden 
Befehl dreht 3DAnim bei insgesamt 120 Bildern das Objekt um je- 
weils 3 Grad pro Bild. 

u ROT! xm,ym,zm,xywyzw,dw 

Für die Parameter gilt das gleiche wie beim ROT-Befehl. Der Un- 
terschied ist der, daß in jedem Bild um den Winkel »dw« um die an- 
gegebene Achse gedreht wird und nicht wie bei ROT allmählich. 
I TURN xm,ym,zm,xywyzw 

Auch hier gilt für die Parameter das gleiche wie beim ROT- 
Befehl, lediglich der Parameter »dw« fehlt. Was also die Bewegung 
angeht, so wird wie bei ROTI in jedem Bild um bestimmte Winkel 
gedreht, aber nicht um »dw« um die Achse, die konstruiert wird, 
sondern so, daß aus der ursprünglichen Achse (parallel zur y- 
Achse) die Konstruierte entsteht. Das heißt, es werden alle Punkte 
in jedem Bild um »wx« nach links und um »wz« zum Betrachter ge- 
kippt. 

I COPY quelle [,zielanfang] ‚zielende 

Die Punktkoordinaten des Bildes »quelle« werden auf die der Bil- 
der »zielanfang« bis »zielende« kopiert. Wird der zweite Parameter 
weggelassen, so ist zielanfang gleich quelle+1 beziehungsweise 
quelle-1, wenn zielende kleiner als zielanfang ist. 

COPY quellanfang,quellende,zielanfang,zielende 

Die Koordinaten des Intervalls von quellanfang bis quellende 
werden auf die Bilder von zielanfang bis zielende übertragen. 
ACC dx.dy,dz 

Dieser Befehl entspricht ungefähr der SHI-Anweisung, jedoch 
wird nicht mit konstanter Geschwindigkeit verschoben, sondern in 
Ruhelage begonnen und dann konstant beschleunigt. 

MI DEC dx,dy,dz 

‚Analog zu ACC wird um dx, dy und dz verschoben, aber mit ne- 
gativer Beschleunigung, das heißt die Punkte werden immer lang- 
samer, bis sie schließlich ruhen. 

I EXT x0,y0,20,faktori,faktor2 [‚anfang,ende] 

Alle aktuellen Punkte erfahren dadurch eine Streckung mit dem 
Zentrum (x0,y0,20). Der Abstand der Punkte dazu wird am Anfang 
jeweils mit faktori multipliziert, ab dann wächst der Faktor linear, 
bis er am Ende der Bewegung faktor2 ist. Sind die Faktoren -1, so 
hat man eine Punktspiegelung vor sich. Schaltet man durch den 
MASK-Befehl eine oder zwei Dimensionen aus, kann man die 
Streckung auf nur eine Richtung beschränken. Fehlen die letzten 
beiden Parameter, richtet sich die Bewegung nach dem letzten 
MOVE-Befehl (von anfang bis ende2). 

m FORM a,b 

Die Punkte werden vom Ort im Bild »a« linear zum Ort im Bild »b« 
überführt. Man kann so zwei ähnliche Figuren definieren und dann 
ineinander übergehen lassen. Die alten Koordinaten zwischen den 
Bildern »a« und »b« gehen dabei verloren. 

Die Befehle von 3DAnim kennen Sie nun, einige Fragen müssen 
jedoch noch geklärt werden. 3DAnim benötigt eine Befehlsliste im 
ASCII-Format, in der die einzelnen Anweisungen stehen, um die 
vollständige Animation zu berechnen. Die Liste der Befehle muß 
folgendermaßen aufgebaut sein: In jeder Zeile stehen ein oder 
mehrere Befehle, die durch einen senkrechten Strich (<SHIFT 
-\>) zu trennen sind, danach eventuell ein Strichpunkt mit nach- 
folgendem Kommentar. Jeder dieser Befehle kann mit beliebig vie- 
len REM-Zeichen oder Leerzeichen beginnen. Einem Befehlswort 
muß ein Trennzeichen folgen (Ziffer, Rechen-, Leerzeichen, runde 
Klammer), ab da werden dann Leerzeichen und runde Klammern 
einfach ignoriert. Sie können so Koordinaten optisch zusammen- 
fassen. Ob Sie Buchstaben groß oder klein schreiben, spielt keine 
Rolle. Wer den Basic-Editor verwenden will, kann durch ein REM- 
Zeichen (Alt + ä) am Zeilenanfang verhindern, daß der eingegebe- 
ne Text verändert wird. Die Datei wird am Ende dann mit 


SAVE ”Name”,A 


gespeichert. Nach der Berechnung erzeugt das Programm mehre- 
re Dateien auf Diskette: eine Datei, in der die berechneten Koordi- 
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naten für die Animation abgelegt sind (Namenserweiterung ».dat«) 
und Programme in verschiedenen Sprachen, die die Bewegung 
darstellen. Am Anfang werden Sie gefragt, in welchen Sprachen 
‚der Computer diese Programme erzeugen soll. In der abgedruck- 
ten Version stehen Ihnen Assembler und Basic zur Verfügung. Ge- 
ben Sie nun bei der Eingabe eine Zeichenkette ein, die die Zeichen 
für die gewünschten Sprachen enthält. Sie sind auf dem Bild- 
schirm aufgelistet. Kleinbuchstaben und entsprechende große be- 
wirken dasselbe. Wenn Sie also »a« eingeben, wird Assemblercode 
erzeugt (Namenserweiterung ».asm«), der danach assembliert 
werden kann. Bei Eingabe von »b« schreibt Ihr Amiga ein Basic- 
Programm (Namenserweiterung ».bas«) auf Diskette. Wenn Sie 
»ab« eingeben, so befinden sich danach beide Programme auf Dis- 
kette. 

Grundsätzlich versteht 3DAnim als Parameter einen gesamten 
mathematischen Term (zum Beispiel: -9+23.2+x8/2-v12\10). Zur 
Verfügung stehen Real-Zahlen (wie 1,4.12,-184,+-,5), Rechenzei- 
chen (+,-,*,/,\), wobei »Punkt vor Strich« gerechnet wird. Außer- 
dem gibt es einige Standardvariablen: »p« und »n« geben die An- 
zahl der Punkte beziehungsweise der Bilder an. »x«, »y« oder »z« 
mit nachfolgender Zahl (x0, y4 oder z38) gibt den Wert der entspre- 
chenden Koordinate des Punktes mit dieser Nummer zurück. Da- 
bei wird der Wert aus dem Bild genommen, mit dem die Bewegung 
beginnt. 

Hat ein Parameter den Wert 0, kann man ihn auch weglassen: 
‚Aus »SET 1,0,2,0« wird »SET 1,,2«. Man sollte aber bei solchen Be- 
fehlen aufpassen, bei denen die Anzahl der Parameter eine Rolle 
spielt. Ist ein Parameter kleiner 0 oder größer n-1, so wird der Wert 
mittels »MOD« auf einen Wert dazwischen umgerechnet. 

Sie können 3DAnim um andere Sprachen bei der Programmge- 
nerierung erweitern. Wenn Sie etwa C und Pascal hinzufügen wol- 
len, müssen Sie an den DATA-Befehl in Zeile 2 noch »,6,C,p,Pascal« 
anhängen, des weiteren folgen ab Zeile 3 nun weitere Abfragen, 
hier also: 

ELSEIF a$="C” THEN 
CALL C.code 

ELSEIF a$=*P” THEN 
CALL Pascal.code 


Beim Vergleich von a$ mit einem Zeichen muß dieses als Groß- 
buchstabe dastehen. Nicht zuletzt ist natürlich der Programmteil 
nötig, der das Programm in der neuen Sprache auf Diskette 
schreibt, hier »C.code« und »Pascal.code«. So ein Programmteil 
wird einfach als Unterprogramm an 3DAnim angefügt. Dabei gibt 
es einiges zu beachten: Vor dem ersten READ muß der Zeiger 
durch RESTORE auf den Anfang des Unterprogramms gesetzt 
werden. Wie das Unterprogramm aufgebaut sein kann, können Sie 
jaam Beispiel von »Basic.code« sehen und analog programmieren. 
Wenn Sie keinen Assembler besitzen oder auf Assembler-Code 
(oder auf Basic-Code) verzichten können, lassen Sie einfach das 
ganze Unterprogramm weg und ändern noch die Zeilen 2 und 3 
u 


m. 

Zum Assembler-Code: Ein eventuell erzeugtes Assembler- 
Programm ist so formuliert, daß es mit dem A68K-Assembler auf 
der Public Domain-Diskette Fish 110 übersetzt werden kann. Dazu 
kopieren Sie einfach das Programm (»Name.asm«) in die RAM- 
Disk und legen die Fish-Disk ein, danach compilieren Sie es vom 
CLI aus mit dem Befehl 


a68k/a68k RAM:Name.asm 


und linken die so entstandene Datei »RAM:Name.o« mit dem Kom- 
mando 


pdc/examples/blink RAM:Name.o to RAM:Name.bin 


zum lauffähigen Programm »RAM:Name.bin«. Dieses können Sie 
nun starten, wozu die Datei»Name.dat« auf der eingelegten Disket- 
te stehen muß, Falls Sie diesen Assembler nicht besitzen, dürfte es 
kein Problem darstellen, 3DAnim entsprechend anzupassen. Falls 
doch Probleme auftreten, soliten Sie unbedingt die Leerzeichen in 
den DATA-Zeilen beachten. 

Damit das generierte Basic-Programm läuft, müssen im selben 
Verzeichnis der Amiga-Basic-Interpreter, das Basic-Programm, die 
Datei mit den Daten und die zwei Dateien »graphics.bmap« und»in- 
tuition.bmap« stehen. Wenn Sie einen Amiga mit 512 KByte Spei- 
cher besitzen, kann es vorkommen, daß bei den CLEAR-Anwei- 
sungen Probleme auftreten. Verkleinern Sie dann die angegebene 
‚Größe, bis das Programm läuft. Funktioniert dies nicht, müssen Sie 
leider die Anzahl der Bilder oder Punkte verringern. 


SOWWIEHONESONEUTERWORLD.CHM, 


Besitzer eines AC-Basic-Compilers können sich freuen. Sowohl 
3DAnim als auch die generierten Programme lassen sich überset- 
zen. Achten Sie dabei jedoch darauf, daß die Schalter »R« und »N« 
gesetzt sind. 

Zum Testen können Sie Listing 2 verwenden, das ein paar Fähig- 
keiten von 3DAnim zeigt. 

Natürlich soll dieses Programm nicht professionelle ersetzen. 
Dennoch haben Sie damit eine relativ schnelle und preiswerte 
Möglichkeit, in die Welt der Animation hineinzuschnuppern. kn 


Programmname: 3DAnim 


Computer: A500, A1000, A2000 mit Kickstart 
Sprache: Amiga-Basic 1.2 
[is Bemerkung: siehe Text 


Progrannautor: Harry Kellerze, 


t 
CLEAR, 150000& 
Ru ON BREAK GOSUB unterbr:BREAK ON 

Spk DErINT 4,5 

NO WG DEF Flst(p1,p2)=(p2<pi)x2+1 

Ü Wi DEP Fiina(p1)=(p1 MOD(n+1)+n+1)MoD(n+1) 

4205 DIN ink(5)‚1inie(500) ‚pnaze$,pın,xf,yf,flag3,etapel$ 
3 uk | DIM v(100),p(8) ‚zeichenos(15) ‚sprachen0$(15) 


254] 2 Data a, 
26 X DATA *,* 
@7 ei READ aS,b$ 

28 Br WEILE a9<>"*" 


‚Assenbler,b,Basie 


29 802 sprachendesprachenO+1 

30H zeichenO$(sprachenO)=a8 

3138 zeichen$=zeichenOg+UCASES(a$) 

32.09 sprachen0$(sprachenO)=b$ 

33 READ a$,b$ 

34 eno WERD 

35.30 Nun Sereen aufbauen u. Programmnane u. gewünschte Sprach 


en einlesen 

36 32 SOREEN 1,640,256,2, 

37.48. PALETTE 0,0,0, 

38 FR PALETTE 2,0,0,0:PAL 

39 AU COLOR 3,2:C15 

40.99 FOR 1=0 TO sprachend-1 

LOCATE 5+(1 MOD 5)#2,10+(1\5)"20 

PRINT zeichen0$(1+1)” "spracheno$(1+1) 

43 mrO NEXT 

dA En LOCATE 25,17: INPUT Name der Quell 
names 

46 01 | WEILE zeichenig="" 


NDOW 2,,,0,1 
1,0,0,1 
3,1,1,1 


36 DEZ LOCATE 27,17:PRINT SPACES(50) 

KT Wil LOCATE 27,17:INPUT“Sprache(n) der Zieläatei(en).(s.0.)..* 
szeicheni$ 

48 6H zeicheni$=UCASES(zeicheni$) 

4904 IF zeicheni$<> ""THEN 

Ko as“ 

51 ja FOR $=1 70 LEN(zeichen1$) 

s2 06 IF INSTR(zeichenO$,MID$(zeicheni$,1,1))THEN aß=af+NID 


&zeicheni$,1,1) 
Sau NEXT 
54 3q zeicheni$=a$ 
Ss pi2 END IF 
56 190 wEND 
ST «I CLS:LOCATE 1,26:PRINT"PROGRAMM: "phame$:PRINT 
58 fe POKEW AHDFPO*256+8296,32 
59. Ye POKEL BHDFFOR256+SH144,0 


Listing 1. Dreidimensionale Animationen mit »3DAnim« 


AMIGA-SONDERHEFT 9. 


GRAMM- 


ERVICE 


Direkt bestellen statt abtippen! 


| Die aktuellen Disketten zum Sonderheft 9: 


| 

/ 

. 

| Grafik 

-»Amiga-Objekt-Editor«: Überdimensio- 

nale Sprites spielend leicht entwickelt 

‚genaue Programmbeschreibung auf 
Seite 6 in diesem Heft). 

»AOE-Convert«: bauen Sie die mit dem 
Amiga-Objekt-Editor entwickelten Super- 

"Sprites in Ihre Basic-Programme ein (Be- 
schreibung $.18). 

IFF-Filter«: Farbbilder auf faszinierende 
Weise modifizieren (Beschreibung $.21). 
Ray Tracer«: Arbeiten mit dem Spiel von 
ücht und Schatten (Beschreibung $.21). 
»3DAnim«: Gittergrafiken - bewegt, per- 
spektivisch, dreidimensional (Beschrei- 
Bung $.30). 


. 
Spiele 

Flugsimulator (Beschreibung 5.40) 
Ping-Pong (Beschreibung S.50) 

Krieg der Sterne (Beschreibung 5.55) 


Denkspiel Trainingslager (Beschreibung 
5.61) 


Strategiespiel »Buh Au C$« (Beschrei- 
bung 5.67) 
Börsenspiel (Beschreibung $.76) 


Tools 


»MasterCruncherc: Packt alles (Beschrei- 
bung $.84). 

»Virus Killer«: Unentbehrlich (Beschrei- 
bung $.90). 

»TestDev«: Welche Devices sind vorhan- 
den? (Beschreibung $.100). 

Weiches Ein- und Ausblenden von Bil- 
dern (Beschreibung $.101). 

»Shuffle«: Der schnelle Weg zum hinter- 
sten Fenster (Beschreibung 5.102). 
»Felder«; Beschleunigtes Abarbeiten von 


numerischen Feldern (Beschreibung 
5.104). 
Anwendungen 


»Keyboard-Master«: Lernprogramm für 
das 10-Finger-System (Beschreibung 
5.121). 


Markt&@Technik 


Zeitschriften - Bücher 
‚Software - Schulung 


»Sound-Effekt-Editor«: Geräusche selbst 
erzeugen (Beschreibung S.124). 
Etiketten: Das Programm für Ihre Disket- 
tenetiketten (Beschreibung S.130). 
»hscroll«: Laufschriften erzeugen (Be- 
schreibung $.136). 

»Uni-Datei«: Universelle Dateiverwal- 
tung mit komfortabler Benutzerführung 
(Beschreibung $.140). 


Außerdem finden Sie alle Programme aus 
den Artikeln, die mit dem D-Symbol ge- 
kennzeichnet sind, auf den Programm- 
service-Disketten. 


Bestell-Nr. 45009 
Zwei Disketten! 


DM 29,90* 
sFr 24,90*/öS 299,-* 
* Unverbindliche Preisempfehlung 


WWWHOMESOMEUTERWORLD.CHM, 


Sie suchen hilfreiche Utilities 
und professionelle 
Anwendungen für Ihren 
Computer? Sie wünschen 
sich gute Software zu 
vernünftigen Preisen? Hier 
finden Sie beides! 

Unser stetig wachsendes 
Sortiment enthält interes- 
sante Listing-Software 

für alle gängigen 
‚Computertypen. Jeden 
Monat erweitert sich 

unser aktuelles Angebot 

um eine weitere interes- 
sante Programmsammlung 
für jeweils einen 
Computertyp. 

Bei Fragen zu Bestellung und 
Versane der 
Programmservice- 
Disketten wählen Sie 


bitte; 
Telefon (089) 4613-232. 


Bestellungen bite nur 
Vorsuskass on; Mark echnik 
Verlag AG, Buch- und Software: 
Verlag, Hans-Pinsel-Stroße 2, 
D-8013 Hoar, 
Tolefon (089) 4613-0. 
Schweiz: MarktäTechnik 
Vertriebs AG, Kollerstrasse 37, 
CH-6300 2 
Telefon (0.42) 440550. 
Österreich: Markt&Technik 
Verlag Gesallschoft m.b.H 
Große Neugasse 28, 
A-1040 Wien, 
Telefon 10222} 5871393-0; 
Mierocempukique, E, Schiller, 
straße 17, A-3500 Krems, 
Telelon (02732) 74193; 
MES-Versand, Postloch 15, 
A-3485 Haitzendorf; 
Bücherzentrum Meidling, 
Schönbrunner Straße 261, 
A-1120 Wien, 
Telefon [0222] 8331 96. 
Bestellungen aus anderen 
Ländern bite nur schrihlich or: 
Markt& Technik Verlag AG, 
‚Abt. Buchvertrieb, Hans-Pinsel 
Straße 2, D-8013 Hoor. Nur 
(gegen Bezahlung der Rechnung 
im voraus, 


Bitte kein Bargeld einschicken! 


Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die bei- 
gehefiete Postgiro-Zahlkarte, 
oder senden Sie uns 
einen Verrechnungs- 
Scheck mit Ihrer Bestel- 
lung. Sie erleichtern uns 
die Aufrragsabwicklung, 
und dafür berechnen wir 
Ihnen keine Versand- 
kosten. 


GRAMMSERVICE 


Bit für Bit nur Hits... 

„das Beste aus 
zwei Jahren 
Amiga-Magazin! 
Wir haben auf zwei Disketten die interessantesten Program- 
mangebote der Jahre 1988 und 1989 für die Bereiche An- 
en Targa Tool und Spache esscamal Mi dieser Sonim: 
lung legen Sie einen leistungsfähigen Grundstein oder bilden 
eine sinnvolle Berge Ihre Programmbibliothek. Und 
dies alles zum besonders günstigen Paketpreis. 
DISK I: Anwendungen, Is 
»AmigaDak« - Die Dateiverwaltung für alle Zwecke, von der 
Schallplottensammlung über Adressen bis hin zur Video- 
sammlung 
»Manager« - Das komfortable Haushaltsbuch. 
»Disketi« - Drucken von Diskettenlabels. 
»MasterCruncher« - leistungsfähige Daten- und Programm- 
komprimierung. 
»Recover« — Retten von gelöschten Daten. 
»Resi« - Macht Programme reseifest. 
»MouseCreator und PointerMakert - Generieren Sie Ihre 
eigenen Mauszeiger. _ 
»DiskSpy« - Problemloses Ändern von Daien direkt auf 
Diskette. e at ; 
»AmigaSortk« - Bringt Ordnung in Ihre Diskettensammlung. 
are Einfaches Ein und Ausblenden von Bildschirmen 
ermöglicht tolle Effekte. 
en Fa li an lern Ihı 
»TrapHandle« - Die Möglichkeit bei auf Fehlern Ihr 
C-Pı en ae 
DISK Il: Die Spielesammlung, 
die man haben mul 


»Troof« - Das spannende Motorradrennen der Zukunft. 
»Quadron« - Geschicklichkeit bei höchsten Geschwindig- 
keiten sind gefragt. 

ieleumsetzu 
»Poker« - Wann bekommen Sie den Royal-Flush. 
»Billard« - Tolle Grafik erwartet Sie bei dieser 
fantastischen Umsetzung. 
»Domino« — Verblüffend Umsetzung des bekannten Spiels. 
»Kniffel« - Eine grafisch verblüflende Wörfelspiel- 
umsetzung für bis zu vier Spieler. 
»3D-Tic-Tac-Toe« - Draidimensioncles Spiel zum 
Kombinieren und Denken. 
Bea of the Rest \ 
»Eliza« - Der Amiga als Psychotherapeut. 
re 
Die Beschreibungen der Programme sind als Readmefile auf 
den jeweiligen Disketten. 
Bestell-Nr. 47901 
Zwei Disketten randvoll mit tollen Programmen zum Paket- 


preis von: 
DM 39,90* sfr 39,-*/ 85 390,—" 


Direkt bestellen statt abtippen! 
Die aktuelle Diskette zum Heft: 
iga-Sonderheft 7 
Reflex: Das neueste Projekt von Arno Gölzer. »Reflex« ist der 
Nachfolger der beliebten Billardumsetzung. Lassen Sie sich von 
einer einzigartigen Spielidee und der tollen grafischen Umset- 
zung begeistern. Beschreibung auf Seite ff. Noch mehr starke 
Spiele... Ob Action- oder Strategiespiel — hier finden Sie alles, 
was das Spielerherz begehrt. »Fast Freddie« Die Beschreibung 
dieses Actionspiels finden Sie auf Seite 86. »Memory« Eine 
interessante grafische Umsetzung für Leute mit gutem Gedäch: 
nis. Beschralang auf Seite 97. »Reactor« Das Strategiespiel, 
das auch Atomkrafigegner fesseln wird. Beschreibung auf Seite 
107. »Schiebespiel« Strategisches Denken und Tüfteln ist bei 
diesem Spiel das A und ©. Beschreibung auf Seite 88. 
Vector-Grafik-Library: Nutzen Sie die ganze Faszination der 
Vektor-Grafik. Mit dieser Bibliothek bauen Sie Vector-Grafiken 
auf einfache und schnelle Weise in Ihre Programme ein. Der 
Vorteil: Es wird nur wenig Spei latz und Rechenzeit ver- 
braucht. Beschreibung SUP Seite 22H 
Zwei Disketten 
Bestell-Nr. 45907 


DM 34,90* «fr 29,50°/55 349,-* 


WW HONECOMPUTERWORLD.COM 


Amiga-Sonderheft 2 

Grafik, Anwendung 

Object-Editor: Animierte Figuren, beispielsweise für eigene 

Spiele, entwickeln Sie mit diesem Editor auf komfortable Weise, 
ır mit Deluxe Paint erstellte Pinsel lassen sich einlesen. 

Haushaltsbuch: Mit diesem hervorragenden Anwendungspro- 

‚gramm verwalten Sie alle Einnahmen und Ausgaben auf aber. 

sichtliche Weise. Eine Monats- oder Jahresstatistik zeigt, in 

welchen Bereichen Sie zukünftig sparen können. Jetzt haben Sie 

Ihre Finanzen im Griff 

Keyboard-Master: Lernen Sie im Zehn-Finger-System zu tippen. 

Mit diesem didaktisch ausgereiften Programm ist dies kein 

Problem. Für Programmierer sind sogar Spezial-Lektionen mit 

wichtigen Sonderzeichen vorhanden. 

FastLoadCopy: Dieses Tool bringt den DIR-Befehl auf Trab. Nach 

der »Operation« wird das Inhaltsverzeichnis einer Diskette im D- 

Zug-Tempo eingelesen. Zusätzlich kopiert das Programm Disket- 

ten und versieht diese mit dem schnellen Directory. 

Weiterhin befinden sich auf der Diskette alle Programme, die im 

Inhaltsverzeichnis des Amiga-Sonderhefts 2 mit einem Disketten- 

symbol gekennzeichnet sind. 

2 3"-Diekete für Amiga 

Bestell-Nr. 458020 ° DM 29,90* sfr 24,90°/65 299,-* 


Die Wiederbelebung für die 

C64-Perij 

Viele Amiga-Besitzer haben noch einen C64 mit Peripheriegerä- 
ten zu Hause stehen. Mit ein bifßchen Hard- und Software können 
Sie diese zu neuem Leben erwecken und Ihre Daten so weiterbe- 
nutzen. Dabei ist die Bedienung wirklich einfach. 

Der fetig aufgebaute IEC-Handler erlaubt es, alle C64-Geräie 
wie die Flop 1541 oder 1571, Commodore-MPS-Drucker und 
natürlich auch den C64 (zur Datenübertragung) am Amiga zu 
betreiben. 

Dos Gesamtpaket besteht aus der fertig aufgebauten Platine mit 
Verbindungskabel, der Treibersoftware auf 3,5"-Diskette sowie 
einer entsprechenden Dokumentation. 


Bestell-Nr. 39101 DM 79,-* sfr 71,-*/85 790,-* 


Sonderheft 8 
Nr. 1: »Maze« 
»Maze« ist ist das Spiel für Denker und Lenker: Schnelles 
‚Auffassungsvermögen und eine ausgeklügelte Taktik entschei- 
den dieses Spiel. Ein langes Spielvergnügen ist durch den 
eingebauten Level-Editor garantiert. 
Weitere Informationen über dieses faszinierende Spiel findeh 
Sie auf Seite 106 in diesem Heft. 


Spiel Nr. 2: »Oel-Fieber« ; 

Steigen Sie ein in das Millionengeschäft um Öl und Aktien. Ihre 
Fähigkeiten als Manager werden auf immer neue Bewährungs- 
proben gestellt. Das amüsante Würfelspiel erfordert dabei eine 
Menge Kreativität, um immer neue Strategien zu entwickeln. Wie 
Sie mit Öl- und Aktiengeschäften reich werden können, lesen Sie 
in diesem Heft ab Seite 89. 

Sicher ist sicher 

Unumgänglich für jeden Amiga-User ist ein leistungsfähiges 
‚Anti-Viren-Programm. »Virus-Control v 1.44 schützt Sie vor 
allen bekannten Bootblock- und Linkviren sowie durch seine 
Lernfähigkeit auch vor zukünftigen »Infektionskrankheiten«. 
Schaffen Sie sich mit »Virus-Control v 1.4« ein zuverlässiges Im- 
munsystem für Ihren Amiga. Die Anleitung finden Sie auf der 


Diskette. 
Bestell-Nr. 45908 DM 29,90* sfr 24,90*/65 299,-" 
* Unverbindliche Preisempfehlung 


Wichtig: Yan: 
} = Scheckheft« zu DM 149,- können Sie Software- 

Diskeften Ihrer Wal? aus dem Programmservice-Angebot im Wert von 

DM 180. bestellen - egal, ob diese DM 19,90, DM 29,90 oder DM38,- kosten. 

Sie sparen DM 30,-! 

Das Super-Software-Angebot finden Sie in den Zeitschriften 

Computer Persönlich, PC Magazin Plus, Amige-Magazin, 

Amiga-Sonderheft, 64’er-Magazin, 64'er-Sonderheft, ST-Magazin, 

PC Magazin, Computer ve. 

Übrigens: Die Gutscheine können Sie auch Übertragen oder verschenken! 

Das Scheckheft können Sie per Verrechnungsscheck oder mit der 

eingehetieten Zahlkare irekt beim Verlag bestellen. 

Kennwort: "Super-Software-Scheckheft«, Bestel-Nr. W158 


GaRArıK 


EOEEN !----- Interpreterschleife 
OL DS OPEN pname$ FOR INPUT AS 1 
\WEILE NO? EOr(1) 
LINE INPUT #1,89:a$=UCASES(LEFTS(a$, INSTR(a$+"; 7,7; ")-1)) 
:neilegza$ 
WHILE zeiles< > "" 
a$eLEFT$(zeile$, INSTR(zeile$+"1 ”, 71 ")-1) :zeile3«NID$(ze 
i1e$,LEN(a$)+2) 
bSeLEFT$(a$,1):WHILE b$=" "OR b$="' ":a32MID$(a3,2):b$=L 
ERT$(a$,1) :WEND 
F a$< > ""THEN GOSUB ausfuehren 


--- Daten der Punkte umrechnen + speichern und Progranne 
| erzeugen 
iQ | GOSUB unrechnen:GOSUB Linie. interpr 
@3 0A OPEN pnane$+".dat” FOR OUTPUT AS 1 
24 SV FOR je0 TOn 
7a y2 FOR 1=0 TO p:PRINT@1,MKISCK(L,J))MKISCYCL,J)) 
76 J00 NEXT 
En \ CLOSE 
78 64 FOR {el TO LEN(zeichenog) 
ag=NID$(zeichend$,1,1) 
asINSTR(zeicheni$,28) 
IF a THEN 

IF aße”A” THEN 

GOSUB Assenbler.code 

ELSEIF 8$="B" THEN 

GOSUB Basic.code 
!Hier können weitere Abfragen folgen. 


- Starten des erzeugten Basic-Progranns oder Ende 
GOSUB schliessen 
\REM IF INSTR(zeichen1$, "B”)THEN RUN pnane$+".bas” 


N TamHRk Abbruch des Programms 
tanen Unterbrechung 

N unterbr: 

j2, COSUB schliessen 


Fehlermeldung 


PRINT: PRINT "Fehler: 
(COLOR 2,3:PRINT befeh1$:COLOR 3,2 
WHILE INKEYS="*:WEND 

GOSUB schliessen 


WINDOW CLOSE 2 
SCREEN LOSE 1 


PRINT * ” bS TAB(10) a$ 

bB=LEFTS(b$+". ») 

o$e "DIN. .PERS.SET.ROTI.ROT. „LINE.MOVE.SHI. „SHIT. TURN. 
COpY.RES, 
08=0$+"ORIG.MASK.ACO. „DEC, „FORM.EXT. „LET. „BOX. „LBOX.REC.. 
LREC.INKS. ” 

a= (INSTR(0$,6$)+4)/5 

IF a<1 OR a>1 AND flagı THEN £ 

IF RIGHTS(a$,1)=", "THEN aS=aß+"0" 

cs«a 

ON a GOSUB o.dim,c.pers,c.set,c.roti,o.rot,c.Line,c.move, 
0.5hl,c.shli,o.turn,c.copy,c.res,c.orig,c.mask,c.acc,c.acc 
NN ‚e.form,o.ext,o.let,e.box,c.1box,o,rec,c.Irec,c.inks 
‚Nz0 RETURN 

.- a3 auf zulässige Zeichen prüfen 


b$="":c9=LEFTS(a$,1) 

WEILE "A"<=c$ AND 08<="2" 
b$=b$+c$:a5-MIDS(a$,2):03-LEFTS(a$,1) 

WEND 

IF b$=""OR LEN(b$)>4 THEN £ 

aetr 
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148 dr 
149 Xn 
150 252 
151 nPo 
2203 
153 10 
154 Br2 
155 2D 
156 12 
157 30 
158 It 
159 9) 
160 ya2 
161 Er 
162 55 
163 Ua 
164 €6 


165 yw 
166 21 
167 Cak 
168 N 
169 476 
170 4 
Y7ı 8p6 
172 ND4 
273 766 
Th 824 
175 "16 
176 7V4 
177 Kx6 
178 104 
179 pn& 
180 0)4 
281 Ma2 
182 sl 
183 JH 
184 KWO 
185 IT 
186 v02 
1a7 20 
188 we 
229 1j& 
190 03 
191 uK2 
192 24 
193 g0& 


IF a8< > ""TREN 

a$="" 

FOR j=1 10 LEN{a$):eS-MIDS(a$,5,2) 
IF INSIR("XYZPNV: „.+-8/\0123456789- () ",e$)=0 TEEN ? = 
ISE IF INSTR{"( )",e$)=0 TEEN c$=ch+es 


IF mo=1 AND a THEN ke1 


‚x0y020; 
Plag4=-1:005UB h:x0=2:G0SUB h:y0-a:C0SUB h:z0=8 
RETURN 


x0,30,20 holen 


addieren bei DEC,ACC,SHT,SHIT 
adı 
IF xx THEN x(1,j)ex(1,5)+x088 
IF yy THEN y(1,3)=y(1,J)+y0%a 
IF 22 THEN 2(1,3)=2(1,j)+20%8 
RETURN 
1----- Parameter von c$ nach a holen 
h: 
8=0:52=0:584”" 
INSTR(e8,”,”):IF d THEN f3=",” 
a=INSTR(08, ":"):IF a AND(a<d OR d=O)THEN f8=". 
asINSTR(e$, ”.."):IF a AND(a<d OR G=O)THEN #9="..": 
IF d THEN d$="+"+LEPTS(0$,0-1) :c$=KID$(c$,d+12N(f$))ELSE 
Ada "4 "sofiade"" 
IF d8< > "+"THEN 
WIILE 8<>"" 
#3=LEFTS(d3,1) :GOSUB objekt.holen 
IF f$="4"THEN 
S=5+82:52=a 
BLSEIF £9="-"THEN 
Bu5462:522-8 
ELSEIF f$="N"THEN 
52=52%8 
ELSEIF £$"/"THEN 
IF a«0 THEN £ ELSE #2«32/a 
ELSEIF £9="\"THEN 
IF a=0 THEN f ELSE 52=52\& 
ZISE 
coro ? 
END IF 
END 
AD Ir 
a=s+52 
RETURN 
objekt holen: 
GS=MID$(d3,2):e3=LEFTS(d$,1):IF eS=""THEN £ 
vi 
WHILE e$="+"OR e$="-" 
IF e$="-"IHEN vv 
GS=NID$(d8,2) :e9=LEF73(d3,1) 
WEND 
IR INSTR(".0123456789”,eS)THEN "Zahl 
GOSUB z1ffern.holen:a=d 
EISEIF e3="N"THEN 
an+1:08=MID$(a$,2) 
EISEIF e$="P"IHEN 
a=p+1:d$=MID$(d8,2) 
ELSEIF INSTR("XYZ”,eS)THEN "Koordinate 
EB=e$:d$-MID$(d$,2):COSUB ziffern.holen 
IR g8="X"IHEN a=x(d,an)ELse IF "TEEN a=y(d,an)EIse 
a=2(d,an) 
BISEIF e$="V"THEN 
d$=MID$(4$,2):COSUB ziffern.hel 
ELSE 
soro ? 
EW IF 
asvsa 
RETURN 
zehl.holen: 


"anzahl der Bilder 


"Anzehl der Punkte 


215 pkO RETURN 
26 55 ziffern.holen: 
217 222 koma-0: 

9°,n3)=0 TEEN £ 


SPI$(d$,1):IF n$=""OR INSTR(".012345678 


218 Zu ZNSTR(".0123456789”,nS)AND d8<>"" 
23 24 n3="."THEN IF konma THEN £ ELSE komma--1 
29 et e$=e$+n$:äß-MIDS(d$,2):h3-LEFTS(d$,1) 

221 002 wenD 

222 ie dsvalles) 


227 50% dis2(1,j)-20:d2=y(1,5)-y0:GOSUB winkel:wertuztv 
228 SH 2(1,3)=20+008(w)*b 


231 x4  IP m onmmn 

1-x(1,3)-x0:42=y(1,j)-yO:COSUB winkel:wswuindr 
23316 x(1,))ex0H0s(w)s 

234 ME 3(1,3)=y0+SIN(w)*b 


für Rotationsbefehle holen 


238 74 get.rot: 

239 WRZ2 COSUB x0y020:G0SUB h:wx=argrad:GoSUB 
240 Ku Flag6=0$< > "":C0SUB h:dwsargrad:flag‘ 
2ki 9a IF flag? TEEN 

2 JE  xiewe/grad:; 
23 GOSUB 
2 si2 Em IF 
245 IvO RETURN 
246 N6 '---—- 3D- in 2D-Koordinaten umrechnen 
247 92 unrechner 
Zus yi2 xfe(xfrorge)/Ixiyielyfrorgy)/Ty:zte(afrorgs)/te 
USER FOR J«0 Ton 


-atgred 
<>rr 


jev2/gradiziedw/grad 
atgres 


250 94 FOR 10 p 

251 W6 ‚2(1,j)+orgz)/fz 

252 88 x(1,))e  (arxtrlaf-a)s(x(1,J)+orgR)/Ex)/st 
253 23 3(4,3)=255-(atyt+(af-a)*(y(1,j)torgy)/ts)/at/2 
254 BOh NEXT 

255 02 NEXT 

256 60 RETURN 

27WE ' -- Eingabe; d1,d2 = Koord. e. Vektors 


Ausgabe: u = Zuischenvinkel, b = Betrag 


IF di»0 THEN 
261 014 w=pt/2:IF d2<0 THEN weur 
262 pi2 EISE 
263 4  wearN(d2/aBS(di)):IF di<O THEN wepi-n 


26h 052 m Ir 
5 b=Sohläramd2ed2) 
286 eG0 RETURN 


Eingabe: x0,30,20, x1,yl,zl 
Ausgabe: wx,wz 


263 NQ trans: 

270 332 IF x1-x0 OR yl-yO OR z1-20 THEN ELSE £ 
ZI 18 di+z1-20:d2=y1-y0:COSUB winkel:wzeu-p1/2 
272 61 dlrsi-20:d2- b:GOSUB winkel:ux=i-pi/2 


linie$ interpretieren 
275 Ok linte.interpr: 
276 5:2 a$-MIDs(Zinies,2) 
gt 3 WEILEaS<>"" 


ie(1) 


:J=2 'Nove 


278 dk aeINSIR(e$+":",":")z0S=LEFT$(a8,a-1) :a9=11D$(ad,e+1) 
279 88 IF RIGHTS(c$,1)=", "IHEN c$=c$+"0" 

280 p4 WEILE c$<>"" 

21 216 GOSUS intervall.holen 

282 hr IF d=0 THEN m2=m1 

233 3 FOR i=nl TO m2 STEP Flst(a1,n2) 

284 058 se(j)=i:linie(j+1)e2:j2j+2 !Dras 

285 216 

286 304 

287 25 linie(j-1)=1 "doch Nove 


Z2 52 aD 

23 5 Hniel0)-j3 

290 220 RETURN 

291 30 intervall.holen: 

232 nl2 a-INSIR(e$,”..”):b=INSTR(e$,",") 
293 =) IF a=0 OR a>D AND b THEN 
43%  GOSIB hınla:d-D 


AMIGA-SONDERHEFT 9 


GrArık 


IF LEFT$(o$,1)=", "OR c$=""THEN m2=p:c$=MID$(c$,2)ELSE G 
OSUB hınz=a 


300 0eO rurun 
301 da '#Kk%* Unterprogramme für die einzelnen Befehle: 
302 I o.din: 

303 aN2 flagi=NOT Flagi:IF flagı THEN £ 

"304 @e | GOSUB hi ;GOSUB hinsa-1:flag3=0$="" 

305 pb DIN x(p,n) ‚y(p»n),2(p,n)punkt(p) 

306 BR | FOR i=0 TO p:punkt(1)=-1:NEXT 

307 ml) ansO:enen:en2=n:mo=O 

‚308 KO, RETURN 

309 Qb o.pera: 

310 a2 GOSUB h:xfsa:G0SUB hiyfsa:00SUB h:zf=a 

a2 Ne0 RETURN 

2 c.set: 


INSTR(o8+":",%:") 
;sLEFTS(08,8-1) 


215 04 MILE 9<>"" 


‚316 Qu4 GOSUB x0y020:a=0:m2en 

317 Hg IF 08< > ""THEN GOSUB him2=a:GOSUB h 
18 tn FOR isn TO n2 STEP Fist(a,m2) 

319 ka6 IF xx THEN x(set,1)=x0 

"320. ar IF yy THEN y(set,1)syO 

3a IF 22 THEN z(set,1)=20 

Baal NEXT 


323 0% setsset+l:asINSTR(bI+":",":") 
32401 cf=LEFIS(bB,a-1):b$=MID$(b$,a+1) 
325 gU2 WEND 
326 &ED| RETURN 
37 CA 0.move: 
ERASE punkt:DIM punkt(p) 
asINSTR(08, ":" 
bS=HID$(o$,ar; 
IF RIGHTS(c$,1)=", "THEN e3=0$+"0" 
WEILE od<>"" 

(GOSUB Intervall.holen 

IF 4«0 THEN n2eml 

FOR {=mi TO m2 STEP FNst(m1,m2):punkt(i)=-1:NEXT 
WEND 
e8=b$:U0SUB h:anza 
IF 08< > ""THEN GOSUB hien=a 
en2=en:IF c$< > ""THEN GOSUB hzen2=a 
GOSUB h:moa 
IF en<an OR en2<an OR ABS(mo-1)>1 THEN £ 

\ IF en2zen THEN mo=0 

343 tVO RETURN 
344 DQ \o.line: 
345 KR2, linießelinteß+”:"+a$ 
346 «YO. RETURN 
349 4 e.rot: 
: GOSUB get.rot 
IF flag? THEN GOSUB trans 
meen-anel 
FOR 1:0 70 p 

IF punkt (4)THEN 

kelirel 

an 10 en2:j»Fiind(e) 
GOSUB drehen 
disx(1,))-x0:d2e2(1,j)-20 


x(1,))=x0+005(w)#b 

2(1,J)a2048IN(w)Rb 

ve1:G0SUB drehen:GOSUB k 
NEXT 


END IF 
NEXT 
‚364 EqO RETURN 
368 &D o.roti: 
366 Wt2 Push en:Push no 
367 Kt4 ensan:mo=1:G0SUB c.rot 
368 Jd2| Pop mo:Pop en 
369. IvO. RETURN 
370. 00. o.tum: 
371 Ho2 GOSUB get.rot 
IF flag6 THEN xlewx/grad:yl=wz/grad:zi=dw/grad:GOSUB tran 
s 


FOR 1=0 TO p 
IF punkt(i)THEN 
FOR e=an TO en2 


Bez mmır 


392 ner 
380 160 RETURN 
3B132 c.ehi: 
COSUB x0y020:m=en-an+1 
FOR 1=0 TO p 
IF punke(4) THEN 
kelırel 
FOR esan TO en2 


J=Flind(e) :a=k/n:00SUB add:00SUB k 


Pop mo:Pop en 
RETURN 
jo.copy: 
Mlagln-1 
GOSUB h:ml=a:G0SUB h:m2: 
IF ‘6$< > ""THEN GOSUB 
IP 08< > ""THEN 
GOSUB h:b=Flst(m1,m2):o=FNst(n3,a) 
IP ABS((n2-m1)/(a-m3))<>1 THEN £ 
FOR 1=0 70 p 
IF punkt(1)THEN 
FOR e=n1 TO m2 STEP b 
J=Find(e) 
keFlnd( (e-m1)/b*c4m3) 
IP xx THEN x(1,k)ex(1,3) 
IF yy THEN yll,k)ey(i,d) 
IF ze THEN 2(1,k)=2(1,)) 
NEXT 
xD IF 
NEXT 
zISE 
FOR 10 TO p 
IF punkt(1)THEN 
FOR e=m2 TO n3 STEP FNst(m2,n3) 
Jerind(e) 
IF xx THEN x(1,j)=x(1,m1) 
IR yy THEN y(1,J)=y(1,n2) 
IF 22 THEN 2(1,))=2(1,m1) 
NEXT 
Ir 
NEXT 
Aw IF 


a ELSE n3=m2:ma=n1+ENst(m1,m2) 


RERSNREBESBESERFESBSRSRERESSSUBSKOREESBRESREN 
REBERFFRRIARRESSFFRTBUTFREDERERESHEIRERSSREFN 


& 
z 
i 


428 TH o.res: 

229 VR2 xOsfx:yOsfy:20sfz 

430 00 fx» 1:IF c$<> ""THEN GOSUB 
MlzH  fyefx:If $<> ""THEN GOSUB 
432 20 | faefz:If o$<> ""THEN GOSUB 
433 $r IF fxefyetzsO THEN f 

Mu h2 | xtext/sürtxiyayt/yortyinfanf/ontg 

435 48 orgx=orgx/xOrfz:ongysorgy/yOrlysorgnsonge/sOnE 
436 6k IF Flagk THEN 

W375, FOR 1=0 10 p 

‚438 ENG FOR J=0 TOn 


439 708 x{1,J)=x(1,))/w0rex 
440 P3 yans)ayl1,g)/yorty 
441 hK z(1,j)«2(1,J)/20*f2 
Aka DIE NEXT 

Mas at 

Au 62 END IF 

Mid  Plagee-ı 

445. YAO RETURN 

ART WB. c.orig: 

MbB 572 xüsorgx:yOsorgy:z0sorge 
WI JO OOSUB hiorgxen:GOSUB h:orgy=a:GOSUB hiorgz=a 
20 IF flag THEN 

451 08% FOR 1«0 TO p 

452 Pb6 FOR j=0 Ton 

453 y08 x(1,j)=x(1,j)+x0-orgx 
458 D3 s4,s)eyli,g)+#y0-orey 
453 5x 2(1,5)=2(1,9)+20-orge 
456 Ru6. NEXT 

AT nem 


sam2 END Ir 

EM ufsxfax-orge:yPeytryO-orgyinfenf+20-orge 

460.200 RETURN 
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54h 10L COSUB intervall.holen 
wi 


45 3 IF d=0 TEEN n2«nl 
546 2D | FOR ismi TO m2 STEP Flst(m1,22):p(0)=p(0)+1:p(p(O))=1:N 
e.ase: N ExT 
flag2-LEFIS(b$,3)="DEC” SAT cha wand 
Su oe 


549 12 | GOSUB x0y020:C0SUB h:dxea:dysa:dz-a:mı-O:m2-n 
| IR e8<>""THEN GOSUB hıdyen 
IP 08<> ""THEN GOSUB h:de=a 


ke1:IF flag2 THEN ken-1 
FOR e=an TO en2 

‚JeFind(e) 

auktk/n/mikskt1 

IF flag2 THEN ae1-a:k«k-2 
GOSUB add 


IF m2<ml THEN £ 


I) N NEXT 587 6X 0$="1234156785:26:37:48”:C0SUB anhaengen 
| \ END IF 558 NyO RETURN 
n i 559 m anhaengen: 
‚360 Sb2 Linieg=linieg+”:” 
S6L HR FOR del TO LEN(oS) 
GOSUB h:nl=a:C0SUB h:n2=a:m=ABS(m2-m1) 562 E54 a=VAL(NIDS(cH,1,1)) 
FOR 1«0 TO p 363 0L IF a THEN 
IF punkt(4)THEN "564 NI6 Linie$elinie$+HID$(STR$(p(a)),2)+”," 
x0°x(1,n2)-x(1,21) 565 ANA ELSE . 
yOry(1,22)-y(i,ni) ‚966 HD6 KID$(linie$,LEN(1inie3) 1)=":" 
5675 END IF 
FOR esml+a TO n2-a STEP a:j=Flind(e) 569 Linie$-LEFTS(1inie$,LEN(linie$)-1) 
IF xx THEN x(1,j)=x(i,n1)+x0*k/n ‚570 YA0 RETURN 
| IP yy THEN y(1,J)=y(1,m1)+york/m BTL EA c.rec: 
I IF 22 THEN 2(1,3)=2(1,n1)+208K/m or GOSUB daten.holen:IF p(0)-4 OR dxkäykds THEN f 
ll kekıl exe} FOR e=ml TO n2:j=Plind(e) 
il NEXT 374 a=1:x1=x0:yl=y0:21=20:G0SUB 5 
| END IF 575 x1»x0+äx: IF dx=D THEN z1=20+d5 


GOSUB 5 


I) NEXT 
| yleyO+dy:IF dx THEN z1=204d2 
| ext: GosuB s 

a3ec$:C0SUB x0y020:G0SUB h:G0SUB h:Push an:Push en2 x1=x0:1P dx=O THEN 21:20 

IF 08<> ""THEN GOSUB h:ansa:GOSUB h:en2«n2 GOSUB 8 


of 
GOSUB x0y020:G0SUB h:ml=a:GOSUB h:mz=a 


FOR 1=0 TO p 
IF punkt(i)THEN 
FOR e=m3 TO n4:j=Flind(e) 
aenl+(n2-a1)/(m4-m3)*(e-n3) 
IF xx THEN x(1,5)=x0+(x(1,3)-x0)*a 
IF yy THEN yl1,J)=yorly(i,))-yo)ta 
IF 22 THEN 2(1,j)=20+(2(1,j)-20)*8 


FOR +1 10 0 STEP-1 
GOSUB x0y020 


Pop en2:Pop an > RE Basic.code.data:RESTORE Basio.code.data 
396 at2 OPEN pname$+".bas” FOR OUTPUT AS 1 

597 89 PRINT#1, "LIBRARY "+CHRS(34)+"Intuition. Library” 

PRINT#1, "LIBRARY "CHR$(34)+"graphies. Library” 

PRINT #1, "CLEAR, 100000” 

Read.dats 

DATA "SCREEN 2,640,256,1,2", "WINDOW 2,,,0,2” 

DATA sor2=PEEKL(WINDOß(7)+46) ‚bn2&=PEEKT(HINDON(8)44) ‚* 

PRINT #1, "PALETTE 0, “+STRS(Ink(0)/15)+", "+STRS(Ink(1)/15) 


re IF larıg(e8,1) > vom £ 
a=INSTR(c$+",",","):d$=MID$(0$,2,8-2) :0$=MIDS(o8,a+1) 
GOSUB ziffern.holen:mi=d:00SUB h:v(ml)=a 


IF p(0)-8 TEEN £ 


Fiind(e) +", 4STR$(Ink(2)/15) 
&e1:x1-x0:yleyO:21-20:G0SUB 5 PRINT #1, "PALETTE 1, "+STR$(Ink(3)/15)+", "4STRS(Ink(4)/15) 
x1ex04dx:00SUB 5 +", 4STR$(Ink(5)/15) 
ale204dn:00SUB 8 Rend.data 


DATA "SCREEN 1,640,256,1,2”, "WINDOW 2, ,,0,1” 
DATA rp&=WINDOW(8) ‚bmi&sPEEKL(rp&+4) ,* 
PRINT #1, "OPEN”+CHRS(34) +pnameS+ ".änt"+CHRS(34)+"FOR INPU 


x1.x0:G0SUB 
yiryOrdysz1e20:008UB 5 
x1=.x0+4x:G0SUB 5 


sag 2 ER2S33 
Susb BD rasngrs 


zle204d2:G0SUB 8 rasır 
x1ex0:G0SUB s 09 0E | FRINTAL,"p£e"+STRS(p)+"inde"+STRS(n)+":DIN x4(p%,nE) ‚yRl 
$ PR,nR)” 
RETURN ‚620 PRINT #1, "xf$="+STRS(xF)+":yP8="4STR$(255-y1/2)” 
ou 


abs 5 28 


PRINT#1, "FOR J$=0TO n$:FOR i£=0T0 p&:x%(18,j%)=CVICINPUT 
3y%(18,J#)=CVI(INPUTS(2,1)):NEXT:NEXT” 
"j8-0:SoreenTofront ser2k:POKEW EHDFFO#256+4H96, 
32:POKEL BHDFFOr256+44144,0° 

PRINT#1, "WHILE PEEK(-4202495) AND 64” 

PRINT#1," CLS” 

IF flag3 THEN PRINT#1,” Move rp&,0,251:Draw rpk,xfd,ylH 
N :Dras rp&,631,251” 

(616 a0 FOR 14-1 TO linie(O)STEP 2 


Listing. Dreidimensionale Animationen mit »3DAnim« 
(Fortsetzung) 


IF xx THEN x(p(a),j)=x1 
IF yy THEN y(p(a),j)=y1 
IF zu THEN z(p(a),J)s=1 
aa 
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©7854  as=NIDS(STR$(1inte(11+1)),2) 


ea 8a b$="Draw”:IF Zinie(ii)=1 THEN b$="Hore” 
SB PRINT#1," "sb$+" rpk,xk("raS+", 32) yelesr",j2)” 
01582 NEXT 


621 01 | Read.date 
622 v8 | DATA ” BltBitNap bm12,0,0,b22&,0,0,640,256,24C0,, 
30 DATA” JE-(jEr1)moD(ngs1)” 

GBA NP DATA WEND, WINDOW CLOSE 2,SCREEN CLOSE 1,WINDOW CLOSE 2,50 


REN CLOSE 2 
&25 Ru DATA LIBRARY CLOSE,* 
626 Ay CLOSE 
627, 750 RETURN 


ars! Assenblerprogramm auf Diskette erzeugen 

629 HL Assenbler.code: 

630. 3@ Assenbler.code.data:RESTORE Assenbler.oode.data 

631 CH} OPEN pnamef+".asm"FÜR OUTPUT AS 1 

(OHG PRINT#1,” bra run“ 

533m PRINT#1,"Intname: de.b "Intuftion.Librery!,0” 

634 14 PRINT#1,"gfxnane: do.b "graphics 

635 38 pri 

838 in PRINT#1,"dosnane: de.b !dos.library!, 

7 Ey Read.data 

Ba DATA "derser: de.w 0,0,640,256,1,1,88000,15”,” de.1 O,21t 
18,0,0” 

Ga Ek DATA "defwin: de.w 0,0,640,256,1”,” de.1 0,8800,0,0,ti:le 


0 9a DATA "soreeni: do.1 0,0," de.w 0,0,640,256,15”, "screen2: 


de.1 0” 
ORIRE DATA "window: de.1 0”, "rastport: de.1 0”, "bitzapl: de.i 
N o* 


GAR BE DATA "window2: do.1 0”, "bitmap2: de.i 0”,"adr: de.1 07,* 

&4a En PRINT#1,"Filenane; de.b '"+pnane$+".dat',o” 

644 NS Rend.data 

&US\OL DATA ” even”, "silend: de.1 0", "bild: de.w 0”, "run: zove.l 
h,a6",% 

6 q&  PRINTF#L,"p: equ”+STRE(p+L) 

BARKN | PRINTMA,'n: equ‘+STRS(n+1) 

a OR PRINTML,"xt: equ “+STRS(KE) 

649 40 PRINT#1,"yP: equ “+SIRS(255-y1/2) 

850 TB | Rend.data 

Gl uy | DATA ” len dosname,al”,” jsr -408(26)”,” move.1 80,23”,” 
move.1 #filenane,d1” 

652. 0p DATA ” move.1 #1005,d2”,” Jar -30(a3)*,” move. d0, 
a,” bne wa” 

@B30UN DATA " move.1 a3,a1”,” jnp -414(86)”,"w2: mon 
@0”,” moveq #2,ä1” 

GaurE DATA " jan -198(86)",” move.i d0,adr”,” move.1 d0,d2”,” m 
ove.1 filehd,d1” 

655. p0\, DATA " move.1 #ntpr4,d3”," jer -42(83)”,” move.l d0,46”, 

\ * move.1 Filehd,d1” 

856.39 | DATA ” Jer -36(83)”," move.1 83,817,” jer 414(26)* 

657 12 DATA “lea gfxname,al”,” jsr -408(26) ”, 

SSR OW DATA ” lea Intnane,al”,” Jsr -408(86)”,” move.1 d0, 

SON) DATA ” move.1 d0,a6”,” iea defser,a0”,” jsr -198(26)” 

660 au DATA ” move.1 dO,soreen1”,” lea defwin,a0”,” jar -204(26) 


n 


2 #napd, 


SER LN | DATA " move.1 dO,windowi”," move.1 d0,20”,” more.1 50(20) 
‚a0” 

662 06 | DATA ” move.l a0,rastport”,” move.1 4(a0),bitmapi” 

$ERLU\ DATA ” 1ea defser,aD“," jer -198(86)”,” move.1 d0,sereen2 


SR yH DATA ” add.i #184,d0”,” move.1 d0,bitmap2” 
&66\en DATA ” sub.1 #140,40”,” move.1 d0,a0”,” moveg #0,d0”,* 
&6BNL PRINT#I," moveq # “+MIDS(STRS(Ink(0)),2)+",a1" 

67 TE PRINT#1,” moveg # "+NIDS(STR$(Ink(1)),2)+”,a2” 

668 TI PRINT#1,” moveqg # "+MIDS(STR$(Ink(2)),2)+",43” 

BEA mE Read.date 

DATA " move.1 a3,86”,” move.1 a0,-(sp)” 

DATA ” jer -288(86)”,” move.1 (sp)+,a0”,” moveg #1,607,x 
PRINT#1,” moveq # “+IDS(STR$(INK(3)),2)+",a1" 
PRINT#1," moveq # "+MIDS(STRS(ink(4)) ,2)+",42” 
PRINT#1,“ moveq # “+MIDS(STR$(Ink(5)),2)+",43” 
Resd.date 

DATA ” jer -288(86)",” move #n,b1ld”,” move #32,$d#2096 
#," eir.1 gapfıda" 

DATA ” move.1 a3,26”,” move.1 adr,a5”,"loop: move.1 rastp 
ert,a7" 

Wäle DATA " move.1 47,21”, moveg #0,20”,” moveg #0,41”,” js 
7 -240(26)” 

DATA " move.1 d7,a1"," jer -48(6)”,* 

IF fleg3 THEN CALL Read.data 

DATA " move.1 47,a1",” moveq #0,80”," move #255,41",” 


GRArıK 


2 IE DATA ” move.1 d7,21”,” move #xf,40",” move #yf,d1',” js 
r -246(6)” 

BBSCE DATA ” move. d7,21”,” move #639,40”,” move #255,d1”," 
jsr -246(26)”,* 

84 «4 FOR ii=1 TO 1inie(p)STEP 2 

5304  PRINT#1,” move.1 47,21” 

686 0 a=4#linie(ii+1):IF a THEN a$=STRS(a)ELSE af=" ” 

887 yK PRINT#1," move "+a$+"(25),a0” 

@S3 PRINT#L,” move “+STRS(ar2)+”(85),äı“ 

68336 PRINT#1,” jer "STRS(-234-6*1inte(11))+"(a6)" 

ode wat 

691 10 datasi:RESTORE datası 

22 Head.date 

502 DATA ” move.1 bitmap1,a0”,” moveg #0,40”," moveq #0,d1" 

694 52 DATA ” move.1 bitmap2,a1”,” moveg #0,d2”,” moveq #0,43” 

Erg DATA ” move #640,04”," move #256,45”,” moveg #-340,d6” 

ESEQT DATA " moveg #-1,d7",” move.1 d0,a2”,” jsr -30(86)” 

69768 DATA ” move b114,d0”,” subq #1,d0”,” bne w1”,” move #n, 
aD 

GE IR DATA " sub.1 wntpr4,a5”, "ul: move d0,bi1d”,” add.1 #pk4 
„as“ 

GIF | DATA ” bist #6,8bfe001”,” bne loop” 

700 BL DATA ” move.] a4,a6”,” move.1 window1,a0”," jr -72(a6)" 

01 0A) DATA ” move.1 screen2,a0”," jsr -66(86)”," move.1 screeni 
‚20”,” jsr -66(26)” 

702 90 DATA ” move.1 4,86”,” move.1 adr,al”,” move.l #nkpk4,d0” 
‚" Jar -210(26)” 

203 ge DATA ” move.1 a4,a1”,” jsr -414(86)”,” move.1 a3,al",” jm 
p -414(86)",” end’, * 


a 

705 $10 RETURN 

706 IE 's03#4 Unterprogranze (SUB) : 
TOP ER '--—-- x auf dem Stapel merken 


708 U SUB Push(x)STATIC 

709 602 stapel5=STR$(x)+CHRS(0)+stapels 

FO IND zw suB 

FL TR '----- x von Stapel holen 

712 10 SUB Pop(x)STATIc 

73 232 xeVallstapels): 
)1) 

Za4 Ya END suB 

715 a '----- DATAs bis "#” lesen und auf Disk schreiben 

716 SE SUB Read.äate STATIC 

Fi7 CP2 MEID eS:WHILE e$<> "#":PRINTA1,RS:READ aS:WEND 

FiB\ceD IND SUB 


Listing 1. Dreidimensionale Animationen mit »3DAnim« 
(Schluß) 


‚pe1$=-MIDS(stapel$, INSTR(stape1$,CHR$(0) 


DIM 54,144 


ORIG 50,100,0 


SET 0,100,150:150,250:200,150:125,200:175,200 sa 
SET 5,210,150:210,250:240,220:270,250:270,150 ‚u 
SET 10,280,150:280,250 ;E 
SET 12,350,250:290,250:290,150:350,150:350,200:320,200 ;G 
SET 18,360,150:410,250:460,150:385,200:435,200 ;A 
SET 23,10,20:10,120:40,90:70,120:70,20 i 

SET 28,80,20:130,120:180,20:105,70:155,70 ia 
SET 33,240,120:190,120:190,20:240,20:240,70:210,90 6 
SET 39,250,20:300,120:350,20:275,70:325,70 ; 

sat 44,360,120:410,120:360,20:410,20 ;2 
SET 48,420,20:420,120 ;I 
SET 50,430,20:430,120:480,20:480,120 an 


LINE 0,1,2:3,4:5..9:10,11:12..17:18. .20:21,22 
LINE 23. .27:28..30:31,32:33..38:39. .41:42,43:44. .47:48,49:50. .53 


MOVE 0..22:0,n/2-1,n-1,2R0T 300,100,0,300,100,10,360 - 


207 300,100,0, 300, 100,10,360 
NOVE 23. .p-1:0,n/2-1,n-1,2 
‚ROT 300,100,0, 300,100, 10,360 


Listing 2. Ein Beispiel für die Fähigkeiten von »3DAnim« 
fern diese Befehle 


Bitte mit dem Checksummer (Seite 143) eingeben. Der Checksummer und dieses Listing befinden sich auf der Programmservice-Diskette dieser Ausgabe (siehe atıch Seite 34) 
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Nur Fliegen 


Ein Flugsimulator zum Abtippen: Das gibt 
es nur im AMIGA-Magazin und im AMIGA- 
Sonderheft. Zumindest in dieser hervorra- 
genden Geschwindigkeit, tollen Grafik 
und der Kürze des Listings. 


von Michael Koch 


ollten Sie schon immer einmal fliegen? Die billigste und 
ungefährlichste Lösung ist ein Flugsimulator, Es ist 
schon erstaunlich, daß ein solches Programm in einer 
Hochsprache auf dem Amiga so kurz und leistungsfähig sein kann. 
Nicht nur die Landebahn, sondern Funktürme, ein Wald, ein See 
mit Insel, sich drehende Windräder und Vögel sind in »Flusi« reali- 
siert. Erweiterungen um andere Landschaftselemente stellen für 
den geübten C-Programmierer kein Problem dar. 
Nach dem Abtippen und Übersetzen starten Sie das Programm 
vom CLI aus mit folgendem Aufruf: 


Flusi 


Schnell ist der Bildschirmaufbau beendet, und Sie können los- 
fliegen. Aber halt, erst ein paar Erläuterungen zur Steuerung. Die 
Instrumente sind im unteren Drittel angeordnet (Bild 1, Seite 41 
oben; und Bild 2). Der Geschwindigkeitsmesser zeigt die Flugge- 
schwindigkeit in Knoten an. Bei zirka 50 Knoten können Sie abhe- 
ben, Auf dem Kompaß sehen Sie die aktuelle Flugrichtung. Der 
Drehzahlmesser zeigt die Umdrehungszahl des Motors an. Die In- 
strumente Quer-, Seiten- und Höhenruder teilen Ihnen die aktuelle 
Stellung der Ruder mit. Achtung, sie schwenken nicht automatisch 
in die Neutralstellung zurück. Beim Höhenmesser ist der kleine 
Zeiger für die Zehner- und der große für die Hunderterstellen zu- 
ständig. Die Tausenderstelle wird durch einen Punkt dargestellt. 
Das Variometer zeigt die Steiggeschwindigkeit in 100 f/Minute. 

Um Ihr Flugzeug zu steuern, gibt es zwei Wege: mit dem Joystick 
in Port 2 oder über die Tastatur. In Bild 3 sehen Sie die Bedienung 
mit dem Joystick. Alle Funktionen sind allerdings nicht mit dem 
Joystick aufzurufen. Die Blickrichtung aus dem Cockpit läßt sich 
nur über die Tastatur ändern. Die Belegung sehen Sie in Bild 4. Die 
Bedeutung der restlichen Tasten, mit denen Sie das Flugzeug steu- 
ern können, finden Sie in der Tabelle. Auch während der Steuerung 
mit dem Joystick ist es möglich, die Tastatur zu benutzen. 

Um Fliegen zu lernen, istes am besten, wenn Sie es einfach aus- 
probieren. Bei eventuellen Abstürzen - des Flugzeugs und nicht 
des Computers - wird Ihnen nichts passieren, außer einem Farb- 
flimmern des Bildschirms. Am besten ist die sanfte Methode: Also 
nicht zu heftig gegensteuern, wenn Sie die Flugrichtung ändern 
wollen, sonst kommt das Flugzeug schnell ins Trudeln. 

Wenn Sie den Bogen heraus haben, können Sie noch viele Para- 
meter für Ihren Flug verändern. Dazu drücken Sie während der Si- 
mulation <Esc>. In dem CLI-Fenster, von dem aus Sie Flusi ge- 
startet haben, erscheint ein Menü. Damit Sie es ganz sehen, ver- 
größern Sie das Fenster vor dem Start auf volle Bildschirmgröße. 


Joystick 

mit Feuertaste ohne Feuertaste 

acht 
Quer- und Quer- und Quer- und ®: 
Seitenruder Seitenruder Seitenruder Sei 
links nechts neutral | neutral 

Höhenruder weniger Gas 

Bezogen 


Bild 3. Die Steuerung von »Flusi« mit dem Joystick 
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1bis8 

Mit diesen Menüpunkten können Sie verschiedene Grafikele- 
mente ein- oder ausschalten. Das geschieht durch Eingabe der 
Menükennung und nachfolgendem <RETURN>. Zur nochmali- 
gen Umschaltung wiederholen Sie die Eingabe. 


K 

Normalerweise sind Quer- und Seitenruder miteinander gekop- 
pelt. Wenn Sie also eines davon bewegen, wird das andere auto- 
matisch verstellt. Ist die Kopplung ausgeschaltet, steuern Sie mit 
dem Joystick nur das Querruder. Das Seitenruder ist dann nur 
noch über die Tastatur zu beeinflussen. 


& _Querruder 

8 _ Höhenruder 

9 _ Gashebel 
‚Seitenruder 
‚Seiten- und Querruder 
neutral 

1 Bremse 

Esc Menü 


noonm» 


Die Tasten, mit denen Sie »Flusi« steuern können 


X%V,Z 

Diese drei Parameter bestimmen Ihre Position. Die Grenzwerte 
stehen hinter der Bezeichnung in Klammern. Geben Sie Werte au- 
Berhalb dieser Grenzen ein, verlangt Flusi die erneute Eingabe. 


Der Steigungswinkel ist der Winkel, in dem Ihr Flugzeug im Ver- 
hältnis zur Erde fliegt. 90 Grad entspricht einem Flug senkrecht 
nach oben. Bei -90 Grad fliegen Sie direkt auf den Erdboden zu. 
Für einen waagrechten Flug geben Sie als Wert 0 ein. 


Geschwindigkeit Kompaß Querruder 


Seitenruder Höhe Variometer 


Drehzahl 


Bild 2. Die Instrumente von »Flusi« mit Erklärung 


Mit diesem Menüpunkt bestimmen Sie die Himmelsrichtung, in 
die Sie fliegen wollen. Folgende Werte entsprechen den vier Him- 
melsrichtungen (alle Werte dazwischen sind erlaubt): 


0° Nord 
90° Ost 
-180°, 180° Süd 
-90° West 


Michael Koch 


Die »Computerkarriere« von Michael 

Koch begann im Jahr 1983 auf einem 
Sharp PC-1401 in Basic. Doch dabei 

blieb es nicht. 1985 folgte ein Apple Il, 
auf dem er nach Basic auch in 6502 As- 
sembler programmierte. Seinen Amiga 


1000 kaufte er 1987. Auch hier begann 
er mit Basic und Assembler, stieg dann 
aber auf C um. Seine Hobbies sind 
Astronomie, Elektronik und natürlich 
der Computer. 
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H 

Der Hängewinkel entspricht der Lage Ihres Flugzeuges. Positive 
Werte entsprechen einer Schräglage nach rechts, negative einer 
Lage nach links. Bei 180 und-180 Grad »liegt« Ihr Flugzeug auf dem 
Rücken. 


GLB 
Diese Werte sind für Fluggeschwindigkeit (G) und Landebahn- 
abmessungen (Länge, Breite) zuständig. 


ul 

Dies sind zwei feste Positionen. Nach Anwahl von »U« befindet 
sich das Flugzeug auf der Startbahn, und Sie können vom Start 
weg alles selbst erledigen. Zum Üben des Landeanflugs geben Sie 
»I« ein. Ihr Flugzeug befindet sich dann in der Luft und bewegt sich 
fast korrekt auf die Landebahn zu. Ihre Aufgabe ist es dann »nur« 
noch, Ihr Fluggerät heil zu Boden zu bringen. 


w,Q 

Um mit den veränderten Werten weiterfliegen zu können, wäh- 
len Sie nach den Einstellungen im Menü den Punkt »W«an. Sie be- 
finden sich dann wieder im Flugzeug und können weitermachen. 
Zum Verlassen von Flusi geben Sie <q> ein. Das Programm en- 
det dann. 

Flusi ist multitaskingfähig. Da jedoch die Bildschirme des Pro- 
gramms ständig aktiviert und nach vorne gebracht werden, sind 
Eingaben in anderen Fenstern unmöglich. Ein Programm, das kei- 
ne Eingaben benötigt, kann aber im Hintergrund laufen, Das funk- 
tioniertgut, da Flusi beim Fliegen nur ungefähr 160 KByte Speicher 
benötigt, 

Ihr Flugzeug verträgt auch einen größeren Motor, sprich eine 
68020-Karte. Die Geschwindigkeit beim Fliegen steigert sich dann 
noch einmal. Natürlich ist Flusi keine perfekte Simulation, aber es 
zeigt deutlich, was mit dem Amiga möglich ist. Die wichtigsten Ei- 


"Programmname: Flusi 
Computer: A500, A1000, A2000 mit Kickstart 1.2 


NEON /x Flugsimulator FLUSI1. O Michael Koch März 1989 ® 

6 #include <exeo/types.h> 

#inolude <exeo/libraries.h> 

a #inelude <intultion/intuition.h> 

#include <intuftion/intuttionase.h> 

#inelude <stdio.h> 

#define CLEAR print£(”£c”,12) 

#define PF print? 

struot IntuitionBase *IntultionBase; 

struot GfxBase *üfxBase; 

\struot Library “penlibrary(); 

struct Screen *screen2,*screen3, tsoreend,"Opendoreen(); 

struot Window "windovi,"window2, Mwindow3, *windows KOpenkin 

dor); 

struot RastPort *rp,Arp2,#rp3, Krp4; 

N struot IntulMessage nachricht, *GetMag(); 

struot NewScreen newscreen 

{ 0,0,320,160,3,0,1,NULL,CUSTONSCREEN, NULL, NULL, NULL, NULL 
1; 

struot NewWindox newwindov = 

0m [ 0,0,320,160,0,1,VANILLAKEY,BORDERLESS | NOCAREREFRESH, 

9) NULL,NULL,NULL,NULL,NULL,NULL,NULL, NULL, NULL,CUSTONSCRE 

DNS 2; 

De struot Newßereen nevsoreen. = 

a PCL [ 0,163,320,96,2,0,1,NULL,CUSTOMSCREEN, NULL, NULL, NULL,NUL 

N 1ls 

struct NewWindo 

{ 0,0,320,96,0,1,NULL,BORDERLESS | NOCAREREFRESH, 
NULL,NULL,NULL,NULL, NULL, NULL, NULL, NULL, NULL, CUSTOMSCRE 
Eu); 

"O6 MO struct Arealnfo a_info; 

WR ER struct TnpRas t_ras; 

USHORT code; 


FEEL 
EuES& 


De 


5 


& 


N 


B 


genschaften sind berücksichtigt und machen diese Simulation zu 
einem Programm, das man sicher oft und lange spielen wird. Gu- 
ten Flug. ‚Rene Beaupoil/kn 


R T y 


F— 


A 


Bild 4. Die verschiedenen Blickrichtungen aus dem 
Flugzeug und die entsprechenden Tasten 


areabuf[250],*AllocNen(),tnaus; 
*area_plane,sAllocRaster(); 
input[£0] 
Ph,p1,2p,t01,102,203,04; 
at,ha,az,ost,sbl,sha,cha,obl,sst,saz,caz; 
float pit,nenner,hea,ban,siban,ooban,sihes, cohen,sipit,cop 
it; 
float absi,abeo, winkt 
flosı 
SING int 
38 ZH int 
39 6A int 
“ou int 
Ai 64 int 
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‚weg, geschy ‚altgeschw, vario; 
sin(),cos(),tan(),atan()‚sart(); 
knueppel,taste,c,fenster,äet = Oxffff,ende = 0; 
t1,t2,13,+4,15,16,17,18,19,dxl,dyl,dal,dx2,dy2,d22; 
projx1,projx2,projyl,projy2,punktx,punkty,pktx,pkty; 
hruder,qruder,sruder, upa,gas, flag, flag1,flag2; 
bahnxl, bahnx2,bahnx3, bahn, bahnyl,bahny2,bahny3,bah 


my 
PD int 
ny8; 
long 
1ong 
ng 
Iong 


bahnz5, bahnx6,bahnx7,bahnxB, bahny5,bahny6,behny7, bah 


transxl,transyl,transel,transx2,transy2, transz2; 

tx1,tx2,ty1,ty2,tel,te2,txalt2,tyalt2,taalt2,k; 

flugx, flugy,flugz,altfluge,pot,abst,abst2,oount = 0; 

x1,x2,x3,x4,x5,x8,51,32,33,74,95,96,81,823 

long deltaxi,deltayl,deltasi,deltax2,deltay2,deltan2; 

long zeigerox = 64, zeigerOy = 75, neigerix = 224, zeige 

riy = 34; 

long zeiger2x = 224, zeigeräy = 34, zeiger)x = 

23y = 5; 

Iong zeigensx = 32, zeigensy = 34, zeigersx = 288, zeige 

ray = 34; 

long zeiger6x = %, zeigeräy = 34; 

long zeiger?x = -5, zeigery = -5, zeigerdx = -5j 

long vogel,vogelx,vogely,vogelz,bahnlaenge,bahnbreite; 

Ing ık,altnikrosek, sek,altsek, zeitäiff,atol(); 

58 ea int ziffer[10] = [0x7061,0x1749,0x7387,0x730,0x5b09, 
0x7902,0x79e8,0x7249,0x7be? ,0x7bof] ; 

zeichen[4] = [0x47359040,0x38318b80,0x3e0e0f80,02463 


-5, zeige 


98 kb Flugmechenik() 
EI 


CO &2 /* Folgende globale Variablen stehen zur Verfügung : 
ER int hruder,sruder,gruder Ruderstellungen (-128... 
N 128) 
6247 int gas Gashebel-Stellung in Pro 
zent (0...100) 
(55. long zeitäiff Zeit seit der letzten Berechnun 


g in Mikrosee. 
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Folgende globale Variablen stehen zur Verfuegung und if (kmueppel & 2) qruder += 8; /* Ruderstellu 


messen ngen aendern #/ 
in flugmechanik() neu berechnet werden : if (qruder > 128) gqruder = 128; 
long flug, flugy,fluge Koordinaten des Flugzeug if (kmueppel & 512) qruder -= B; 


if (qruder < -128) qruder = -128; 

if (((kmueppel >> 1) ” knueppel) & 1) hruder == 4; 
if (hruder < -128) hruder = -128; 

if (((kmueppel >> 1) " knueppel) & 256) hruder + 4; 
Af (hruder > 128) hruder = 128; 

if (det & 0x0100) sruder = grudı 


float st Steigungswinkel (-PI/2.. 


float ag Azimtwinkel (-PL...P 


float ha Haengewinkel (-Pl...P 


int upm Motor-Drehzahl in 1/nin 


Af (((knueppel >> 1) " Imueppel) 41) gas 4 / 
x Gas sendern #/ 

if (gas < 0) gas = 0; 

1? (((knueppel >> 1) " knueppel) & 256) gas += 4; 

1? (gas > 100) gas = 100; 
if (kmueppel & 514) qruder 
utralstellung #/ 


) 


] 
Iendschaft() 
{ 


float geschw Geschwindigkeit in Knote 


n 
Es ist wichtig, dass die Winkel sich Innerhalb der an 


sruder = 0; /# Ruder in N 


st -= 0.000015 # hruder ® cha ® geschw; /# Normalflug 

und Rueckenflug ®/ 

st -= 0.000005 # sruder # aha # geschw; /® Steilkurven 
Y 

st += (geschw - 90) # 0.0003; /* Geschwindigkeitsabhe 
engigkeit #/ 

if (geschw < 50 && Fluge > 202) st -= (50 - geschw) * 

0.01; /# Stall a/ 

if (st > pr ll st < -pn)l /# Looping-Korre 
ktur ®/ 


Pit = ost # sbl ® sha - cbl # sstj m Pit 
ch 
if (pit >= 1.011 pit <= -1.0) 
(pit > 0) ? (pit = -ph) : (Pit = ph); 
else JA arosin #/ 


at = pi - st; if (st > ph) st -= zp; pit = -atan(pit / sqrt(1.0 - pit * pit)); 
as +e pl; if (a2 > pi) an -= op hen = cha # sb]; /% Men 
ha += pi; 1? (ha > pi) ha -= ap; dung #/ 


} 


nenner = cbl # ost - sb # sst ® sha; 


ha += 0.0006 # qruder; /* Einfluss des Querrud if (nenner != O)[ 

ers #/ hea = az + atan(hea / nenner); 
ha += 0.0003 * sruder; /% Einfluss des Seitenr 4? (nenner < 0) hea += pi; 
uders #/ } 


if (ha> pi) ha -= ap; 

if (ha<-pi) ha + ap; 

if (ne < 186 ha > -1) he #= 0.995; /# --> stabil 
le Fluglage ®/ 

az +" 0.000001 X sruder # cha * geschw; /* Einfluss de 
5 Seitenruders ®/ 

az += 0.000001 * hruder * sha ® geschw; /* Einfluss de 
5 Hoehenruders */ 

42 (fluge < 202) az += 0.0001 * sruder;  /® Bugrad-Len 
kung */ 

if (ha < ph bb ha > -ph) az += 0.0004 © ha ® geschw; / 
* Haengew.-Einfl. #/ 

while (a2 > pi) az -= z; 

while (a2 <-pi) az + 
sst = sin(st); ost = cos(st); saz = sinlaz); cas = oos(a 
2); 


eisel 

if (cha > 0) 

(sl > 0) ? (hem = az + ph) : (hea = az - ph); 
else 

(sb1 > 0) ? (nea = az - ph) : (hen = az + ph); 


alle (hea > pi) hen -= zp; 
if (ea <-pi) hea += zp; 
ban = cbl # sha + ebl & ast; 7% Ben 
x” 
Nenner = che ® ost; 
1f (nenner == 0) 
(ben < 0) ? (ban = ph) : (ban = -ph); 
eisel 
ban = -atan(ban / nenner); 
4f (nenner < 0) 


sha = sin(ha); cha = cos(ha);- /* wichtig fuer weite { ban += pi; if (ben > pi) ban -= 2p; ] 
re Berechnungen #/ > = 

upm = 500 + gas ® 20; /# Drehza aiban = sin(ban); coban = oos(ban); 

hl in 4/min ®/ sihen = sin(hes); cohen = cos(hen); 


if (geschw > 100) upm += (geschw - 100) ® 205 /# erhoe 
hte Drehahl #/ 

altgeschw = geschr; 

geschu = 20 + upm ® „04 - 200 ® st; /# Geschvindigk 
eit in Knoten ®/ 

42 (fluga <= 200 A& gus == 0) geschw = 05 /# ausrollen 


sipit = sin(pit); copit = oos(pit); 

tO1 = cohen * ooban; 102 = -sihen ® coban; /# Transfor 
mationsmatrix #/ 

"03 = -cohea * siban; 304 = sihen ® siban; 

t1 = (Int) (4096 * (101 - 104 ® sipit)); 

#2 = (int) (4096 * (102 + 103 ® sipit)); 

%3 = (int) (4096 * (copit # siban)); 

t4 = (int) (8192 # (103 + 102 # sipit)); 

15 = (int) (8192 # (04 - 201 ® sipit)); 

t6 = (int) (8192 ® (copit * coban)); 

17 = (int) (4096 ® (sihea # copit)); 

t8 = (int) (4096 * (oohen ® copit)); 

19 = (int) (4096 * (sipit)); 

flag = flagl = flag2 = 0; /* Horizont in 5000kn Ent 
fernung #/ 

x3 = 500000000 ® sihea; 73 = 500000000 X cohea; 
Hey<<i;y-J<<i; 

1emi- m yleyie ya dead ya=y3- ya 
21=22=0; 

kante(0); 

12 (flag)l 


D 
eedahn = altgenche + (geachr = altgeschw) / 175; 
weg = zeitdiff X geschw ® „0000514; IR Weg in om #/ 
flugx += wog * ost * sazj /® neue Koordin 
aten in om #/ 
flugy +2 weg ® ost-® caz; 
Fluga + weg * ast; 
ir (flugs < 202)[ 
flugs = 200; /# tiefer geht es nicht ! 
* 


if (st < -0.111 na > 0.111 ha < -0.1) erash(); 
ha = 0; st =0; /* Bodenkontakt */ 


SetAPen(zp,7L); 
move.w $ä£200c,_knueppel 1% Joystick-Abfrag ‚ReetFj11(rp,OL,OL,319L,159L); P* eltes Bild loes 
Iofe000,_taste Listing. Ein toller Flugsimulator mit allem Drum und 
Ge Fr Dran: »Flusi«. Bitte mit dem Checksummer (Seite 143) 


if (teste & 0x0080)[ eingeben. 


hen #/ 
189 12 SetAPen{rp,1L); 
190 projxi = pkux; profgi = pkty; ecke(); /* lana 
I len az 
I Areaknd(rp); 
ae } 
ar eisel 
Ma ERk  (pit>0) ? (Serapen(rp,7L)) : (SetäPen(rp,12)); 
198 RectFi11(rp,0L,0L,3191,159L); /* alles fuelien &/ 
196 Ar ) 
IST DE if (det & 0x08)| /= Stadt r/ 
IHM Flag = flag =-flag2 = 
199 DI a1 = 22 = 
200 Ik xl = -200000; y1 = -200000; x2 = -100000; 52 = -600000 
kante(0); 
ZOLNd x1 = -100000; yl = -600000; x2 = -600000; 52 = -900000 
; kante(1); 
202 y6 x1 = -600000; y1 = -900000; x2 = -500000; y2 = -100000 
; kante(1); 
293 TE x1 = -500000; y1 = -100000; x2 = -200000; 72 = -200000 
; kante(1); 
204 An ie (Fleg)| 
205 z16 projxl = pktx; projyl = pkty; ecke(); 
206 m SetAPen(rp,2L); AreaEnd(rp); 
ra  ) 
as w2 } 
209 In Ar ((det &0x01) && (pit < 0.7))| /* Erdboden zit Citte 
? versehen */ 
210 Np4 (sinea > 0) ? (absi = sihes) : (absi 
2A KG (schea > 0) ? (abeo = cohen) : (abeo 
212 in x3 = 25 = flug + fluge * ( 0.7 * sipit * 
\ sihen - 2 - abco)); 
Aa  x4=x6 = fluge + flugs * (-0,7 # sipit + copit # (4 ® 
N sihen + 2 + abco)); 
214 In 33 = y5 = Flugy + fluge ® ( 0,7 * aipit + copit # (48 
cohen - 2 - abst)); 
Aal  y4=y6= Plugy + flüge ® (-0.7 # sipit + copie n (4 * 
N oohea + 2 + absi)); 
216 EN for (pot = 12500; pot < 100000000; pot <<= ı)| 
Au 3v6 42 (fiugz < (pot - (pot >> 2)))I 
218 \z8 abst = pot << 1; abst2 = abst << 3; 
29 a7 if (fluge > (pot >> 1) 
220 £gh SetAPen(rp,4L); 
221 0B8 else 
222 VOR SetAPen(rp,OL); 
223 bhB 21l.22=0; 
224 YY x3 -= (#3 - pot) 8 abst; x4 -= (x4 + pot) # abst; 
225 Ip 33 -= (y3 - pot) # abet; y4 -= (y4 + pot)  abst; 
226. Bk eitter(); 
227 aX SetAPen(rp,OL); 
228 x3 = 29 - x5 Kabst; x4 = 26 - 26 S abst; 
223 me 33 = 93 - y5 R abet; y4 = 36 - y6 F abet; 
230 Co gitter(); 
231 en break; 
232 #F6 ) 
233 164 } 
m | 
239 90 #define MAKROS [ecke(); 
N \ 
236 k0G 1? (flag) 
N \ 
237 161 AreaDrau(rp, (Long)projx1, (long)preis2); 
x \ 
238 X16 else 
\ 
239 xBT ‚AresNove(rp, (1ong)projz1, (ong)prosy2); 
\ 
240 Zus. AreaDraw(rp, (long)projx2, (long)projy2); 
N } 
2kl NZ2 : i? (det & 0x02)| /* Startbahn ®/ 
22 206 flag = flagl = flag2 = 0; 
243 v1 aU= 22 = 0; 
244 x1 = -bahnbreite; yl = -bahnleenge; x2 = -bahnbreite; 


32 = bahnlaenge; 
1? (projektion(0))f 


rojy1; bahnz2-projx2; bakny2= 
projy2; 
MAKROS; Flag += 1; 

1 

32 = bahnbreite; 72 = bahnisenge; 

1£ (projestion(1))l 
Dehnx3=projl; bahny=t 
proiy2; 
MAKROS; flag += 2; 


behnxd=projx2; baknyl- 


23 5 
25 ci 
292 X 
236 ©26 


237 15 
258 art 
a 
260 he 
261 126 


262 kn 
263 Fa 
264 
265 =u6 
26 21 


‚287 ix 
268 Ep 
269 WD 
270 Uz 
zu Ki6 


272 0:4 
23T 
274 vR6 


275 Bud 
2763 
ZU 06 


278 Veh 
273 v5 
20 76 


281 124 
282 RK 


233 666 


zad =) 
285 018 
286 076 
257 
288 TuS 
289 yE 
20 w 
10 
292 Vah 
233 jE8 
4m 
235 ur 
236 PX 
297 ic 


a 
29 pi 
00 77 
301 up 
302 iwt 


33 
304 upa 
En 
‚306 oTC 


307 
308 yI8 
303 216 
210 004 
su 2 
32 ft 
313 824 
314 4 
315.66 


316 51 
37 
za 


319 18 
320 p36 


= bahnbreite; y2 
if (pröjektion(1))[ 
E 'x1; behnys=projyl; bahnx6=projx2; bakny6= 


-behnlsenge; 


x2 = -bahnbreite; y2 = -bahnlaenge; 

if (projektion(1))[ 
bahnx7=projxl; bahny7=projyl; bahnx8=projx2; bahny&= 
sraiy2; 


MAKROS; flag += 8; 


(nee)l 
projxl = pktx; profyl = pkty; eoke(); 
SetaPen(rp,2L); /* graue Startba 
In ®/ 
Areaknd(ıp); 

} 

SetäPen(rp,5L); /* Weisse Linien #/ 


12 (Flag & 1) [ 
Hove(rp, (long)bahnxi, (long)bahny1); Draw(rp, (long)ba 
Anx2, (long)behny2); 
ie (flag 8 2) 
Yove(rp, (long)behnx3, (ong)bahny3); Draw(rp, (Long)be 
Anx4, (long)bahnyd); 
if (flag & 4)[ 
Move(zp, (long)bahnx5, (long)bahny5); Drax(rp, (long)ba 
6 , (long) bahny6) ; 


12 (flag & 8)f 
Move(rp, (long)bahnx7, (long)bahny7); Draw(rp, (long)ba 
hnx8, (long)behny8); 
) 
4£ (fluge < 100000 && flugx > -30000 && flugx < 300 
oo){ 
ı1.x2=0; 


4m Mittellinie #/ 
1? (£iugz > 20000)| /# Flughoehe ueber 200m #/ 


yie-bahnlaenge; y2= bahnlaenge; 1linie(); 


/* Flughoehe unter 200m #/ 

33 = flugy - (fluge << 2) - 5000; 

34 = flugy + (fluge << 2) + 15000; 

33 -= 33 # 10000; y4 -= y4 # 10000; 

12 ((54 <= -bannlaenge) || (y3 >= bahnlaenge))[ 
Yir-bahnlsenge; y2= bahninenge; Zinie(); 


(y3 <= -bahnlaenge) y3 = -bahnlaenge; 
eisel 
y1 = -bahnlaenge; 
an neg. Ende #/ 
32 = y3 - 3000; 1inie(); 
I 
ir (34 >= behnlaenge) y4 = bahnlaenge; 
eisel 
yi = bahnlaenge; 
am pos. Ende #/ 
32 = y4; Unie(); 
ger (yl-y3; yl<ydı Yi+r10000)[ 
32 = y1+7000; linie(); 
ind 70m lang #/ 


/% durchgezogene Linie 


/# durchgezogene Linie 


/* äie Striche s 


1? (det & 0x04)[ 


/% See */ 
Flag = flagl = fleg2 = 0; 
21=2=0; 
z1 = 200000; y1 = 300000; x2 5 72 = 600000; ka 
zte(0); 
x = 500000; 51 = 600000; x2 ; y2 = 200000; ka 


ntel1); 
z1 = 800000; 
ziel); 

x1 = 100000; 1 =-200000; x2 = 200000; y2 = 300000; ka 


= 200000; x2 = 400000; y2 =-200000; ka 


se (ag)l 
projxl = pktx; projyl = pkty; ecke(); 
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else ‚AresMove(rp, (long)projx1, (long)projy1); 
‚AreaDraw(rp, (long)projx2, (1ong)projy2); 


SetäPen(1p,6L); AreaEnä(rp); 


flag = flagl = Flag2 = 0; I Insel 8/ Mag = 1; 
21 =22=0; } 
xl = 350000; y1 = 250000; #2 = 500000; 72 = 250000; ka 
ate(0); ‚ecke() /% eventuelles Auffuellen der Ecken beim Flaec 
x1 = 500000; y = 250000; x2 = 450000; y2 = 100000; ka henfuellen %/ 
ate(1); 
x1 = 450000; yl = 100000; x2 = 350000; y2 = 250000; ka 12 (flage)[ /* Quelipunkt ist schon vorhanden #/ 
nte(1); if (punktx == 0)[ ) 
if (Flag)| if (projyl == 0) AreaDraw(rp,0L,0L); 


projxl = pktxjprojyl = pktyzecke(); 
SetAPen(rp,1L); Areaänd(rp); 
j 


} 

if (det & 0x20)[ 
x3 = 350000; 33 = -300000; windrad( 
x3 = 4000005 33 = -300000; windrad( 
x3 = 450000; 53 = -250000; windrad( 
x3 = -200000; y3 = 200000; windrad( 


if (projx1 == 319) 

{ AreaDraw(rp,OL,OL);AreaDraw(rp,319L,0L); | 

if (projyl == 159) 

[ AreaDraw(rp,OL,OL) ;AreaDraw(rp,319L,0L) ;AreaDrau(r 
Ps319L,159L); ] D 


At (punkty == O)[ 
Af (projxl == 319) AneaDraw(rp,319L,0L); 
if (projyl == 159) 
[ AreaDraw(rp,319L,0L);AreeDraw(rp,319L,159L); ] 
if (projx1 == 0) 
{ ArenDraw(rp,319L,0L);AreaDraw(rp,319L,159L) ;AreaDr 
aw(rp,0L,1591); } 


if (det & 0x10)[ 
x1 = -200000; yl = 500000; Funkturm(); 
x1 = -350000; yl = 250000; Punkturm(); 


x1 = -400000; yl = 100000; funktum(); j 
x1 = -350000; yl = -250000; funkturm(); if (punktx == 319)[ 
x1 = -250000; y1 = -550000; funktum(); if (projyl == 159) AreaDrau(rp,319L,1591); 
x1 = -450000; y1 = -650000; funkturm(); if (projxl == 0) 
x1 = 650000; y1 = -500000; funkturm(); { AreaDraw(rp,319L,1591) ;AreaDrau(rp,0L,159L); ] 
x1= 450000; yl = 200000; funktum(); if (projyl == 0) 
} [ ArenDraw(rp,319L,159L) ;AreaDraw(rp,OL,159L) ;AraaDr 
42 (det & 0x40)[ /# Wald mit 10 Baeunen ® av(rp,0L,0L); } 
’ 3 
SetAPen(rp,OL); if (punkty == 159)[ 


x1 = 204000; y1 = 112000; baum(); xl = 210000; yl = 11 
2000; baun(); 
x1 = 1900005 yl = 110000; baun(); xl = 198000; yl = 10 
8000; baun(); 
x1 = 206000; yi = 104000; baum(); x1 = 196000; yl = 10 
2000; baun(); 
x1 = 200000; y1 = 100000; baum(); x1 = 192000; yl= 9 
6000; baum(); 
x1 = 204000; y1 = 94000; baum); xl = 196000; y1 = 9 
0000; baun(); 


if (projxi == 0) AresDraw(rp,0L,159L); 

if (projyl == 0) 

| AresDrau(rp,0L,159L);AreaDraw(rp,0L,OL); } 
if (projx1 == 319) { 
[ AreaDraw(rp,0L,159L) ;AreaDras(rp,0L,OL) ;AreaDrau(r 
P»319L,01); } 


flag? = 0; /# jetzt ist kein Quellpunkt mehr da */ 


) 
it ((projx2e=0) I1 (prosx2==319) II (projy2es0) II (pros 


I y2==159))| | 
if (det & 0x80)[ PP Vogel #/ flag2 = 1; /% jetzt ist wieder ein Quellpunkt da ®/ 
if (vogei)| punktx = projx2; punkty = projy2; 
1f ((vogel+t) == 35) vogel = 0; /# Der Vogel ist } 
weg %/ if (flag == O)[ /* falls kein Zielpunkt da ist #/ 
eise| if ((projxie=0) I] (projxis=319) I1 (profyiee0) II (pr 
SetAPen(rp,0L); ojyl==159))| 
x1 = vogelx; x2 = vogelx + 50; yl = y2 = vogely; flagl = 1; /* jetst ist ein Zielpunkt da #/ 
a1 = vogela; (vogel2) ? (22 = 21 +20) : (22 = si pktx = projal; pkty = projyl; 
- 20); j 
Unie(); x2 = vogelx - 50; Linte(); } 
vogely == 300; /® Eigenbewegung des Vo 
gels #/ gitter() 


if (x3 > fluge) x3 -= abet; 

At (x4 < fluge) 24 42 abst; 

At (33 > flugy) y3 -= abst; 

AP (y4 < Flugy) y4 += abst; 

xl = x3 = abst2; x2 = x4 + abst2; 

1 <e y4; yl+e abst) 

[ y2 = y1; linie(); ] 

yle y3 - abst2; y2 = y4 + abst2; 

for (x1 = 23; xl <= 24; xi 4= abet) 
Üx2 = x1; Linie(); } 


eisel 

1£ ((Plugy & SIE) == SLIL A& Pluge < 100000)| /# 
neuer Vogel ? ®/ 
vogel = 1; 
vogelx = flugx + sag ® 20000 + (flugx & 8191); 
vogely = Flugy + cas ® 20000 + (flugy & 8191); 
vogels = flugz + 500 + (flugy & 1023); 
if (vogels < 200) vogelz = 200; 


xl = x2 = 0; 21 = 22 = 500000000; yl = y2 = -22; /R 5 
onne im Sueden ®/ 
SetAPen(rp,5L); 
if (projektion(0)) 
ReetFill(rp, (Long)projx1-1, (long)projyl-2, (long)projxi 
+1, (long)projy1); 
ZH Plate fuer Landschafts-Erweiterungen #RHHaR/ 


21 = 0; 22 = 2000; x2 = xl; y2 = yl; linie(); 
if (flugx > x1-40000 && flug < x1+40000 && flugy > y 
1-40000 \ 
&& flugy < 71440000 && Fuge < 40000)[ 
21 += 500; 22 -= 500; x2 = xl + 500; y2 = yl + 300; 11 
nie(); 


21 += 300; 2=-xl y2 = yl - 500; li 
’kante (modus) nie(); 
int modus; 21 += 300; x2 = xi - 400; y2 = yl + 200; li 
nie(); 
if (projektion(modus))[ ] F 
ecke(); 
if (flag) AreaDrau(rp, (long)projx1, (long)projy1); Listing. Ein toller Flugsimulator: »Flusi« (Fortsetzung) | 


unktum() 


SetAPen(rp,5L); 
@1 = 0; 22 = 14000; x2 = x1; y2 = yl; linie(); 
AP (flugx > x1-100000 8% flugr < x14100000 && flugy > 
yA-100000 \ 
&& flugy < y1+100000 &% Plug < 100000)[ 
SetAPen(rp,3L); 
for (21-1500; 21<11000; 214-3000) 
a 
[ 22 = si + 1500; 1inie(); ] 


/* vote Streife 


SetAPen(rp,5L); 

switch (oount # 3)[ 
age 0 : xl = x3 + 2000; x2 = x3 - 2000; 
gel #/ 


/* Flue 


yi = y3 + 2000; y2 = y3 - 2000; 
@1 = 3000; 22 = 7000; linie(); break; 
oase 1: xl = x3 + 2732; u2 = x3 - 2732; 


yl=y3 + 2732} y2 = y3 - 2732; 
21 = 5732; 22 = 4268; linie(); break; 
Gase A: xl=x3+ Wr =- 732; 
e yumya+ Wi ya=y3- 738; 
485 I“ al = 7732; 22 = 2268; linie(); break; 
ae a2 ] 
War RZ 12 (Pluge > x1-300000 && fluge < x14300000 && Plugy > 
y1-300000 \ 
&& Plugy < y1+300000 && Pluge < 200000)| 
SetApen(rp,3L); IKT 
um a 
al = 05 x2 = x3 + 500; y2 = y3.- 500; 22 = 5000; 
x1 = x3 + 1000; yl = y3; intel); 
yl = y3 - 1000; 1inie(); 
xl = x3; yl = y3 = 1000; linie(); 
&1 = x3; yl = y3; linie(); 


81 = 5000; x2 = x3 + 1000; y2 = y3 - 1000; linie(); 


1 

Linie() 

N 

it (projektion(o))[ 
Move(rp, (long)projx1, (long)projy1); 
Drau(1p, (long)pro)s2, (Long)projy2); 


Ta 
SO do2 if (modus == 1) 
09 64 [ txı = txalt2; dyl = tyalt2; 121 = tmalt2; ] 
‚io rm elsel 
Sl 6a deltaxi = xi - flugx; deltayl = yl - flugy; deltazi = 


IN N 21 - flugs; 

512 Ah0 #define NAKROL | deltaxi >>= 2; deltayl >>= 2; deltaz 

1>>-2} 
while (deltaxi > 32767 Il deltaxi < -32768) MAKRO1; 
while (deltayl > 32767 Il deltayi < -32768) MAKRO1; 
while (deitazi > 32767 Il deltazi < -32768) MAKRO1; 
dxi = (int)deltaxi; dyl = (Int)deltayi; dei = (int)del 
taz; 
transxi = dxi * (long)ti + dyi * (long)t2 + dei * (lon 
et; 


trensyl = Axt * (Jomg)t4 + dyl * (long)t5 + dsl * (Ion 
g)t6; 
transsl = dxl * (long)t7 + dyl * (long)t& + dzi * (on 
\ E19; 
520 570 #define MAKRO2 | transıl >>= 2; transyl >>= 2; transs 
1>>=-2] 


while (transxi > 32767 Il transıı < -32768) MAKRO2; 
while (transyl > 32767 Il transyl < -32765) MAKRO2; 
while (transel > 32767 Il transsı < -32768) MAKRO2; 
tx1 = (Ant)transx1; tyl = (int)transyl; te1 = (int)tra 
nsal; 


22 Wh 
32 


deltax2 ‘= x2 - flugx; deltay2 = y2 - flugy; deltas2 = 22 
- flugz; 
#define MAKRO3 [ deltax2 >>= 2; deltay2 >>= 2; deltaz 
NW 2>>-2;] 
1928 862 while (deitex? > 32767 II deltax? < -32768) NAKRO3; 
Fr while (deltay2 > 32767 Il deltay2 < -32768) NAKRO3; 


330 12 
FERN 


532 in 


KEERS 


534 Da \ 


535 60 


336 6a2 
337 Ex 
538 Nu 
PEERES 


558 866 


559 104 


while (deltas2 > 32767 Il deltaz2 < -32768) MAKRO3; 
dx2 = (int)deltax2; dy2 = (Int)deltay2; ds2 = (int)delta 
22; 
transx2 = äx2 * (lomg)t1 + dy2 * (long)t2 + da2 * (Long) 
4; 
transy2 = dx2 ® (long)t4 + dy2 * (long)t5 +de2 * (Long) 
16; 
transe2 = dx? ® (long)t7 + äy2 * (Zong)t8 + da2 ® (long) 
19%; 
#define NAKRO4 | transx2 >>= 2; transy2 >>= 2; transs 
2>>=23)] 
while (transx? > 32767 Il transx2 < -32768) MAKRO4; 
while (transy2 > 32767 Il transy2 < -32768) MAKRO4; 
while (transs2 > 32767 Il transz2 < -32768) MAKRO4; 
4x2 = (int)transx2; ty2 = (int)transy2; t22 = (int)trans 
22; 
txalt2 = tx2; tyalt2 = ty2; tzalt2 = t22; 
tor (ll 
e=0 
if (txl < -tel) oe 1; if (tel > tel) or 25 
ir (tyl < -tel).ore 4; AR (Wi > tel) core 85 
if (tx2 < -t22) 04= 16; if (tx2 > 82) o4= 325 
if (ty2 < -t22) 04= 64; if (ty2 > a2) o4e128; 
a2 (0 == O)[ 
if (t21 == 0) tel = 
> 2% 
if (t22 = 0) ta2 =; 
projxl = (319 + (tx1 # 319) / tal) >> 1; 


IM 30 = 


progyi = (159 - (ty1 8 159) / tal) >> 1; 
projx2 = (319 + (1x2 #319) / ta2) >> 1; 
projy2 = (159 - (ty2 #159) / a2) >> 1; 
return(1); 

break; 


1 
12 (((6&17)==17) I1 ((0834)=.34) II ((o&68)==68) I1 (( 
0&136)==136) | 
return(0); break; 
I 
ir (o &ı)l 
k. ((teiatel) << 15 J/ltai-tx2-teRrtzl); 
tl = (k * (tai-te2) >> 15) - tal; 
tyl = (k  (tya-tyl) >> 15) + tylı 


121 = «tal; continue) 


) 
it (0 &2)( 
k = ((tei-tel) << 15 )/(tx2-txi-te2rtel); 
txi = (k # (taa-tz1) >> 15) + tel} 
tyl = (KM (by2-tyl) >> 15) + li 
+21 = tx1; continue) 


/% Linie ist nicht sichtbar */ 


ir (oe kh)l 
k « ((teimtyl) << 15 )/(tyl-ty2-ta2rtel); 
tale (k* (tx2-txl) >> 15) + tel 
tyl = (k * (tei-te2) >> 15) - tal; 
a1 = -ty1; oontinue; 


18 (oe & 8)[ 
k = ((tai-ty1) << 15 )y(ty2-tyl-ta2rbai); 
tal = (K 8 (tx2-ta1) >> 15) + tuts 
Ayla (KR (tad-tel) >> 15) + tel} 
tel = tyl; continue; 

) 

if (oe &16)[ 
x = ((t22422) << 15 )/(tx2-txi-teidte2); 
4x2 = (k ® (da2-t21) >> 15) - t22; 


ty2 = (k * (tyl-ty2) >> 15) + ty2; 
+82 = -tx2; continue; 


32) [ 

k = ((t22-tx2) << 15 )/(txi-ta2-tairte2); 
= (K * (ta1-ta2) >> 15) + 182; 

= (k * (tl-ty2) >> 15) + 1325 


422 = tx2; oontinue; 
} 
if (0 & 64)[ 
k (Nte2+ty2) << 15 )/(ty2-tyl-taitte2); 


4x2 = (k ® (txi-ta2) >> 15) + vu25 
= (k * (t22-t21) >> 15) - a2; 
= -1y2; eontinue; 


if (e & 128){ 

x = ((ta2-ty2) << 15 )/ltyi-ty2-telrte2); 
x * (txi-tx2) >> 15) + tm2; 
k* (t21-t22) >> 15) + ta2; 
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SPIELE 


422 = ty2; continue; % & 0x100)==0x100); 
} 87223 PR" (X) X-Kooräinate in Meter (-100000...100000): z1 
j) an”, flugx/100); 
1 67320 PF(" (X) Y-Koordinate in Meter (-100000...100000): #1 
‘| tastatur() an”, flugy/100); 
674 pg PF(” ( Z) „Flughoehe in Meter ( 2...100000): #1 
while (nachricht = Getlag(window3->UserPort))| d\n”,Fluge/100); 
ReplyMsg(nachricht) ; 67556  PF(" ( 5) Steigungswinkel in Grad ( -...... 9%): 2a 
if (nachricht->Cless == VANIELAKEY) \n”, (int) (st#57.3)); 
code = nachricht->Code; 67698 PF(" (A) Asimutwinkel in Grad (-180.....180): fa 
4? (oode > 95) eode -= 32; /r Umwandlung in grosse \n?, (int) (88#57.3)); 
Buchstaben */ 676 Pi” (H) Haengewinkel in Grad (-180 
switch (code)[ \n*, (int) (na#37.3)); 
oase '1! : if (Flugz < 202) geschw = 2; /# Br ETBWR  PF(” (6) Geschwindigkeit In Knoten ( 
ense ®/ \n”, (Int)geschv); 
if (geschw < 0) geschw = 0; break; 679 7k PF(” ( L) Landebahn-Laenge in Meter (1000..100000): #1 
case '4! : qruder -=8; If (gruder <-128) qruder = d\n”,bahnlaenge/50) ; 
-128; break; 680 U PF(" (B) Landebahn-Breite in Meter ( 10.....200): #1 
case '6' : qruder +=8; if (qruder > 128) qruder = N d\n”,bahnbreite/50) ; 
128; break; east PF(* ( U) Startposition\n”) 
case '2' : hruder -=8; if (hruder <-128) hruder = 68220 PF(" (I) Landeanflug\n 
-128; break; 68347 PF("(W) Weiterfliegen\s 
ease '8' ; hruder +28; if (hruder > 128) hruder = GAAk PF(” (.Q) Programm beenden\n\n”); 
128; break; 685 yy | PF(” Ihre Eingabe : 7 
qruder = sruder = 0; break; 66 JA gets(input); PF("\n”); 
gas -=4; if (gas < 0) gas = 0; break; 6870P | A1f (input[0) > 95) Input[0] -= 32; /* Wandlung in gros 
gas +24; if (gas > 100) gas = 100; bre N se Buchstaben #/ 
Pr 8b ya switch (input[oJ)i 
case '0' : sruder -=8; if (sruder <-128) sruder = OS case '1! : det = OxO00L; break; 
-128; break; 690 bu case '2! : det "= 0x0002; break; 
case '." : sruder +=8; if (sruder > 128) sruder = WUPE case '31 : det '= 0x0004; break; 
128; break; 692 De ense '4' : det "= 0x0008; break; 
case 'T! : sbl = 0.000; cbI = 1.000; break; /# Bl 3 case 151 : det "= 010010; break; 
ickrichtungen #/ ‚694 PC case '6' : det "= 0x0020; break; 
sbl = 0.707; obl = 0.707; break; BÄÜR conse '7! : det = 0x0040; break; 
sbl = 1.000; cbl = 0.000; break; 66 La case '8' : det "= 0x0080; break; 
sbl = 0.707; cbl =-0.707; break; Ol case 'Kt : det = 0x0100; break; 
sbl = 0.000; eb1 =-1.000; break; case 'X' : Flugx = 100 ® eing(-100000L, 1000001); breuk 
sbl =-0.707; ebl =-0.707; break; n 
sbl =-1.000; cb1 = 0.000; break; sase 'Y' : flugy = 100 # eing(-100000L,100000L) ; break 
sbl =-0.707; cbl = 0.707; break; ; 
37 n ease 27 : menue(); break; case 'Z' : fluge = 100 # eing(2L,100000L); break; 
638. 246 ] /# Ende von switch #/ case IS! : st = 0.01745 * eing(- 90L, 9OL); break; 
39 58 ir (det & 0x0100) sruder = gruder; case 'A' : a2 = 0.01745 * eing(-180L,180); break; 
SR) case !H' : ha = 0.01745 ® eing(-180L,180L); break; 
taz ) one !G' : geschz = eing(OL,200L); break; 
42 Nr ] oase !L' : bahnlaenge = 50 * eing(1000L,100000L); brea 
643 6h \ long eing(nin,nax) kr 
(GAk ah long min,nax; case !B' : bahnbreite = 50 # eing(101,200L); break; 
el case "U! : flugx = O5 Flugy = -bahnlaenge; Fluge = 200 
646 we2 long neuert; nn : 
WBTKR del ‚708 NGF st = 0; az = 0; ha = 0; bl = 0; cbl=1; g 
648 Ih, PF(” Neuer Wert ($1d...218) : ",min,max); as=0; 
AO Nx gets(input); neuwert = atol(input); 709 ap geschv = O; hruder = qruder = sruder = 0; b 
"650 bR2} | while (neuwert < min Il neuwert > max); x reskj 
"SL NZ retum(neuwert); MOM case "I! : Flugx = -10000; flugy = -1000000; Fluge = B 
‚092 Wi | \ 5000; 
553 00 menue() 7aı MpR st = -0.09; az = 0.01; ha = -0.01; abl = 0; 
SSR Ux | bl =1; 
655 HE2 WBenchToFront(); 2 hi gas = 50; geschw = 80; hruder = qruder = ar 
656. D7 | hetivatewindow(windovi); uder = 0; break; 
1697 E10) anzeigen: 713 has sage 'Q’ : ende = 1; CLEAR; PF(”\n bye-bye I\n\n”); br 
658 dr2 enk; 
a 9y  PR(" "); for (abst = Ojabst < 75; abst++) PF(’="); uw ) 
‚660 2e  PF("\n FLUST 1.0"; MS KR if (inputf0) i= 'W' && Input[0) I= 'Q') goto anzeigen; 
61 BO PF(” "); for (abst = Ojabst < 75; abst++) PF(”= 16 00° CurrentTine(Saltsek, kaltnikrosek) 
2 un PF("N\n\n”); Mi? Pl WBenchToBack(); 
BhB PFÜ" (1) Gittemete. 2.2... an/aus : Zä\n’,(de MB IR | Aotivatewindon (window3); 
N t & 0x01) == 0x01); 719 d60 | 
Wa, PR" (2) Startbahn. 0... an/aus : $d\n”, (de 720 Ti orash() 
t & 0x02) == 0x02); Marz | 
aM PFI"(3) Serinsel.. 2.2... an/aus : $d\n’,(de 722 0u2 SetAPen(rp2,3L); RectFil1(rp2,0L,0L,319L,159L); 
F N t & 0x04) == 0x04); 306  SetAPen(rp3,5L); Reetfill(rp3,0L,0L,319L,159L); 
EEE PFÜ(A) Stadt... ur 0e. an/aus : %d\n”,(de Ma AN for (abst = 1; abst < 50; abst+)[ 
N t &.0x08) == 0x08); 225 Ipk  ScreenTorront(sereen2); 
GE PR(" (5) Funktuerme. 2.00. an/aus : Zä\n”,(de 726 Mt ScreenToFront(sereen3) ; 
N 48.0210) == Ox10); ver | 
Br PFÜ" (6) MWindraeder. 2.0... an/aus : Sä\n”,(de ‘MB 40  hruder = sruder = gruder = 0; gas = 0; geschw = 0; 
N t %.0x20) == 0x20); 7OW ebl-0;cl=1; 
KERN PET) Wilde. 22 e20er an/aus : Zd\n”,(de 730 mHO | 
RU % & 0x40) == 0x40); A 731 66 initinstrumente() 
WON PFL(B) Vogel... .- 0... an/aus : Zä\n’,(de 232 ıD 
: Za\n”, (de Listing. Ein toller Flugsimulator: »Flusi« (Fortsetzung) 


Setapen(rp4,0L); 
RectFil1(rp4,0L,0L,319L,95L); 
SetAPen(rp4,1L); 
for (abst = 30; abst < 34; abst++) 
for (abst2 = 32; abst2 < 300; abst2 += 6%) 
if (abst2 1= 160) 
DrauEllipse(rp4,abst2,341,abst,abst); 
for (abst = 19; abst < 22; abst++) 
DravEllipse(rp4,64L,75L,abst,abst); 
SetAPen(rp4,3L); 
for (abst2 = 32; abst2 < 300; abst2 += 64) 
if (abst2 I= 160) 
AreaEllipse(rp4,abst2,34L,5L,5L); 
AreaEllipse(rp4,641,75L,3L,3L); 
AresEnd(rp4); 
a1ff(31,12,0); z1f1(48,32,5); ziff(52,32,0); 
2iff(27,52,1); eiff(31,52,0); e1£2(35,52,0 
eiff(10,32,1); aiff(14,32,5); eitt(18,32, 
zeich( 94,12,0); zeich(114,32,1); zeich( %, 
( 74,32,3); 
eiff(223,12,0); 21f(235,15,1)5 z161(243,24,2); zitt(243 
BEN 
a1f?(235,48,4); #126(223,52,5); ziff(211,48,6); miPf(203 
39); 
aiff(203,24,8); ziff(211,15,9); 
siff(266,32,0); z1f2(272,18,5); 21f2(272,45,5); 
siff(284,12,1); 21f2(288,12,0); ziff(284,52,1); ziff(288 
52,0); 
21f2(297,18,1); zif£(301,18,5); @1P2(297,45,1); s1£r(301 
Br 
z1ff(304,32,2); #12?(308,32,0); 
Move(rp4,2881,24L) ; Draw(rp4,288L,20L) ; 
Nove(1p4,286L,22L); Draw(rp4,290L,22L) ; 
Move(rp4,286L,46L); Draw(rp4,290L,46L); 
SetAPen(rp4,2L); /# rote kritische Ber 
eiche #/ 
for (winkel = 5.60; winkel < 6.283; winkel += „O1)[ 
Move(rp4, (Long) (32+8in(winke1)»26) ‚ (Long) (34-oos(winke 
1)*26)); 
Drax(rp4, (1ong) (32+sin(winkel)#29), (Long) (34-cos(winke 
229));' 
) 
for (winkel = 2; winkel < 2.8; winkel += .O1)| 
Move(rp4, (long) (64+sin(winkel)#*17) (long) (75-00s(winke 
YR7)); 
Draw(rp4, (Long) (64+sin(winke1) #19), (long) (75-cos(winke 
219); 
ij 
SetAPen(rp4,3L); 
marken( 32,34,6, 4); marken( 32,34,3,20); marken( 32,34, 
1,40); 
marken( 96,34,6, 8); marken( 96,34,2,16); marken( 96,34, 
1,22); 
marken (224,34,5,10); marken(224,34,2,50); 
marken(288,34,5, 8); marken(288,34,2,40); 
for (winkel = -2.8; winkel < 2.8; winkel 4= .3) 
WritePixel(rp4, (long) (65+sin(winkel)®18) ‚(Long) (76-cos 
(winkel)»18)); 
SetAPen(rp4,1L); 
ReetPill(rp4,125L, SL,195L,17L); 
RectFill(rp4,154L,17L,166L,56L) ; 
ReotFill(rp4,125L,55L,195L,67L) ; 
SetAPen(zp4,0L); 
ReotPill(rp4,127L, 7L,193L,15L); 
ReotFill(rp4,156L,19L,164L,53L) ; 
ReotFil1(rp4,127L,57L,193L,65L); 
‚SetAPen(rp4,3L); 
for (abst = 128; abst < 193; abat += 4) 
| WritePixel(rp4,abst, 7L); WritePixel(rp4,abst,15L); 
WritePixel(rp4,abst,57L); WritePixel(rp4,abst,65L); | 


/# Hintergrund #/ 


12); zeich 


| for (abst = 128; abst < 193; abst += 16) 


{ WritePixel(rp4,abst, 8L); Writerixel(rp4,abst,14L); 
WritePixel(rp4,abst,58L); WritePixel(rp4,abst,64L); ] 

for (abst = 20; abst < 53; abst += 4) 

[ WritePixel(rp4,156L,abst); WritePixel(rp4,164L,abst); 

) 

for (abst = 20; abst < 53; abst +- B) 

{ Writepixel(rp4,157L,ebst); WrltePixel(rp4,163L,abst); 


SetAPen(rp4,3L); 


) ReetFill(rp4,200L,80L,290L,100L) ; 


SetAPen(rp4,2L); 


. Move(rp4,2101,90L); 


SetDrNä(zp4 Janl); 


BOENs Text(rp4, "Flusi 1.0\0°,9L); 

‚803.x50 } 

804 92 sirt(x,y,n) 

505.08 int x,yın; 

B0s er | 

807 vi2 int zeile,spalte,hilf; 

‚808 U hilf = ziffer(n]; 

BO WE Tor (zeile = 0; zeile < 5; zeilem) 

810 K64 for (spalte = 0; spalte < 3; spaltet) 
a1 016 if (hilf <<= 1) & 0x8000) 

‚Yes WritePixel(rp4, (long) x + spalte,(long) y + zeile) 
760 | 

2 zeich(x,y,n) 

819 82, int xuyın; 


36 6 1ong hilf; 
89 In hilf = zeichen[n]; 
BO UM for (zeile = 0; geile < 5; zeileH) 


1 1A for (spalte = 0; spalte < liter) 

822 B16 4? ((hilf <<= 1) & 0280000000) 

823 Jp8 WritePixel(rp4, (long) x + spalte,(long) y + zeile) 
824 In0 ) h 


(825 NK marken(x,y,lsenge,anzahl) 
‚826 ES int x,y,laenge,anzahl; 


float winkel,siv,cow; 

laenge = 30 - laenge; 

for (winkel = 0; winkel < 2p; winkel += (zp/anzahl))[ 
siw = sin(winkel); cow = cos(winkel); 
Hove(rp4,(long)(x + siw # laenge),(1ong)(y - cow # Ine 
age)); 

Drau(rp4,(1ong)(x + siv® 29 ),(long)(y - cow # 29 


10) 
36 DD Instrunente() 
BT | 


Hove(rp4,zeigerOx,zeigerOy); Draw(rp4,641,75L); [äi 
Drehzahlmesser #/ 

winkel = upm ® „0016 - 2.8; 

if (winkel > 2.8) winkel = 2.8; 

geigerOx = 64 + (int)(sin(winkel) * 15); 

zeigeröy = 75 - (int)(cos(winkel) # 15); 
Nove(1p4,zeigerüx,zeigerOy); Draw(1p464L,75L) ; 
Nove(rp4,neigerix,zeigeriy); Draw(rp4,2241,341); 

/* Hoehennesser #/ 

Draw(sp4,zeiger2x,zeiger2y); 

winkel = flugz ® „0001915; 

zeigerix = 224 + (Int)(sin(winkel) * 23); 

zeigeriy » 34 - (Int)(cos(winkel) ® 23); 

winkel /= 10; 

zeiger2x = 224 + (int)(sin(winkel) ® 15); 

zeiger2y = 34 - (int)(cos(winkel) ® 15); 
Move(rp4,zeigerix,zeigeriy); Draw(rp4,224L,34L) ; 
Draw(rp4 ‚zeiger2x,zeiger2y) ; 

ReotFill(rp4 ‚zeiger3x,zeigeräy,zeiger3x+2,2eiger3y+2); 
winkel /= 10; 

zeiger3x » 223 + (int)(sin(winkel) ® 25); 

zeiger3y = 33 - (Int)(cos(winkel) # 25); 
ReotFill(rp4,zeigersx,neigeräy,zeiger3x+2,zeigeräy+2); 
Nove(zp4,neiger4x,zeiger4y); Drau(rp4,321,341);  /RG 
eschvindigkeit #/ 
winkel = geschw ® „0314: 
if (winkel > 6) winkel = 6; if (winkel < 0) winkel = 0 
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zeigersx = 32 + (int)(sin(winkel) * 22); 
zeigersy = 34 - (Int)(oos(winkel) * 22); 
Nove(rp4 zeigersx,zeiger4y); Draw(rp4,321,341); 
Nove(rp4 ‚zeigeröx,zeigersy); Draw(rp4,288L,34L) ; 
/% Veriometer #/ 
winkel = vario ® „1971; 
if (winkel > 3) winkel = 3; if (winkel <-3) winkel =-3 


zeigeröx = 288 - (int)(cos(winkel) * 22); 
geigersy = 34 - (int)(sin{winkel) * 22); 
Nove(rp4, zeigersx, zeiger5y); Draw(rp4,2881,341); 
Nove(rp4,zeigeröx,zeiger6y); Draw(rp4,96L,341); 
I% Kompass %/ 

zeigeröx = 96 + (Int) (san # 22); 
zeiger6y = 34 - (int)(caz # 22); 

\_ Yowe(rp4,zeiger6x,zeiger&y); Drau(rp4,96L,341); 


IN IIEE ER ERER BE SELESEITTTERERE AERER 


sue ayäad PR 28882 


SPIELE 


875 KL 


876 y0 
877 92 
878 n4 


879 Im 
880 ge 
\681 


882 80 


883 Dh 
884 610] 


BeotFill(rp4,zeiger7x,10L,zeiger7x+2,121); 
I% Querruder */ 

zeiger7x = 159 + (gruder >> 2); 

BectFill(rp4,zeiger7x,10L,zeiger7x+2,121); 

RectFill(rp4,159L,2eiger8y,161L,zeiger&y+2); 

/# Hoehenruder #/ 

zeigeräy = 35 + (hruder >> 3); 

ReetPil1(rp4,1591,zeiger&y, 1611, zeiger&y+2); 

ReotPil1(rp4, zeiger9x, 601, 2eiger9x+2,621); 

/* Seitenruder */ 

zeiger9x = 159 + (sruder >> 2); 

ReotFill(rp4, zeiger9x,60L, 2eiger9x+2,621); 


885 2 farben(zeiger) 
886 JP BYE *zeiger; 


EST 
BBB ZP2 SetRGB4(zeiger,OL, OL, OL, OL); /* schwere starke Lin 
jen,Rand */ 
289 0p  SetRnB4(zeiger,iL, OL,12L, OL); /* gruen Land 
2 
390 AL SetRüB4(zeiger,2L, 9L, 9L, 9); /* grau Landebahn 
HH 
SOUL UK  SethüB4(zeigen,3L,15L, OL, OL); /* rot Windraeder 
\ „Funkturn #/ 
892 Ag | SetRoB4(zeiger,4L, OL,A0L, OL); /* gruen schwache L 
inin */ 
@93 1 SetROB4(neiger,5L,15L,15L,15L); /* weiss Windreeder 
‚Tuerme */ 
894 Na SetRoB4(meiger,6L, OL, OL,10L); /* blau Wasser 
“ 
295 00 | SetRGB4lzeiger,7L, OL, 9L,15L); Hinnel 
v 
896 8x0 | 
897 AW main() 
Boat | 
899 Is2 Ofxbase = (struct GfxBasen) OpenLibrary("graphics.librar 
3,01); 
900 Km if (Gfxbase == NULL) goto cleanup; 
OL IN | Intuitionßase = (struet Intuitionbaser) OpenLibrary( "int 
uitlon. library”, OL); 
2 dv 1? (IntultionBase == NULL) goto cleanu; 
903 08 | #indoyl = IntultionBase->Activewindow; 
904 Eb sorsen2 = OpenSoreen(Inewscreen); 
905 IK Af (screen? == NULL) goto eleanıp; 
906 "2 newwindow.Sereen = sereen2; 
307 Xp windon2 » OpenWindon(newrindon); 
908m if (window? == NULL) goto eleanup; 
SO SN  zp2 = window2->RPort; 
90 nl farben(&soreen2->ViewPort); 
941 ON sereen3 = OpenScreen(knewscreen); 
92 a6 if (soreen3 == NULL) goto eleanup; 
913.00 newwindow.Sereen = sereen3; 
914 70 windor3 = OpenWindow(Enewwindon) ; 
SiS vs if (window3 == NULL) goto eleanup; 
Nihhe rD3 = window3->RPort; 
‚917 09 Farben(&sereen3->ViewPort); 
(918 6P sereen4 = OpenSoreen(inewsereend); 
919 ie if (screend == NULL) goto eleanup; 
920 nG newwindows.Sereen = sereend; 
921 B3 windows = OpenWindow(newrindows); 
92242 AP (windows == NULL) goto eleamup; 
923 uv  rp4 = window4->RPort; 
94 WA SetRüB4(Ascreen4->ViexPort,OL, 7L, 7L, 7L); /# grau 
Hintergrund 7 
925 01 SetROB4(&soreens->ViewPort,il, OL, OL, OL); /* schwarz 
Instrumente 7 
926 28 SetNOB4(&sereens->VienPort,2L,15L, OL, OL); /* rot 
ritische Bereiche #/ 
927 IQ SetRcB4(&soreen4->ViewPort,3L,15L,13L, OL); /* g 
Zeiger,Ziffen #7 
928 12 | Initären(La info,Lareabu£[0],1001) 
929 in area_plane = AllocRaster(320L,2562); 
930 && if (area plane == NULL) goto eleanup; 
931 05 1P2->AresInfo = ga info; rp2->Tnpkas = Etras; 
S3aWG  rpJ->Arsalnfo = bainfo; r93->Tnpfas = Eıras; 
933 5R  rp4->Arealnfo = Ba info; rp4->Tuphas = Ei ras; 
OA NE InitImpRas(&t_ras,area plane, (1ong)RASSIZE(320,258)); 
935 a maus = AllocMem(81,0x00010003) ; /* Cnip-Rax #/ 
936 Cd SetPointer(windowl,maus,OL,OL,OL,OL); /* Mauszeiger 
% 
93770, SetPointer(window2,maus,OL,OL,OL,OL): 
938 sU SetFointer(windou3,maus,OL,0L,0L,0L); 
939 18 _ SetPointer(window4,maus,0L,0L,0L,0L); 
ODE  phe2ratan(1.0); 1577277 


1175 
32 om 
23 
34 Im 
5 5° 


6 zu stertsituation: 
Flugx = 0; 


347 032 


a8 IH 
ga 
0 pr 


35179 
952 80 
953 ı8 
954 2u 
955 z& 
356 &x 
997 at 
98.09 
959 7X 
KO 5t 


3611 
92 Vy& 
9 # 
Ih dx 
365 Zu 
966 An 
%7 yo 


#8 v2 
33 ya 
gm ı7 


‚97 Dn6 


2 ish 
973 6 
74 136 
975 78 


IE Du 
ara Fn 


978 mil 
mau 
‚980 226 
981 cu 
982 62 
983 5I 
984 204 
5 2 


986 HnQ eleenup: 


987 1a2 


388 120 eleanup2: 


989 Hp2 if (area plane) Freeßaster(area plane, 320L,256L); 
990 25 ClearPointer(windowl); ClearPointer(window2); 
Si ıh CiesrPointer(windou3); CleerPointer(windor4) ; 
M2re FreeMen(maus,8L); 

3 if (window2) CloseWindow (window2); 

SL 48 if (screen?) CloseSereen (screen2); 

395 CE if (window3) CloseWindow (window3); 

26 if (soreen3) CloseSereen (screen3); 

7 if (window) CloseWindor (windows); 

GBKE 1 (sereen£) CloseSereen (sereend); 

299 3Jä if (IntuitionBese) CloseLibrery (IntultionBase); 
1000 83 1F (GfeBase) CloseLibrary (GfxBase); 

1001 a5 exit(0); 

2002 A70 ] 

(e) 1989 mar 

Listing. Ein toller Flugsimulator mit allen Schikanen: 
»Flusi« (Schluß) 


E jatan(1.0); 
zp=88etan(1.0); 
Anitinstrumente(); 
SetDrMd(rp4, COMPLEMENTI Jam) ; 


CurrentTime(Saltsek, Saltnikrosek); 


277 
IR 28PI %/ 


/* Koordinaten des Flugzeugs In om 


/# Steigungswinkel (-PIy2. 
/# Haengerinkel (-PI 
/% Flugriehtungswinkel (-B1 


/* sin() baw. cos(Kopfwinkel des Pi 


500000; /* halbe Iaenge der Startbahn in en 


2500; /% halbe Breite der Startbahn in en 


/% Stellung des Hoehenruders (-128. 


/# Stellung des Querruders (-128. 


/* Stellung des Seitenruders (-128. 


/* Ges in Prozent (0. 
geschw = 65; /R Geschwindigkeit in Knoten (0. 
».200) ©/ 
Forlz)l /* Hauptschleife */ 
12 (ende) goto cleanup2; 
sount 


ruder(); 

ActivateWindow(window3); tastatur(); 

CurrentTime (sek, Anikrosek) ; 

zeitdif? = 1000000 * (sek - altsek) + (mikrosek - altn 

ikrosek); 

altsek = sek; altmikrosek = mikrosek; 

Flugmechanik(); 

if (zeitätff I= 0) 

oft/min */ 
vario = (19685 * (flugs - altfluge)) / (float)zeitai 
20; 

eltflugz = flugz; 

if (Lenster == 2)[ 
fenstere3; rperp3; 
landscheft(); Instrumente(); 
% zeichnen #/ 
WBenchToBack(); 
SereenToBack(sereen2); /* und dann darstelle 
Eu77 


eise| 
fenster=2; rperp2; 
landschaft(); Instrunente(); 
WenchToBeck(); 
SereenToBack(sereen3); 


/* Steiggeschw, in 10 


/* neues Bild verdeck 


] 


PF( "Fehler I”) 
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ing Pong« (Listing 1) 

füllt eine Lücke im 

Spieleangebot für den 
‚Amiga. Es ist nämlich unseres 
Wissens nach die erste 
Tischtennis-Simulation für die- 
sen Computer. Die Program- 
mierung in Assembler verleiht 
dem Programm eine rasante 
Geschwindigkeit und bringt 
Schwung ins Spiel. Die drei- 
dimensionale Grafik und der 
»klassische« Pingpong-Sound 
tragen ihren Teil dazu bei, daß 
das Spiel absolut realitätsnah 
ist und Sie an den Joystick fes- 
seln wird (Bild 1). 

»Ping Pong« ist außerdem ei- 
nes jener wenigen Spiele, bei 
denen zwei Spieler gleichzei- 
tig gegeneinander antreten 
können. 


Action zu zweit 


Alles, was Sie tun müssen, 
um den kleinen weißen Ball 
auch auf Ihrem Bildschirm zum 
Leben zu erwecken, ist, das Li- 
sting mit dem Checksummer 
einzugeben. Da das Pro- 
gramm in Assembler geschrie- 
ben wurde, wir aber möglichst 
vielen Lesern ermöglichen 
wollen, inden Genuß von »Ping 
Pong« zu kommen, haben wir 


uns entschlossen, das Listing 
als Basic-Lader abzudrucken. 
Es kann also unter Beachtung 
der Eingabehinweise (siehe 
Kasten) wie jedes andere 
Basic-Programm eingetippt 
werden. Nach dem ersten Start 
von »PingPong__Gen« wird 
das lauffähige Programm 
»Ping Pong« automatisch auf 
Diskette erzeugt (siehe Einga- 
behinweise im Kasten). 

Das Spiel selbst läuft nach 
den üblichen Tischtennisre- 
geln ab. Sieger ist der Spieler, 
der zwei Sätze gewinnt. Ein 
Satz ist gewonnen, wenn man 
21 Punkte erreicht und minde- 
stens zwei Punkte mehr auf 
seinem Konto als der Gegner 
hat. 

Das Match beginnt mit der 
‚Angabe des Spielers im Vor- 
dergrund. Wenn er den Knopf 
an seinem Joystick drückt, 
fliegt der »simulierte Zelluloid- 
ball«in die Höhe, um sich dann 
gleich wieder dem Tisch- 
tennis-Schläger und dem Bo- 
den zu nähern, Der Joystick- 
Knopf muß nun ein weiteres 
Mal betätigt werden, um den 
Ball in die gegnerische Hälfte 
zu befördern — wichtig ist da- 
bei der richtige Augenblick. 
Nach einigem Experimentie- 


Bild 1. Sport, Spiel, Spannung mit der dreidimensionalen Tisc! 


Programmname: PingPong__gen 
. 26 88 DATA ff,38,67,00,12,16,23,00,00,00 68 si DATA 15,a6,d1,fc,00,00,00,02,20,30 
Somputen, An aan 27 20 DATA 12,30,20,30,00,00,28,00,22,30 69.10 DATA 00,00, 00,04,22,30,00,00,00,0d 
- 28 Bn DATA 00,03,00,02,4e,ae,ff,38,67,00 70. 98 DATA 61,00,15,90,22,48,e3,5e,20,30 
Sprache: Amiga-Basic 29 6m DATA 12,d0,23,c0,00,00,1f,30,20,70 71 HU DATA 00,00,00,06,61,00,15,90,20,49 
30 or. DATA 00,00,18,04,20,30,00,00,18,08 72 EL DATA d1,f0,00,00,50,00,83,58,20,30 
erzeugt lauffähiges 31 eY DATA 22,30,00,00,19,10,24,30,00,00 73 d) DATA 00,00,00,05,61,00,15,88,34,06 
Programm auf 32.q3 DATA 19,58,26,30,00,00,19,64,28,3e 74 Mm DATA eb,5e,20,30,00,00,00,14,22,48 
eingelegter Diskette 33 @N DATA 00, 00,19, £0,20,30,00,00,19,70 75. uy DATA d1,8c,00,00,00,24,61,00,15,72 
(s. Kasten Seite 51) 34 6x DATA 2e,30,00,00,19,b8,34,40,00,06 76.06. DATA 20,49,91,£0,00,00,27,de,20,30 
DATA 48,40,34,40,00,02,34,41,00,0e 77 6g DATA 00,00,00,14,30,30,01,10,61,00 
DATA 48,41,34,41,00,08,3d,42,00,16 78 MA DATA 15,50,30,05,20,49,d1,20,00,00 
Programmautor: $, Ören 37 AU DATA 48,42,34,42,00,12,34,43,00,1e 79 yF DATA 00,26,20,30,00,00,00,14,61,00 
38 TE DATA 48,43,34,43,00,18,34,44,00,26 80 3r. DATA 15,48,20,7a,14,02,30,30,00,10 
1 .0mO REM Generiert lauffähiges Programm 39 6e DATA 3d,44,00,2e,48,44,34,44,00,22 81 VB DATA d1,fc,00,00,06,28,20,30,00,00 
2 kg REM > >PingPong< < auf der Diske 401 DATA 34,44,00,28,34,46,00,36,48,46 82 iq, DATA 00,04,22,30,00,00,00,0,61,00 
tie 41.06 DATA 34,46,00,32,34,47,00,38,48,47 83 Vb DATA 14,26,91,f0,00,00,00,02,20,30 
3 00 REM im Laufwerk dfO: 4253 DATA 34,47,00,38,20,3a,1e,78,22,00 84 Xd DATA 00,00,00,04,22,30,00,00,00,04 
sei cıs 43 31 DATA 24,01,06,81,00,00,28,00,06,82 85 hk DATA 61,00,14,e0,91,f0,00,00,00,28 
5 0) OPEN "dfO:pingpong” FOR OUTPUT AS 44 NY DATA 00,00,50,00,23,01,00,00,12,34 86 64 DATA 30,bc,00,00,91,£0,00,00,00,28 
ı 45 AF DATA 23,02,00,00,1f,38,26,3a,1e,64 87 St DATA 30,bc,00,00,20,7a,1c,ba,di,fc 
6DV READ anz 46 Dm DaTa 48,40,34,40,00,42,48,40,34,40 88 9K DATA 00,00,06,fa,30,30,20,00,20,30 
'7, ge FOR 1-1 TO anz 47 hM Data 00,46,48,41,34,41,00,40,48,41 89 ei DATA 00,00,00,04,22,30,00,00,00,0d 
8 5pi READ h$ 48 73 DaTA 34,41,00,48,48,42,3d,42,00,52 90 08 DATA 61,00,14,08,d1,f0,00,00,00,02 
9002 werti=ASC(LEFT$(n$,1)) 49 Bp DATA 48,42,34,42,00,56,48,43,34,43 91 ha DATA 20,30,00,00,00,04,22,30,00,00 
10 dk IF wert1>64 THEN wertiswert1-87 50 17 DATA 00,58,48,43,34,43,00,58,30,30 92 VL DATA 00,06,61,00,14,b2,91,£c,00,00 
ELSE wertiswert1-48 51 Qr DATA 00,40,06,80,00,00,06,28,20,40 93 nz DATA 00,28,30,bc,00,00,91,f0,00,00 
11 HK wertiswerti#16 52 4x DATA 20,30,00,00,00,04,22,30,00,00 94 64 DATA 00,28,30,b0,00,00,20,7a,10,72 
12 ge wert2=ASC(RICHTS(hB,1)) 53 xV DATA 00,09,61,00,16,1e,91,f0,00,00 95 R5 DATA di,fc,00,00,07,18,30,30,00,22 
13 yr IF wert2>64 THEN wertä-wert2-87 5A vX DATA 00,02,20,30,00,00,00,04,22,30 96 Y0 DATA 20,30,00,00,00,78,61,00,14,a0 
ELSE wert2=wert2-48 55 RX DATA 00,00,00,07,61,00,16,08,22,48 97 ZC DATA 20,78,10,58,31,70,00,00,06,e8 
14 Rk wertswerti+wert2 56 HD DATA e2,5e,20,30,00,00,00,06,61,00 98 yj DATA 31,70,00,00,06,fa,20,7a,10,46 
15 BI PRINT #1,CHR$(wert) ; 57 00 DATA 16,2e,20,49,e2,5e,di,fc,00,00 99 se DATA 20,3c,00,00,77,fe,42,83,61,00 
16 LQO. NEXT 58 4m DATA 50,00,20,30,00,00,00,05,61,00 100 J5 DATA 15,9e,22,3c,00,00,00,0b,20,7a 
17 5p CLOSE 1 59 HE DATA 16,18,22,48,d1,f0,00,00,00,28 101 8F DATA 10,30,d1,fc,00,00,08,de,30,3c 
18 2x END ‚60 xH DATA 20,30,00,00,00,14,61,00,16,08 102 Eu DATA ff,ff,20,30,00,00,00,00,61,00 
19 0e Werte: 61 69 DATA ea,5e,20,49,d1,f0,00,00,00,2c 103 ga DATA 14,70,91,fe,00,00,00,26,51,09 
20'GE DATA 9496 62 TE DATA 20,30,00,00,00,14,61,00,15,24 104 20 DATA ff,ea,22,3c,00,00,00,06,20,7a 
21 rj DATA 00,00,03,23,00,00,00,00,00,00 63 16 DATA 20,49,91,20,00,00,27,44,20,3c 105 tf DATA 10,00,d1,f0,00,00,08,de,30,30 
22 Se DATA 00,01,00,00,00,00,00,00,00,00 64 6d DATA 00,00,00,14,30,30,22,00,61,00 106 Mu DATA 00,00,20,3e,00,00,00,00,61,00 
23 aR DATA 00,00,07,e6,00,00,03,29,00,00 65 we DATA 15,de,20,7a,14,94,d1,f0,00,00 107 Re DATA 14,48,91,£0,00,00,00,26,51,09 
24 h2 DATA 07,e6,20,78,00,04,20,30,00,00 66 4f DATA 06,fa,3c,3c,08,00,20,30,00,00 108 64 DATA ff,ea,22,30,00,00,00,06,20,7a 
25 2V DATA :78,00,22,30,00,03,00,02,4e,ae 67 Tb DATA 00,04,22,30,00,00,00,06,61,00 109 jg DATA 1b,ec,d1,f0,00,00,0f,06,30,30 
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Erleben Sie Tisch- 
tennis hautnah auf 
dem Bildschirm. 
Tückische Angaben, 
Schmettern und 
Anschneiden 

des Balls sind 

in dieser Simula- 
tion realistisch 
umgesetzt. Bei 
zwei gleich- 
wertigen Geg- 
nern ergibt das 
packende Ball- 


ren findet man schnell den 
günstigsten Zeitpunkt heraus. 

Schaffen Sie es, den Ball 
über das Netz zu befördern, ist 
der Gegner an der Reihe. Die- 
ser muß ebenfalls den Ball mit 
seinem Schläger treffen und 
dabei gleichzeitig den Feuer- 
knopf drücken. Mit der Bewe- 
gung des Joysticks während 
des Schlages nach rechts oder 
links kann der Abprallwinkel 
des Balls manipuliert werden. 
So wird das Anschneiden des 
Balls realisiert. Wird der Joy- 
stick nach vorne bewegt, stei- 
gert sich die Geschwindigkeit 
(Schmettern). 

Nach jeweils fünf Punkten 
wechselt das Aufgaberecht. Ist 
ein Satz beendet, erfolgt ein 
Seitenwechsel. Spieler 1 führt 


SPIELE 


Eingabehinweise 


Starten Sie zur Generierung 
des lauffähigen Programms Ami- 
ga-Basic, das sich auf der, jedem 
‚Amiga beiliegenden, »Extras«-Dis- 
kette befindet. Geben Sie im Di- 
rektmodus die Zeile 
CLEAR, 35000 
ein, gefolgtvon <RETURN>.La- 
den Sie anschließend »Ping 
Pong__Gen« und entfernen den 
Schreibschutz auf der Diskette 
im eingebauten Laufwerk. Star- 
ten Sie nun die Programmaus- 
führung mit RUN. Jetzt leuchtet 
die LED des Laufwerks dfO;, das 
Programm »Ping Pong« wird auf 
die eingelegte Diskette geschrie- 
ben. Nachdem sich Amiga-Basic 
mit »O,K,« meldet, verlassen Sie 
mit QUIT den Basic-Interpreter. 


wechsel. denbraunenSchlägerundver- | Das auf diese Weise erzeugte 
wendet den Joystick in Port 1. From, Sr Rn Kanye 
Der zweite Spieler steuert sei- | ! = ke > STRRLT 
nen (roten) Schläger mit dem en an OU ENLDO Ce 
Joystick in Port 2 OLI eg das OLI aa Eu, 
& ht in Ihrem Amiga-Hani 
Anfanggs ist es sicherlich et- San eo Sue snaneblet 
was schwierig, beispielsweise Besitzer einer Speichererwei 
das Anschneiden des Balls ge- 
schickt einzusetzen. Nach kur- 
zer Zeit werden Sie den Ballim- 
mer besser unter Kontrolle ha- 
ben und Ball und Gegner be- 
herrschen. 
Martin Jobst/kn 
110 s8 DATA 55,55,20,30,00,00,00,08,61,00 152 WM DATA 00,04,4e,ae,ff,7c,4b,29,00,df 194 vW DATA 22,32,18,b8,10,38,18,d8,00,39 
1il eM DATA 14,20,91,f0,00,00,01,06,51,09 153 fe DATA 20,00,3b,70,03,ef,00,96,2b,7c 195 X2 DATA 00,01,00,00,18,93,67,00,00,0e 
TA ff,ea,20,30,00,00,00,16,20,7a 154 CL DATA 00,00,12,?2,00,20,2b,7c,00,00 196 we DATA 34,39,00,4f,20,00,48,29,00,00 
413 vB DATA 16,b8,d1,20,00,00,1f,be,3c,30 155 Xc DATA 1a,e2,00,b0,2b,70,02,1f,02,5f 197 Zp DATA 06,08,34,39,00,df,20,02,08,02 
114 ga DATA c0,00,61,00,13,20,22,30,00,00 156 5e DATA 00,34,3b,70,00,08,00,b4,36,7c 198 ya DATA 00,01,67,00,00,1e,48,41,00,41 
415 Oh DATA 00,06,20,7a,1d,ac,d1,f0,00,00 157 Vi DATA 00,40,00,88,2b,70,01,90,00,40 199 g9 DATA 01,90,62,00,00,12,48,41,06,81 
116 q0 DATA 1f,be,30,3c,ff,ff,20,3c,00,00 158 Rh DATA 00,66,3b,70,00,ff,00,9e,2b,7c 200 od DATA 00,00,55,56,23,01,00,00,1P,5c 
X7 Cr DATA 00,1e,61,00,13,e0,91,20,00,00 159 Us DATA 00,00,18,04,00,80,42,64,00,88 201 Rs. DATA 48,41,48,41,08,02,00,09,67,00 
418.70 DATA 04,46,51,09,ff,ea,22,30,00,00 160 vC DATA 2b,70,29,81,29,22,00,8e,2b,70 202 56 DATA 00,1e,48,41,00,41,00,82,63,00 
119 fU DATA 00,06,20,7a,1b,80,d1,fc,00,00 161 7P DATA 00,38,00,40,00,92,2d,70,42,00 203 10 DATA 00,12,48,41,04,81,00,00,55,56 
120, uK DATA 1f,be, 30,30, f,1%,20,30,00,00 162 5} DATA 00,00,01,00,3b,70,00,17,01,04 204 62, DATA 23,01,00,00,12,50,48,41,48,41 
421 Yi DATA 00,1e,61,00,13,68,91,20,00,00 163 Ng DATA 2b,70,00,06,0f,ff,01,80,2b,70 205 JY DATA 22,7°,00,00,1f,50,24,70,00,00 
A22 20 DATA 04,46,51,09,ff,ea,20,30,00,00 164 v& DATA 00,00,00,90,01,84,26,70,07,77 206 3% DATA 1f,54,12,80,14,80,48,41,08,01 
423 07 DATA 00,16,20,7,1b,58,d1,£0,00,00 165 JO. DATA 00,60,01,88,20,70,03,33,00,00 207 01. DATA 00,00,67,00,00,14,13,70,00,01 
424 eW DATA 1f,d4,30,30,ff,f0,61,00,13,, 166 10 DATA 01,86,26,70,0f,86,0f,00,01,a2 208 36 DATA 00,03,15,70,00,01,00,03,48,£9 
125 8) DATA 22,30,00,00,00,06,20,7a,1b,38 167 VE DATA 36,70,06,40,01,86,2d,70,0f,ff 209 10 DATA 00,00,07,48,13,7e,00,00,00,03 
126 173 DATA d1,f0,00,00,16,9,3c,3c,ff,?f 168 89 DATA 00,00,01,aa,2b,70,0f,86,06,00 210 BN DATA 15;70,00,00,00,03,e2,59,13,41 
427 AT DATA 20,30,00,00,00,00,61,00,13,78 169 6W DATA 01,ba,3b,70,06,40,01,be,20,70 211 g0 DATA 00,01,50,01,15,41,00,01,06,00 
128 w5 DATA 91,f0,00,00,00,26,51,09,ff,ea 170 ya DATA 00,df,f1,90,20,30,00,00,00,07 212 F5 DATA 00,11,13,40,00,02,15,40,00,02 
" 129 bF DATA 22,30,00,00,00,06,20,78,1b,14 171 d2 DATA 30,60,00,00,d1,fc,00,00,00,02 213 kk DATA 00,39,00,01,00,00,1f,83,67,00 
130 ZM DATA d1,f0,00,00,24,96,30,30,ff,ff 172 FÜ DATA 51,08,ff,24,2b,70,00,07,0f,f7 214 os DATA 00,06,00,39,00,01,00,00,1f,84 
131 Sb DATA 20,3c,00,00,00,00,61,00,13,50 173 Qk DATA 01,98,3b,70,0f,20,01,90,3b,7c 215 IL DATA 66,00,00,32,00,39,00,01,00,00 
132 09 DATA 91,f0,00,00,00,26,51,09,ff,ea 174 28 DATA 83,80,00,96,22,38,19,78,10,3a 216 BM DATA 17,93,67,00,00,14,08,39,00,07 
433 oM DATA 22,30,00,00,00,09,20,7a,1s,ec 175 44 DATA 19,94,00,39,00,01,00,00,1f,93 217 Lp DATA 00,bf,e0,01,66,00,00,68,4e,19 
134 Yv DATA d1,f0,00,00,21,20,30,30,ff,£f 176 Jx DATA 67,00,00,08,34,39,00,d?,f0,0a 218 DM DATA 00,00,07,42,08,39,00,06,00,bf 
135 16 DATA 20,30,00,00,00,01,61,00,13,28 177 Wg DATA 4e,29,00,00,06,04,34,39,00,df 219 70 DATA e0,01,66,00,00,56,48,29,00,00 
136 PL DATA 91,2c,00,00,00,48,51,c9,tf,ea 478 gD DATA £0,00,08,02,00,01,67,00,00,1e 220 x} DATA 07,42,00,39,00,01,00,00,1£,93 
137 IK DATA 20,7a,1a,ca,di,fc,00,00,20,88 179 ol DATA 48,41,00,41,01,90,62,00,00,12 221 72 DATA 67,00,00,14,08,39,00,06,00,bf 
138 k) DATA 20,30,00,00,00,06,22,70,00,00 180 Dx DATA 48,41,06,81,00,00,55,56,23,c1 222 CH DATA e0,01,66,00,00,38,48,19,00,00 
139 Mj DATA 18,68,61,00,13,14,20,78,18,b0 181 34 DATA 00,00,18,58,48,41,48,41,08,02 223 8Q DATA 07,42,08,39,00,07,00,bf,e0,01 
140 86 DATA d1,f0,00,00,22,90,20,30,00,00 182 Um DATA 00,09,67,00,00,1e,48,41,00,41 224 U DATA 66,00,00,26,23,?0,00,00,14,00 
141 ef DATA 00,06,22,70,00,00,18,68,61,00 163 Um DATA 00,82,63,00,00,12,48,41,04,81 225 eD DATA 00,00,18,74,23,f0,00,20,00,00 
442 fZ DATA 12,?a,20,7a,12,96,d1,2c,00,00 184 5D DATA 00,00,55,56,23,c1,00,00,1f,58 226 hI DATA 00,00,1f,78,13,f0,00,01,00,00 
143 Ck DATA 20,8e,20,3c,00,00,00,03,22,7c 185 8P DATA 48,41,48,41,22,70,00,00,1f,40 227 vO DATA 1f,83,13,f0,00,01,00,00,1f,82 
144 Ice DATA 00,00,18,92,61,00,13,06,20,78 186 ur DATA 24,70,00,00,1f,44,12,80,14,80 228 7t DATA 0c,39,00,01,00,00,1f,84,66,00 
145 NL DATA 18,7c,d1,fc,00,00,22,96,20,3c 187 3N DATA 48,41,08,01,00,00,67,00,00,14 229 UK DATA 00,10,36,38,17,58,06,43,00,12 
146 ec DATA 00,00,00,03,22,7c,00,00,12,9a 188 A1 DATA 13,70,00,01,00,03,15,70,00,01 230 Zu DATA 61,00,0f,1e,33,?0,45,00,00,00 
14758 DATA 61,00,12,e0,13,20,00,15,00,00 189 Sp DATA 00,03,4e,9,00,00,06,84,13,7c 
A4B MA DATA 1f,90,61,00,06,80,33,fe,01,2e 190 Zx DATA 00,00,00,03,15,7c,00,00,00,03 " 
149, eU_ DATA 00,00,18,58,13, f6,00,44,00,00 191 59 DATA e2,49,13,41,00,01,06,01,00,08 Listing 1. Geben Sie 
350. 6K DATA 1,81,33,£0,00,54,00,00,18,5e 192 «0 DATA 15,41,00,01,06,00,00,11,13,40 »PingPong__Gen« bitte mit dem 
451 fy DATA 13,70,00,c6,00,00,17,80,20,78 193 XX DATA 00,02,04,00,00,01,15,40,00,02 Checksummer (Seite 143) ein 


51 


231 on 


232 3% 


233 y5 
234 08 
25 8 
236 DK. 
237 
238 pl 
239 ah 
ako eR 
24 9 
242 ON 
243 00 
all S6 
and yM 
246 Iw 
247 y6 
248 6 
249 va 
250 8W 
251 VB 
252 on 
253 57 
254 se 
255 DE 
236 SU 
297 °8 
258.1 
259 üR 
260 41 
261 IK 
262 ou 
264 29 
26h Dr 
265 Wa 
266 kt 
267 tm 
268 OHM 
269 pe 
270 
em ch 
272 ch 
273,38 
274 te 
275 16 
276 wh 
arm 36 
278 87 
279 80 
280 eZ 
281 4M 
282 18 
283 sp 
284 71 
285 x 
286 nV 
287 14 
288 88. 
289 Ki 
290.74 
291 78 
292 Ip 
293 ot 
294 D4 
295 Qe 
296 28 
297. DM 
298 Pb 
299 15 
300 FR 
301 59, 
302 ck 
‚303 KU 
304 vP 
305 85, 
306 xQ, 
307 Mu 
308 R6 
309 Wz 
310 5M 
311 Vo, 
312 In 
31392 


DATA 18,72, 4e,f9,00,00,08,30,36,32 
DATA 17,38,06,43,00,09,61,00,07,04 
DATA 33,0,55,00,00,00,1#,72,20,3a 
DATA 17,42,91,69,00,00,18,78,20,38 
DATA 17,30,1,09,00,00,18,70,30,3« 
DATA 17,18,01,79,00,00,18,72,18,3a 
DATA 17,22,20,38,17,00,d1,b9,00,00 
DATA 12,66,20,38,17,08,d1,b9,00,00 
DATA 10,68, 36,38,17,06,06,39,00,46 
DATA. 00,00, 18,72,62,00,00,12,13, fc 
DATA 00,01,00,00,18,86,13,f0,00,02 
DATA 00,00, 18,8b,00,39,00,b,00,00 
DATA 18,72,65,00,00,12,13, f0,00,01 
DATA 00,00,12,86,13,£0,00,02,00,00 
DATA 16,86,06,39,00,30,00,00,1£,7« 
DATA 63,00,01,18,00,39,00,01,00,00 
DATA 17,82,66,00,00,28,06,39,00,55 
DATA 00,00,12,72,66,00,00,08,13, fc 
DATA 00,01,00,00,1,86,00,39,00,45 
DATA 00,00, 12,72,66,00,00,08,13, f0 
DATA 00,01,00,00,12,86,23, 20,00, 
DATA 00,00,00,00,11,78,23,£0,00,00 
DATA 18,00,00,00,18,74,00,39,00,01 
DATA 00,00,1£,80,66,00,00,02,13, fe 
DATA 00,01,00,00,12,86,06,04,00,46 
DATA 65,00,00,12,13,0,00,01,00,00 
DATA 12,86,13,f0,00,02,00,00,1f,&b 
DATA 06,04,00,53,62,00,00,12,13, fc 
DATA 00,01,00,00,12,86,13,0,00,01 
DATA 00,00,10,86,38,30,00,00, 30,30 
DATA 00,d6,90,04,04,46,00,05,00,46 
DATA 00,81,62,00,00,08,52,45,4e,fa 
DATA ££,20,36,30,00,b0,de,45,bo,43 
DATA 65,00,00,0,13,20,00,01,00,00 
DATA 12,86, 30,30,01,68,90 ,45,be,43 
DATA 62,00,00,08,13,20,00,02,00,00 
DATA 12,86,00,39,00,00,00,00,11,86 
DATA 66, 00,00, 36,13, f°,00,01,00,00 
DATA 12,88,33,20,01,90,00,&?, 0,26 
DATA 33, 80,82,01,00,4£,0,96,13,fc 
DATA 00,14,00,00, 1,89,00,39,00,00 
DATA 00,00,1#,82,67,00,00,12,13, fc 
DATA. 00,00,00,00,12,88,13,2e,00,00 
DATA 00,00,12,82,04,39,00,01,00,00 
DATA 1£,89,00,39,00,00,00,00,17,89 
DATA 66,00,00,08,33,20,00,01,00,d# 
DATA £0,96,00,39,00,93,00,00,18,72 
DATA 67,00,00,14,00,39,00,92,00,00 
DATA 12,72,67,00,00,08,48,19,00,00 
DATA 08,38, 00,39,00,00,00,00,1#,7c 
DATA 62,00,00,2e,38,30,00,00, 98,73 
DATA 00,00,1#,64,33,05,00,00,18,64 
DATA 23, £0,00,00,30,00,00,00,18,74 
DATA 23, 20,00,10,00,00,00,00,18,78 
DATA 13, 20,00,01,00,00,1°,80,13, fc 
DATA 00,2,00,00,1f,85,18,04,98,3a 
DATA 15,38,13,20,00,01,00,00,1f,84 
DATA 10,05,90,39,00,00,18,80,20,30 
DATA 00,00,00,04,18,30,00,00,60,07 
DATA 66,00,00,08,13,07,00,00,18,85 
DATA 52,07,51,08,2,20,20,30,00,00 
DATA 00,04,18,30,00,06 ,b0,07,66,00 
DATA 00,08,13,00,00,00,18,85,52,07 
DATA 51,08, 21, 20,20,30,00,00,00,04 
DATA 18, 30,00, 06,b6,07,66,00,00,08 
DATA 13, 20,00,06,00,00,18,85,52,07 
DATA 51,08, 2f,e8,20,30,00,00,00,01 
DATA 1, 36,00,04,be,07,66,00,00,08 
DATA 13, 86,00,04,00,00,18,83,52,07 
DATA bo,07,66,00,00,08,13,f0,00,04 
DATA 00,00,12,85,50,07,51,08,£f,ec 
DATA 30,38,14,92,90,78,14,70,00,39 
DATA 00,00,00,00,1,85,66,00,00,24 
DATA 06,06,00,08,65,00,00,12,00,06 
DATA 00,15,62,00,00,14,13,0,00,00 
DATA 00,00,1f,84,23,0,00,00,00,00 
DATA 00,00,1#,68,00,39,00,01,00,00 
DATA 1#,85,66,00,00,3e,00,06,00,0b 
DATA 65,00,00,36,00,06,00,18,62,00 
DATA 0028,13, £0,00,00,00,00, 17,84 
DATA 00,06,00,08,62,00,00,0°,23,2c 
DATA £f,2£,19,00,00,00,1,68,00,06 
DATA. 00, 16,65,00,00,00,23,20,00,00 
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DATA 07,00,00,00, 18,62, 00,39,00,02 
DATA 00,00,12,85,66,00,00,3e,00,06 
DATA 00,08,65,00,00,36,00,06,00,19 
DATA 62,00,00,2e,13,£c,00,00,00,00 
DATA 1F,84,00,06,00,08,62,00,00,0e 
DATA 23,2c,f?,22,19,00,00,00,1f,68 
DATA 06,06,00,16,65,00,00,00,23, fc 
DATA 00,00,07,00,00,00,18,68,00,39 
DATA 00,03,00,00, 1£,85,66,00,00,50 
DATA 06,06,00,08,65,00,00,48,00,06 
DATA 00,16,62,00,00,40,13,2 
DATA 00,00,17,84,00,06,00,\ 
DATA 00,00,23, fe, ff,2?,29, 
DATA 1f,68,00,06, 00,16, 
DATA 23, 20,00,00,07,00,00, 
DATA 06,06,00, 18,65, 00,00, 
DATA 00, 
DATA 00, 
DATA O6, 
DATA 00,10, 
00, 
00, 


‚08,62,| 
00, 
»65,00,00, 
‚00, 
‚00, 
,08,00,00,00; Bi 


DATA 08,62 
DATA 123, 10,2%,07,19,00,00 
DATA 1f,6,02,06,00,16,65,00,00, 
af, 
‚23 


458888388287 98838 


DATA 23,2°,00,00,07,00,00,00, 

DATA 06,06,00,12,65,00,00,06, 

DATA 00,00,08,00,00,00,1f,68,0c 
DATA 00,06,00,00,1,85,66,00,00,50 
DATA 00,06,00,08,65,00,00,48,0©,06 
DATA 00,10,62,00,00,40,13,£0,00,00 
DATA 00,00,1f,84,00,06,00,08,62,00 
DATA 00,00,23,20,22,£2,19,00,00,00 
DATA 12,68,00,06,00,16,63,00,00,00 
DATA 23,£0,00,00,07,00,00,00,1£,62 
DATA. 00,06,00,18,65,00,00,00,23, fc 
DATA 00,00,08,00,00,00,18,68,00,39 
DATA 00,45,00,00,12,72,67,00,00,46 
DATA 06,39,00,84,00,00,18,72,67,00 
DATA 00,38, 00,39,00,46,00,00,1£,72 
DATA 67,00, 00,2e,0°,39,00,43,00,00 
DATA 1£,72,67,00,00,22,06,39,00,82 
DATA 00,00,17,72,67,00,00,16,0°,39 
DATA\ 00,87,00,00,1£,72,67,00,00,08 
DATA 13,£6,00,01,00,00,1f,84,00,39 
DATA 00,01,00,00,12,84,67,00,00,cc 
DATA 0c,39,00,01,00,00,12,93,67,00 
DATA 00,14,08,39,00,07,00,b£,e0,01 
DATA 66,00,00,64,48,£9,00,00,04,34 
DATA 08,39,00,06,00,bf,e0,01,66,00 
DATA 00,22,33,fe,£?,44,00,00,1£,64 
DATA 61,00,09,ae,00,39,00,01,00,00 
DATA 12,93,67,00,00,08,34,39,00,df 
DATA £0,00,46,£9,00,00,04,58,34,39 
DATA 00,4f,10,08,08,02,00,01,67,00 
DATA 00,0,23,20,£2,£f,ff,£2,00,00 


DATA 1f,60,08,02,00,09,67,00,00,00 
DATA 23,20,00,00,00,01,00,00, 18,60 
DATA 06,39,00,01,00,00,12,84,66,00 
DATA 00,18,00,39,00,01,00,00,12,82 
DATA 66,00,00,12,23,0,00,00,00,00 
DATA 00,00,1#,78,48,19,00,00,04,d4 
DATA 30,02,e2,46,65,46,08,06,00,08 
DATA 67,00,00,18,33,f0,f2,c4,00,00 
DATA 1f,64,23,20,00,20,00,00,00,00 
DATA 1878,23, f0,00,00,30,00,00,00 
DATA 18,74,13,20,00,01,00,00,1f,84 
DATA 13,f0,00,22,00,00,12,85,10,05 
DATA 90,32,11,99,20,30,00,00,00,04 


DATA 1e,30,00,00,b0,07,66,00,00,08 
DATA 13,07,00,00,12,85,52,07,51,c8 
DATA f£,10,20,36,00,00,00,04,1e,30 
DATA 00,02,be,07,66,00,00,08,13,c0 
DATA 00,00,12,85,52,07,51,c8, 22,20 
DATA 20,36,00,00,00,04,18,30,00,06 
DATA be,07,66,00,00,02,13,£0,00,06 
DATA 00,00,18,85,52,07,51,08,#f,es 
DATA 20,30,00,00,00,01,18,30,00,04 
DATA be,07,66,00,00,08,13,fe,00,04 
DATA 00,00,12,85,52,07,bc,07,66,00 
DATA 00,02,13,f0,00,04,00,00,1f,85 
50,07,51,08,ff,ec,3c, 32,10, fe 
„10,04, 00,39,00,00,00,00 
DATA 17,85,66,00,00,24,02,06,00,07 
DATA 65,00,00,10,00,06,00,02,62,00 


SIETKERERE 


DATA 62,00,00,00,23,fc,f£,££,19,00 


j Data ££,tt,ff,£1,00,00,10,60,08,02 


DATA 00,14,13,£0,00,00,00,00,1£,84 
DATA 23,20, 00,00,00,00,00,00,1f,68 
DATA 06,39,00,01,00,00,1#,85,66,00 
DATA 00,38,00,06,00,04,65,00,00,36 
DATA 06,06,00,11,62,00,00,2e,13, fc 
DATA 00,00,00,00,12,84,06,,06,00,07 


DATA 00,00,1F,6n,00,06,00,0e,65,00 
DATA 00, 06,23, £0,00,00,07,00,00,00 
DATA 12,68,00,39,00,02,00,00,18,85 
DATA 66,00,00,3e,00,06,00,03,65,00 
DATA 00,36,06,06,00,12,62,00,00,28 
DATA 13, 80,00,00,00,00,1#,84,00,06 
DATA 00,07,62,00,00,00,23,La,1?,1? 
DATA £9,00,00,00,18,68,00,06,00,08 
DATA 65,00, 00,06,23,20,00,00,07,00 
DATA 00,00,12,6a,00,39,00,03,00,00 
DATA 18,85,68,00,00,50,00,06,00,01 
DATA 65,00,00,48,0°,06,00,12,62,00 
DATA 00,40,13,£6,00,00,00,00,18,84 
DATA 00,06,00,07,62,00,00,00,23, fo 
DATA £2,22,19,00,00,00,1,68,00,06 
DATA 00,03,62,00,00,06,23,80,10,17 
DATA 22,00,00,00, 1f,68,06,06,00,0e 
DATA 65,00, 00,06,23,20,00,00,07,00 
DATA 00,00, 1#,68,00,39,00,04,00,00 
DATA 11,85,66,00,00,50,00,06,00,00 
DATA 65,00,00,48,06,06,00,12,62,00 
DATA 00,40,13,20,00,00,00,00,18,84 
DATA 00,06,00,07,62,00,00,00,23, fo 
DATA £2,£2,2,00,00,00,1R,68,00,06 
DATA 00,03,62,00,00,00,23,fo,££,£t 
DATA £2,00,00,00,12,62,00,06,00,0e 
DATA 65,00,00,00,23,26,,00,00,07,00 
DATA 00,00,12,6,02,39,00,06,00,00 
DATA 12,85,66,00,00, 50,00 ,06,00,00 
DATA 65,00,00,48,00,06,00,12,62,00 
DATA 00,40,13,20,00,00,00,00,1£,84 
DATA 00,06,00,07,62,00,00,00,23,f0 
DATA ??,22,29,00,00,00,1£,68,00,06 
DATA 00,03,62,00,00,00,23, 0,08, £f 
DATA £2,00,00,00,1#,68,00,06,00,08 
DATA 65,00,00,00,23,fc,00,00,07,00 
DATA 00,00,12,68,00,39,00,59,00,00 
DATA 12,72,67,00,00,46,00,39,00,54 
DATA 00,00,1f,72,67,00,00,38,0c,39 
DATA 00,56,00,00,11,72,67,00,00,2e 
DATA 00,39, 00,57,00,00,18,72,67,00 
DATA 00,22,00,39,00,58,00,00,1#,72 
DATA 67,00,00,16,00,39,00,53,00,00 
DATA 18,72,67,00,00,08,13,0,00,01 
DATA 00,00, 1 ,84,00,39,00,01,00,00 
DATA 1£,84,67,00,00,46,06,39,00,01 
DATA 00,00,18,93,67,00,00,14,08,39 
DATA 00,06, 00,bf,e0,01,66,00,00,be 
DATA 4e, £9,00,00,10,08,08,39,00,07 
DATA 00,bf,«0,01,66,00,00,a0,33, 0 
DATA 00,23,00,00,1f,64,61,00,06,1n 
DATA 00,39,00,01,00,00,18,93,67,00 
DATA 00,08,34,39,00,4£,10,0n,48,19 
DATA 00,00, 10,£2,34,39,00,f,£0,00 
DATA 08,02,00,01,67,00,00,00,23, lo 


DATA 00,09,67,00,00,00,23,20,00,00 
DATA 00,01,00,00,1£,60,00,39,00,01 
DATA 00,00,12,84,67,00,00,28,00,39 
DATA 00,01,00,00,1,82,66,00,00,10 
DATA 23, £0,00,00,00,00,00,00,18,78 
DATA 23, 26,00,00,30,00,00,00,1,74 
DATA 4e,29,00,00,11,72,30,02,02,4e 
DATA b5,46,08,06,00,00,67,00,00,1e 
DATA 33,£0,00,30,00,00,1f,64,23,fe 
DATA. 00,20, 00,00,00,00,1#,78,23, f0 
DATA. 00,00,30,00,00,00,1#,74,00,39 
DATA 00,01,00,00,1,86,66,00,01,08 
DATA 00,39,00,01,00,00,12,80,66,00 
DATA 00,26,00,39,00,93,00,00,12,72 
DATA 62,00,00,08,52,39,00,00,1f,88 
DATA 4e,29,00,00,12,74,52,39,00,00 
DATA 16,87,4e,29,00,00,12,74,00,39 
DATA 00,01,00,00,1£,88,66,00,00,32 
DATA. 06,39,00,01,00,00,1#,8b,66,00 
DATA. 00,08,52,39,00,00,1#,88,4,9 
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DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
Data 
DATA 
Dana 
DaTa 
DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dana 
Data 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
Dama 
DATA 
Dam 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
Data 
Dana 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
Dama 
Dama 
DATA 
Data 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
Data 
Data 
DATA 
DATA 
DATA 
DATA 
Data 


00,00,12,74,00,39,00,02,00,00 
17,80, 66,00,00,0,52,39,00,00 
1£,87,48,£9,00,00,12,74,00,39 
00,00,00,00,1f,82,66,00,00,80 
06,39,00,01,00,00,17,82,66,00 
00,26,00,39,00,93,00,00,1,72 
62,00,00,0,52,39,00,00,12,88 
42,29,00,00,12,74,52,39,00,00 
12,87,4e,29,00,00,12,74,00,39 
00,93,00,00,17,72,62,00,00,0e 
52,39,00,00,11,87,48,19,00,00 
12,74,52,39,00,00,10,88,4e,29 
00,00, 12,74,0°,39,00,01,00,00 
12,80, 66,00,00, 08, 52,39,00,00 
18,87,48,19,00,00,12,74,00,39 
00,02,00,00,1f,85,66,00,00,08 
52,39,00,00,1f,88,61,00,00,e4 
06,39, 00,01,00,00,18,94,67,00 
00,82,22,70,00,00,12,48,24,7c 
00,00,1?,4c,08,03,00,00,67,00 
00,14,13,70,00,01,00,03,15,7c 
00,01,00,03,4e,19,00,00,12,b6 
13,7c,00,00,00,03,15,70,00,00 
00,03,e2,40,14,84,54,04,15,44 
00,02,15,43,00,01,12,85,54,05 
13,45,00,02,13,43,00,01,33,1c 
a0,20,00,4f,10,9,23,1a,00,66 
00,00, 19,70,23, 2a, 0c,62,00,00 
19,68,23, fa,00,5e,00,00,19,58 
23,2a,00,5a,00,00,19,64,23, fa 
06,56,00,00,18, 08,23, fa,00,52 
00,00,19, 10,48, fa,2,d4,28,30 
00,00,00,14,61,00,03,02,51,cd 
ft,fa,61,00,03,54,61,00,02,18 
13,10,00,00,00,00,17,84,13, fc 
00,00,00,00,1f,91,13,20,00,00 
00,00,1#,92,61,00,00,1e,13, fc 
00,00,00,00,1f,96,13, £0,00,00 
00,00,1#,94,13,0,00,00,00,00 
11,95,4e,1a,12,86,24,30,00,00 
00,00,14,39,00,00,17,87,44,39 
00,00, 1£,88,84,£0,00,05,48,42 
0e,42,00,00,66,00,00,16,00,39 
00,01,00,00,12,95,67,00,00,0a 
08,79,00,00,00,00,1#,84,00,39 
00,01,00,00,1#,93,67,00,00,18 
13,fa,0b,eb,00,00,1f,8e,13, fa 
0b, 4,00, 00,17,8£,4e,£9,00,00 
13,00,13,fa,00,45,00,00,1f,8f 
13,28, 0b,ce,00,00,1f,80,00,39 
00,15,00,00,12,87,65,00,00,18 
08,79,00,00,00,00,1?,84,13, fc 
00,01,00,00,17,95,48,9,00,00 
13,2e,00,39,00,15,00,00,12,88 
65,00,00,12,08,79,00,00,00,00 
18,84,13, 20,00,01,00,00,12,95 
24,30,00,00,00,00,14,38,0b,88 
64,38, 0b,86,65,00,00,28,94,39 
00,00,1#,8#,00,02,00,01,66,00 
00,08,52,39,00,00,18,90,48,29 
00,00,14, 30,08,79,00,00,00,00 
12,93,52,39,00,00,1f,91,61,00 
02,36,14,38,06,51,b4,3a,0b,4e 
65,00,00,30,94,39,00,00,1?,8€ 
06,02,00,01,66,00,00,06,52,39 
00,00,1#,90,4e,9,00,00,14,76 
08,79,00,00,00,00,1f,93,06,39 
00,01,00,00,12,92,61,00,01,e 
06,39,00,02,00,00,18,91,66,00 
00,08,13,£0,00,01,00,00,11,9% 
06,39, 00,02,00,00,12,92,66,00 
00,08,13, £0,00,01,00,00,12,94 
14,39,00,00,1f,91,84,39,00,00 
1f,92,00,02,00,02,66,00,00,2e 
06,39,00,01,00,00,18,96,67,00 
00,22,00,39,00,08,00,00,1f,8e 
66,00,00,06,62,00,01,de,00,39 
00,0a,00,00,1f,82,66,00,00,06 
61,00,01, 8,00, 39,00,01,00,00 
1f,93,67,00,00,18,33,0,0?,00 
00, f,21,84,33, £0,06,00, 00,4? 
?1,be,4e,19,00,00,15,10,33, Le 
06,00,00,4f,£1,a4,33,f0,01,00 


Dana 
DATA 
DATA 
DATA 
DATA 
Data 
DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
Dama 
DATA 
DATA 
Dam 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
Data 
Dana. 
DATA 
Data 
Dana 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dara 
DATA 
DATA 
DATA 
Data 
Data 
Data 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
Dana 
DATA 
DATA 
DATA 
DATA 
DaTa 


00,2, £1,b0,14,38,08,70,84,f0 
00,0a,20,7a,02,16,d1,c,00,00 
20,92,20,30,00,00,00,03,61,00 
02,dc,61,00,02,b2,48,42,4e,59 
00,00,15,30,14,38,08,54,20,7a 
09,#2,d1,£0,00,00,20,94,20,30 
00,00,00,03,61,00,02,b8,61,00 
02,68,24,30,00,00,00,00,14,38 
0a,33,84, £0,00,02,20,7a,09,ce 
1, fe, 00,00, 22,92, 20,30,00,00 
00,03,61,00,02,92,61,00,02,68 
48,42,48,19,00,00,15,86,14,3a 
08,06,20,73,09,88,d1,20,00,00 
22,90 ,20,30,00,00,00,03,61,00 
02,68,61,00,02,18,20,78,09,94 
@1, 0, 00,00,20,98,20,30,00,00 
00,03,14,39,00,00,18,91,61,00 
02,50,61,00,02,26,20,7a,09,76 
a1,20,00,00,22,20,20,30,00,00 
00,03,14,39,00,00,18,92,61,00 
02,32,61,00,02,08,23, £0,00,00 
00,00,00,00,19,58,23, 2000,00 
00,00,00,00,19,64,33,20,82,02 
00,4?,20,96,3b,7e,01,40,00,06 
61,00,00,48,36,70,01,26,00,b6 
61,00, 0008,33, £0,00,02,00,a£ 
20,96,61,00,00,04,48,75,13,c 
00,01,00,00,12,82,13,0,00,00 
00,00, 183,13, £,00,00,00,00 
12,86,23, 0,00, 00, 00,00, 00,00 
12,74,23,c,00,00,00,00,00,00 
12,60,33,2,00,00,00,00, 12,64 
23,26,00,00,00,00,00,00,18,66 
13,26,00,00,00,00,18,8a,13, fe 
00,00,00,00,12,86,13,0,00,00 
00,00,1£,80,48,75,13,£0,00,01 
00,00, 1£,84,13, £0,00,00,00,00 
1f,95,13,0,00,15,00,00,12,90 
13, £0,00,00,00,00,18,87,13,£c 
00,00,00,00,11,88,13, £,00,00 
00,00,1#,86,13, f0,00,00,00,00 
12,80,48,75,08,79,00,00,00,00 
10,93,13,c,00,01,00,00,18,96 
14,38,08,cb,13,28,08,08,00,00 
12,87,13,02,00,00,11,88,08,79 
00,00,00,00,1F,8d,48,75,24,3c 
00,00,00,01,51,08,ff,f8,20,3c 
f£,PR,LR,SE,51,ca,fR,14,4e,75 
13,26,00,00,00,00,1f,83,33, fc 
02,5£,00,4,£0,86,33,10,82,01 
00,48, 0,96,13, £0,00,30,00,00 
12,89, 23, fe,00, 12,00,00,00,00 
11,78,23,e,00,00,18,00,00,00 
12,74,23,28,08,48,00,00,12,66 
42,75,33,03,00,00,10,68,23,f0 
13,00,00,00,00,00,1f,7c,20,3 
00,00, 00,00,4e,75,30,86,41, fe 
00,00,00,28,51,08,£?,6,20,3c 
00,00,00,04,e3,58,51,09, Pf,en 
48,75,30,86,41,20,00,00,00,28 
51,08,2£,16,20,30,00,00,00,04 
62,58,51,09, f£,ea,4e,75,30,86 
&1, £0,00,00,00,28,51,08,£2,£6 
48,75,30,86, 41, 20,00,00,00,28 
e3,58,51,08,£2,£4,46,79,24,11 
20,82,43,£0,00,00,00,04,d1,£« 
00,00,00,04,34,11,30,82,43, fc 
00,00, 00,02,d1,£0,00,00,00,24 
51,08, £2,de,4e,75,c4,38,00,0f 
14,11,10,82,d1,20,00,00,00,28 
14,29,00,01,10,82,d3, f0,00,00 
00,02,41,£0,00,00,00,28,51,08 
f£,de,4e,75,14,11,11,42,00,01 
&1, 2,00, 00,00,28,14,29,00,01 
11,42,00,01,43, 80,00,00,00,02 
@1,20,00,00,00,28,51,c8,ff,de 
48,75,0°,02,00,00,66,00,00,08 
22,7e,00,00, 1a, da,00,02,00,01 
66,00,00,08,22,7c,00,00,18,92 
0e,02,00,02,66,00,00,08,22,7e 
00,00, 14, 98,06,02,00,03,66,00 
00,08,22,70,00,00, 1a,a2,00,02 
00,04,66,00,00,08,22,7c,00,00 


&h6 pı 
‚67 mo 
648 2u 
&9 Zn 
650 ch 
651 5a 
652 Ru 
653 02 
6546 
655.79 
656 dB 
657 px 
658 48 
659 91 
660 25 
661 No 
682.7 
663 Pr 
‚66h AR 
665 yE 
666 Um 
667 2x 
68 ny 
869 Fr 
670 ©0 
er BY 
672 H2 
673.0) 
674 ya 
815 88 
676 14, 
&77 PL 
878 Mb 
679 nD 
‚680 x6 
Kar u) 
682 Re 
683 80, 
sh kr 
685. 00 
686 af 
ser 
688 UR 
689 af 
&30 ir 
691 au 
82 1 
693 58 
694 3% 
695 Mi 
696 re 
7 
69e Nz 
699 zE 
700 uw 
701 u 
702 v7 
703 &6 
704 Sn 
705 un 
706 wa 
707% 
708 Be. 
709 65 
710 ar 
mit 
iz nu 
m13 38 
Mh 2 
71511 
716 mN 
27.0) 
718 08 
719 12 
720 2a 
Ta1 7K 
722 Ve 
723 42 
724 ah 
725 1 


Listing 1. (Fortsetzung) 


Dama 
DATA 
DATA 
Data 
Data 
DATA 
DATA 
Dana 
DATA 
DATA 
DATA 
Dana 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dara 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dara 
DaTa 
DATA 
DATA 
DATA 
DATA 
Dara 
DATA 
DATA 
DATA 
Dam 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dama 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DaTa 


1a,aa, 06,02,00,05,66,00,00,08 
22,7e,00,00,18,b2,0°,02,00,06 
66,00,00,08,22,70,00,00,1a,ba 
06, 02,00,07,66,00,00,08,22,7c 
00,00, 18,c2,0°,02,00,08,66,00 
00,08,22,7e,00,00,1a,ca,00,02 
00,09,66,00,00,08,22,7c,00,00 
18,d2, 4,75, 22,30,00,00,00,07 
&1,fe,00,00,00,01,10,10,08,06 
00,07,67,00,00,06,08,43,00,00 
08,03,00,00,67,00,00,06,08,06 
00,07,83,18,51,09,£2,84,10,86 
51,08, £7,40,48,75,80,58,b1,00 
00,00,00,01,00,00,00,0f,00,00 
00,18, 00,00,00,78,00,80,00,7£ 
00,80,00,72,01,80,00,7?, 2,80 
00,78, 2,80, £,£,2%,80,00,72 
01,80, 00,72,00,80,00,72,00,80 
00, 72,00,00,00,72,00,00,00,1£ 
00,.00,00,0£,00,00,00,01,80,5a 
61,00,00,00, £0,00,00,00,f,80 
00,00, £2,00,00,00,2%,0,00,00 
22,28,00,00,28,28,00,00,f,1c 
00,00, £?,£0,00,00,££,£0,00,00 
f£,20,00,00,22,20,00,00, 22,28 
00,00, 22, f8,00,00, 21, £0,00,00 
22,°0,00,00,22,80,00,00,f°,00 
@0, 62,22, 00, 00, 00,00,00,0,00 
00,00, 8,62, a8,00,00,00,c0,00 
00,00, 00, 00,0,58,1,00,00,00 
00, £2,00,00,07,££,00,00,0£,££ 
00,00,3£,£2,00,00,7£,21,00,00 
7£,22,00,00,£2,22,00,00,ff,?£ 
00,00, 2%,2£,00,00,22,22,00,00 
2£,22,00,00,72,£2,00,00,7£,8% 
00,00,38,22,00,00,08,2,00,00 
07,££,00,00,00, f,80,62,b0,00 
00,00,.00,00,00,00,.c0,00,00,00 
<0,00,00,00,18,00,04,00,28,00 
04,00,18,00,06,00,28,00,07,2e 
18,00,07,fe,27,?0,07,£6,28,00 
06,00,28,00,04,00,£5,00,04,00 
28,00, 00,00, £8,00,00,00,e0,00 
00,00,c0,00,00,00,00,00,00,00 
00,00,01,20,00,00,01,22,00,00 
01,24,00,00,01,26,00,00,01,28 
00,00,01,28,00,00,01,20,00,00 
01,2e,00,00,01,30,00,00,01,32 
00,00,01,34,00,00,01,36,00,00 
01,38,00,00,01,38,00,00,01,3e 
00,00, 01,38, 00,00,00,e0,00,00 
00, 2,00, 00,00,4,00,00,00,e6 
00,00, 00, e8,00,00,00,ea,00,00 
00,e6,00,00,00,ee,00,00,22,2£ 
FR, fe,76,01,e6,6f,be,00,66,03 
36,60,33,00,66,03,33,c0,33,00 
60,03, 81,81,36,00,60,03,31,8c 
36,00,60,03,31,80,33,00,60, fb 
31,81,33,00,38,18,18,18,18,18 
18,00,30,66,06,16 ‚30,60, 7e,00 
32,66,06,10,06,66,30,00,66,66 
66,38 ,06,06,06,00,7e,60,70,06 
06,06, 70,00, 30,60,60,70,66,66 
30,00, 70,00, 00,18,18,30,30,00 
3066,66, 36,66,66,36,00,30,66 
66,38,06,06,30,00,30,66,66,66 
66,66, 36,00,00,31,58,75,78,75 
58,31,00,0£,86,8b,81,8b,a6,0f 
70,80,34,67,64,80,80,80,80,9% 
5c,d8,80,80,80,b4,32,61,10,88 
80,80,98,38,70,84,80,a4,83,12 
3b,42,48,80,80,32,74,24,00,80 
80,97,40,68, 20,84,80,12,34,40 
e4,80,bf ,b£,47,00,2f,e8,80,80 
01,38,20,26,86,60,82,11,40,e8 
80,80,0f,20,00, £7,0,a0,80,9? 
30,02,cb,ba,80, 95,4, ?d,c0,.9 
99,6,47,19,10,84,80,97,e?,cc 
23,80 ,b0,94,8b,48,04,40,bf ‚ac 
aB,af,0f,08,08,87,90,b7,ef,f2 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


L) DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dara 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Y DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Data 


14,20,80,a7,12,13,00,28,92,87 
08,f1,08,57,80,2,27,07,20,d5 
€9,58,93,b0,86,d7,ca,dfb0,9% 
d3,e1,40,63,94,09,c1,02,?e,d0 
80,67,b0,17,£1,08,98,97,ce,be 
df,00,a7,c5,d0,e5,0c,be,d7,40 
ec,80,53, £f,08,b7,e5,02,88,9b 
17,28,48,80,97,bd,£7,23,28,90 
99,09, 2a, 24,08, 97,98 ,ad,db,eb 
0,41,82,04,25,24,ba,ae,b5,d9 
a7,00,07,e9,48,bf,a3,a6,e?,00 
82,89,95,bf,db,de,d6,b0,84,27 
#1,13,82,b0,9,07,c0,42,00,b8 
94,b0,bf,b?,e0,e5,ac,a2,b?,e7 
e0,49,08,00,87,c4,df,eb,d8,b3 
7,80,87,48,bc,af,b8,07,c1,b8 
eb,be,20,93,b£,e0,df,c8,b2,b& 


©0,47,89,40,84,07,c8,cf,d2,ce 


09,b6,bf,df,ea,d5,bf,c5,c2,d7 
do,cf,09,0?,c?,c0,bb,dd,dd,ci 
b3,c0,ab,07,cf,cd,b6,63,59,c8 
09,00,b4,53,05,ch,03,04,02,a4 
e0,ct,d3,08,d6,00,bf,47,cd,ct 
43,00,03,67,40,47,c0,ba,b3,ce 
d8,47,e0,db,06,b8,bd,db,d4,c6 
b4,b8,b5,08,d7,03,b0,af,bb,e0 
@8,06,08,b3,b4,cf,d2,ca,03,c5 
©0,03,d3,d4,43,02,bo,bf,ed,äf 
d0,c0,af,b?,d8,d1,03,bf,b7,b0 
e7,47,80,03,67,b8,cb,d0,de,d3 
b8,be,c5,d0,43,b?,e0,bf,bf,c& 
0d,03,cc,c1,cb,d3,0d,40,0f,c9 
c0,bf,ba,cc,c?,c8,07,bf,ch,d7 
&0,d0,bd,b5,06,c4,c0,c?,b9,b0 
ef,09,c8,c8,03,00,03,02,c8,05 
08,07,05,04,04,07,08,02,cb,46 
‚ed,ca,cb,cb,d6,43,04,0a,d3,cb 
ce,c9,ca,ca,bd,c8,d3,05,04,05 
00,04,bf,e1,04,bf,c0,07,06,c8 
03,03,08,07,05,08,0f,40,cf,ch 
00,d3,08,04,bä,cb,d0,bf,c2,ct 
07,04,07,01,04,09,04,08,07,02 
ef,of,dO,of,eb,c8,cb,cH,ch,bf 
03,08,07,04,07,cb,d0,cf,d1,d0 
0f,45,48,42,c0,0d,07,08,c?,c7 
e8,c4,bb,c8,c9,c0,be,b3,b0,b7 
bf,c8,bf,bd,c0,cb,d1,d8,ca,c0 
©7,04,d0,02,05,08,07,09,d4,45 
40,0f,07,08,cb,07,ca,c9,bb,be 
be,06,00,09,09,03,02,04,07,02 
04,03,b8,b?,03,09,cf,07,c1,cb 
of,d2,0f,03,06,05,c9,0f,ce,cc 
cb,09,ce,cb,07,cc,cb,c2,c6,09 
©9,0b,03,04,06,05,00,d3,00,d2 
cb,c6,0d,cb,08,0d,05,04,07,09 
&0,07,03,08,07,00,43,08,00,06 
03,08,07,08,0n,bf,c2,cd,cb,cd 
05,01,08,cb,00,dB,ca,06,0f,cb 
04,07,06,00,02,06,08,03,04,cb 
09,04,07,03,00,03,01,04,bd,bb 
06,07,04,07,09,08,0b,07,d0,0f 
09,48,43,&0,0f,0b,ca,cb,c9,d0 
04,09,d0,08,00,04,02,00,03,bf 
02,07,03,08,07,03,00,07,08,0d 
ob,d2,cd,cb,d0,0f,c0e,d4,d5,d0 
45,0f,40,43,05,08,07,05,00,05 
60,07,02,00,03,bd,cO,bf,be,c2 
63,03,02,03,08,cb,c5,ca,cb,c8 
©0,0b,04,c0,00,08,04,03,04,09 
©7,40,0f,cb,d0,08,04,04,07,04 
e7,05,08,0b,0b,d0,cd,c5,cc,cd 
08,d1,09,00,04, 4,40, cf,09,ce 
0b,09,ce,09,c8,ch,c7,cc,cd,cb 
d0,cd,08,0f,07,04,07,01,02,c2 
ba,c2,bd,b9,04,bf,c3,cb,c9,cc 
04,07,d0, 28,08, c0,0b,c0,43,d1 
d0,cf,cb,40,43,09,c8,cb,c4,07 
63304,07,01,08,09,03,08,09,05 
00,03,08,07,b2,04,07,06,ca,ch 
09,08,09,09,0f,c2,cB,cf,cb,cc 
ef,0d,d0,cb,c2,43,c?,ca,d5,d3 
@0,08,07,00,07,05,08,bf,c0,bf 
bd,c0,03,00,08,05,c0,08,03,03 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Dara 


&b, 09,00, 0f,cb,d0,d2,0d,&4,ce 
©e,d5,0,d2,43,0f,d0,c2,07,c8 
e6,01,08,03,04,07,01,00,05,c6 
08,09,01,08,03,05,08,07,c8,cb 
05,08,04,04,08,05,03,08,0b,cc 
&3,41,02,47,d4,dc,09,85,d0,43 
&2,47,43,48,46,42,42,0f,00,cc 
©6,20,07,bd,c0,dF,67,00,bb,b9 
(c4,b£,00,06,be,c0,bf,be,c0,c3 
be,c8,09,08,08,07,08,0f,09,c9 
04,07, 00,0b,08,d2,0f,40,47,41 
00,af,09,40,04,03,00,07,c8,cc 
7,08,0b,07,0B,cb,c7,cc,00,09 
©8,09,01,07,03,37,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
00,00, 00,00,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
00, 00,00, 00,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,00,, 
00,00, 00,.00,00, 00, 00,00,00,00 
00,00, 00,00,00,00,00,00,00,00 
00,00,00,00,00,00,00,00,00,00 
00,00,00,00,00,00,00, 00,00,00 
00,00, 00,00,00,00, 00,00,00,00 
00,00,03,e0,00,00,01,53,00,00 
00,00,00,00,18,8e,00,00,18,80 
00,00,18,72,00,00,18,64,00,00 
18,56,00,00,18,48,00,00,18,3a 
00,00, 18,20,00,00,18,1e,00,00 
18,10,00,00,17,36,00,00,17,20 
00,00, 17,24,00,00,17,10,00,00 
17,12,00,00,17,08,00,00,16,10 
00,00, 16,40, 00,00, 16,08,00,00 
16,02,00,00,16,56,00,00,16,ue 
00,00,16,84,00,00,16,90,00,00 
16,94,00,00,16,80,00,00,16,84 
00,00,18,70,00,00,16,74,00,00 
16,6a,00,00,16,62,00,00,16,5a 
'00,00,16,52,00,00,16,48,00,00 
16,40,00,00,16,36,00,00,16,20 
00,00, 16,24,00,00, 16,10,00,00 
15,en,00,00,15,e0,00,00,15,ce 
00,00,15,60,00,00,15,7e,00,00 
15,34,00,00,14,20,00,00,14,e2 
00,00,14,42,00,00,14,02,00,00 
14,06,00,00,14,86,00,00,14,a0 
00,00,14,98,00,00,14,88,00,00 
14,86,00,00,14,78,00,00, 14,68 
00,00,14,66,00,00,14,58,00,00 
14,58,00,00,14,48,00,00,14,34 
00,00,14,26,00,00,14,26,00,00 
14,20,00,00,14,12,00,00,13, a 
00,00,13, £2,00,00,13,e6,00,00 
13,4e,00,00,13,48, 00,00,13,0 
00,00,13,04,00,00,13,b0,00,00 
13,54,00,00,13,0,00,00,13,26 
00,00,13,98,00,00,13,92,00,00 
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13,84, 00,00,13, ‚68 
00,00,13,62,00, ‚oo 
13,48,00,00,13, 36 
00,00,13,28,00, co 
13,04,00,00,12, f4 
00,00, 12,0,00, oo 
12,0,00,00,12, 80 
00,00,12,86,00, ‚00 
12,70,00,00,12,66,00,00,12,5e 
00,00, 12,58,00, ‚4e,00,00 
12,46,00,00,12, ‚00,12,38 
.00,00,12,34,00,00,12,28,00,00 
12,22,00,00,12,10,00,00,12,16 


00,00,12,10,00,00,12,06,00,00 
11, fa,00,00,11,ee,00,00,11,.6 
'00,00,11,e0,00,00,11,46,00,00 
11,08,00,00,11,c8,00,00,11,be 
‚00,00, 11,62,00,00, 11,82, 00,00 
11,a4,00,00,11,9e,00,00,11,98 
00,00,11,88,00,00,11,82,00,00 
11,76,00,00,11,66,00,00,11,64 
00,00,11,52,00,00,11,44,00,00 
11,3e,00,00,11,34,00,00,11,26 
00,00,11,18,00,00,11,12,00,00 
11,00,00,00,10,e8,00,00,10,48 
00,00,10, ce,00,00,10,58,00,00 


BEBSSRIERE 
SZERRERBAB 
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DATA 10,52,00,00,10,96,00,00,10,8e 
DATA 00,00, 10,82,00,00,10,76,00,00 
DATA 10,62,00,00,10,58,00,00,10,52 
DATA 00,00,10,46,00,00,10,38,00,00 
DATA 10,26, 00,00,10,18,00,00,10,08 
DATA 00,00,08,e0,00,00,0f,e4,00,00 
DATA 0,82,00,00,0f,0,00,00,0f,ae 
DATA 00,00,08,92,00,00,08,58,00,00 
DATA 08,78,00,00,02,66,00,00,08,54 
DATA 00,00,07,38,00,00,02,30,00,00 
0£,1e,00,00,0£,00,00,00, 08,20 


DATA 00,00,08,e8,00,00,08,d6,00,00 
DATA 0e,c4,00,00,08,88,00,00,08,a0 
DATA 00,00, 08,96,00,00,08,7a,00,00 
DATA 08,64,00,00,08,54,00,00,08,36 
DATA 00,00,08,18,00,00,04, f0,00,00 
DATA 0d,e0,00,00,0d,d8,00,00,04,d0 
DATA 00,00,04,06,00,00,0d,be, 00,00 
DATA 0d,86,00,00,04,a0,00,00,04,92 
DATA 00,00,0d,86,00,00,0d,7e,00,00 
DATA 0d,60,00,00,04,54,00,00,04,44 
DATA 00,00,04,38,00,00,04,24,00,00 


DATA 04,08,00,00,0d,02,00,00,00, u 
DATA 00,00,00,e8,00,00,00, 2, 00,00 
DATA 00,6,00,00, 06 ,08,00,00,06,be 
DATA 00,00,00,62,00,00,00, a8,00,00 
DATA 06,98, 00,00,00,86,00,00,00,74 
DATA 00,00, 00,58,00,00,06,50,00,00 


DATA 0c,38,00,00,00,20,00,00,00,18 
DATA 00,00,0b, £e,00,00,0b,#6,00,00 
DATA Ob,e4,00,00,06,2,00,00,0b,c0 
DATA 00,00,0b,84,00,00,0b,90,00,00 
DATA 0b, 84,00,00,0b,78,00,00,0b,5c 
DATA 00,00,06,54,00,00,06,42,00,00 
DATA 0, 30,00,00,06,14,00,00, 0b, 0c 
DATA. 00,00,06,02,00,00,0a,e6,00,00 
DATA 08,0,00,00,08,00,00,00,08,a2 
DATA 00,00,08,84,00,00,08,68,00,00 
DATA 04,52,00,00,02,48,00,00, 08,30 
DATA 00,00,08,34,00,00,08,20,00,00 
DATA 08,22,00,00,02,18,00,00,02,12 
DATA 00,00,02,04,00,00,09,f0,00,00 


DATA 09,22,00,00,09,86,00,00,09,d2 
DATA 00,00,09,c3,00,00,09,02,00,00 
DATA 09,ba,00,00,09,ae,00,00,09,6 
DATA 00,00,09,88,00,00,09,82,00,00 
DATA 09,78,00,00,09,66,00,00,09,36 
DATA 00,00,09,2e,00,00,09,18,00,00 
DATA 09,16,00,00,09,06,00,00,08, fa 
DATA 0000,08, 12,00,00,08,e8,00,00 
DATA 08,46, 00,00,08,d2,00,00,08,ca 
DATA 00,00,08,be,00,00,08,b2,00,00 
DATA 08,n6,00,00,08,98,00,00,08,96 
DATA 00,00,08,84,00,00,08,82,00,00 
DATA 08,72,00,00,08,68,00,00,08,62 
DATA 00,00,08,58,00,00,08,48,00,00 
DATA 08,40,00,00,08,36,00,00,08,20 
DATA 00,00,08,18,00,00,08,12,00,00 
DATA 07,28,00,00,07,2,00,00,07,0u 
DATA 00,00,07,02,00,00,07,48, 00,00 
DATA 07,02,00,00,07,80,00,00,07,u4 
DATA 00,00,07,92,00,00,07,7,00,00 
DATA 07,70,00,00,07,64,00,00,07,38 
DATA 00,00,07,18,00,00,07,12,00,00 
DATA 07,08,00,00,06,e4,00,00,06,ba 
DATA 00,00,06,8,00,00,06,74,00,00 
DATA 06,54,00,00,06,48,00,00,06,44 
DATA 00,00,06,20,00,00,05, 04,00,00 
DATA 05,e8,00,00,05,44,00,00,05,18 
DATA 00,00,05,12,00,00,04, £8,00,00 
DATA 04,20,00,00,04,88,00,00,04,e0 
DATA 00,00,04,44,00,00,04,08,00,00 
DATA 04,ae,00,00,04,94,00,00,04,7a 
DATA 00,00,00,42,00,00,00,02,00,00 
DATA 00,64,00,00,00,5e,00,00,00,58 
DATA 00,00,00,52,00,00,00,40,00,00 
DATA 00,46,00,00,00,40,00,00,00,3a 
DATA 00,00,00,34,00,00,00, 18, 00,00 
DATA 00,00,00,00,03,2 
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Listing 1. (Schluß) 


AMIGA-SONDERHEFT : 


Krieg der Sterne 


Es war einmal in ferner Zukunft... So wie 
der Film »Krieg der Sterne« könnte auch 
»Fantasy« beginnen; ein tolles Spiel, das in 
einer weit vor uns liegenden Zeit abläuft. 


von Holger Hoffmann 


irschreiben das Jahr 6533. In einer Welt aus 59 Planeten 
kämpfen einige Planeten um die Vorherrschaft. Während 
auf den Heimatplaneten die Produktion auf Hochtouren 
läuft, beginnen die Herrscher andere Planeten zu erobern, Lassen 
Sie sich von »Fantasy« in diese Welt entführen. Aber nur, wenn Sie 
genügend Zeit haben, denn Fantasy wird Sie lange fesseln. 
Nach dem Abtippen (siehe Kasten mit Hinweisen), kann das 
‚Abenteuer für ein bis vier Spieler beginnen. Fantasy wird, bis auf 
die Eingabe von Zahlen und Namen, komplett mit der Maus ge- 
steuert. Am rechten Bildschirm finden Sie jeweils die Menüpunkte 
in Form von Schaltern. 
MM Spiel laden: Hiermit laden Sie ein vorher gespeichertes Spiel 
von Diskette. Der Dateiname wird mit Pfad (z.B. DFt:Welten/ 
Welt__2) eingegeben. Anschließend beginnt das Spiel. 
I Neues starten: Fantasy kann mehrere Welten verwalten. Für je- 
de Welt besteht die Möglichkeit, mehrere Spiele zu speichern. Mit 
diesem Menüpunkt starten Sie ein neues Spiel auf einer schon ge- 
nerlerten Welt (siehe auch »Welt kreieren«). Nach dem Anwählen 
erscheint ein Fenster, in dem Sie nun den Namen der gewünschten 
Welt eingeben. Danach müssen Sie noch die Fragen nach der Zahl 
und den Namen der Spieler beantworten. 
m Welt kreieren: Sie können mehrere verschiedene Welten anle- 
gen. Nach Anwahl dieses Schalters zeichnet Fantasy dreimal ein 
Dreieck in die linke obere Ecke des Bildschirms. Nach diesem Vor- 
gang geben Sie den Namen zur Speicherung auf Diskette ein. 
m PRG - beenden: Dient zum Verlassen des Spiels und des Basic- 
Interpreters. Wenn ein Spiel geladen oder ein neues gestartet wur- 
de, erscheint das eigentliche Spielfeld. 
iM Bauen: Es erscheint ein Untermenü mit neuen Schaltern: 
- Kriegsschiffe: Pro Schiff müssen auf dem Heimatplaneten (in der 
Grafik von einem Kreis umgeben) drei Geldeinheiten sowie vier 
Rohstoffeinheiten vorhanden sein. Sie erhalten die neuen Schiffe 
in der nächsten Runde. 
- Transportschiffe: Zum Bau benötigt man pro Schiff eine Geld- 
und drei Rohstoffeinheiten. 
- Gewerbezentrum: Um von einem Planeten Rohstoffe abtrans- 
portieren zu können, muß man bestimmte Lizenzen zahlen und 
Verladeanlagen einrichten. Das kostet 50 Geldeinheiten. 
- Industriezentrum: Für die »lächerliche« Summe von 500 Geld- 
einheiten können Sie Ihren Heimatplaneten (Produktion) verlegen. 
- Weiter 
Dient zur Rückkehr ins Hauptmenü. 
I Angriff: Hier zeigt sich die komfortable Seite von Fantasy, Nach 


Holger Hoffmann 


Anfang 1984 stieg Holger Hoffmann in 
den C64-Boom mit ein. Nach wenigen 
Wochen erfolgte der Umstieg von Basic 
auf Assembler. Nach dem Preissturz des MM 
‚Amiga legte sich der Autor einen Amiga 
500 zu. Auch hier erfolgte der Start in Ba- 
sic. Neben Assembler arbeitet Holger Hoff- 
mann noch mit C und Modula-2. Sein Stu- 
dienwunsch ist Mathematik-Informatik, ,, 
sein nächster Hardware-Wunsch 
eine Festplatte. 
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SPIELE 


Bitte uanien | 
Spiel laden 
Neues starten 

Heit kreieren | 
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Geuerbezentru 
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Heiten 
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Heiter 


Bild 1. Die Menüstruktur von »Fantasy«. Drei Untermenüs gibt 
es. Das unten stehende Menü erreichen Sie über »Beenden«. 


dem Anklicken des Schalters wählen Sie den Planeten, von dem 
Sie Schiffe losschicken wollen, per Mausklick an. Danach bestim- 
men Sie den Zielplaneten ebenfalls durch Anklicken. Nun verlangt 
Fantasy die Eingabe, wie viele Schiffe starten sollen. Bevor Sie ver- 
suchen einen Planeten zu erobern, sollten Sie ein einzelnes Schiff 
losschicken. Ist keine Bevölkerung vorhanden, besetzen Sie den 
Planeten sofort. Andernfalls baut die Besatzung einen Spionage- 
ring auf. Ob der Angriff erfolgreich war, zeigt sich in der nächsten 
Spielrunde, 

I Transport: Genau wie bei den Angriffen, legen Sie den Start- 
und Zielplaneten durch Mausklick fest. Zusätzlich zur Anzahl der 
zu verwendenden Schiffe, geben Sie noch die Zahl der zu transpor- 
tierenden Rohstoffe ein, Pro Schiff ist eine Einheit möglich. Wichtig 
ist, daß beide Planeten Ihnen gehören müssen. 

M Staats Info: Das Programm zeigt wichtige Daten über Ihr Imperi- 
um an. Bei der Zahl der Schiffe ist zu beachten, daß Fantasy die in 
diesem Spielzug schon bewegten Schiffe nicht berücksichtigt. 

m Planeten Info: Nach Anklicken eines Planeten erhalten Sie Infor- 
mationen. 

I Grafik: Natürlich kann sich niemand merken, wieviel Schiffe und 
Rohstoffe wo zu finden sind. Darum zeigt Ihnen Fantasy solche In- 
formationen grafisch an. Im Untermenü gibt es folgende Punkte: 
- Entfernungen: Durch mehrmaliges Anklicken des Schalters wäh- 
len Sie die drei Einstellungen. 

- Lager: Alle Planeten mit über 30 Einheiten an Rohstoff werden 
blau eingefärbt. Bei mehr als 150 Einheiten wird er grau dargestellt, 
- Transportsch.: Blau bedeutet mehr als 10, grau mehr als 50 Trans- 
portschiffe auf dem Planeten. Ansonsten ist der Planet braun. 

- Kriegsschiffe: Hier gelten dieselben Angaben wie bei den Trans- 
portschiffen 

- Planet: Bei hohem Steuereinkommen ist der Planet blau, bei ho- 
hem Rohstoffvorkommen grau, 

- Weiter: Rückkehr ins Hauptmenü. 

I Revolution: Hin und wieder finden auf den Planeten Revolutio- 
nen statt. Um auf einem fremden Planeten eine Revolution zu be- 
günstigen, können Sie Geld investieren. Klicken Sie dazu einfach 
auf den entsprechenden Planeten. Gelingt die Revolution, gehört 
der Planet anschließend Ihnen. Damit ein Aufstand überhaupt 
möglich ist, muß sich ein Spionagering auf dem Planeten aufhalten 
(siehe auch »Angriff«). Pro Runde findet nur ein Aufstand statt. 
Wählen mehrere Spieler diesen Punkt an, so findet der zweite eine 
Runde später statt. Noch eine schlechte Nachricht: Auch auf den 
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von Ihnen besetzten Plansten kann ein Aufstand stattfinden. Ist er 
erfolgreich, verlieren Sie den Planeten. 


I Beenden: Im Mehrspielermodus übergeben Sie hiermit die 
Kontrolle an den nächsten Herrscher. Damit alle anderen Mitspieler 


wegsehen können, erscheint anschließend ein Fenster, in dem der 


nächste Herrscher genannt wird. Nach dem letzten Spieler er- 


scheint ein Menü, in dem man laden und speichern kann. Bei nur 
einem Spieler erscheint dieses Menü sofort. 


Save Game: Speichert den aktuellen Spielstand. 
I Load Game: Lädt ein vorher gespeichertes Spiel. 
I Ende: Führt zu dem am Anfang erklärten Menü zurück. 
I Weiter: Die nächste Spielrunde wird gestartet. 
Das Spiel endet, wenn nur noch ein Herrscher seinen Heimat- 
planeten besitzt. Der Einspielermodus dient nur zu Trainings- 


zwecken und endet nicht, Aber auch alleine macht Fantasy viel 


Spaß und außerdem lernt man so Tricks und Kniffe, damit man 
beim nächsten Turnier der Stärkere ist. kn 


Hinweise zum Abtippen 


Damit Sie Fantasy spielen können, müssen einige Vorbedingungen 

erfüllt sein: 

- Folgende Zeichensätze müssen vorhanden sein: 
diamond 20 opal 9 sapphire 14 

Dies ist auf alle Fälle gewährleistet, wenn Sie von Ihrer Original- 
Workbench-Diskette starten. 

- Die folgenden Dateien müssen im selben Verzeichnis stehen wie 
‚Amiga-Basic und das Programm »Fantasy«: 
intuition.bmap graphics.bmap aiskfont.bmap 
Fantasy benötigt viel Speicher. Bei Amigas mit 512 KByte RAM kann 

das zu Problemen führen. Diese lassen sich jedoch umgehen. Schalten 

‚Sie den Computer aus, damit erreicht man, daß nach dem Einschalten 

der gesamte Speicher zur Verfügung steht. Schließen Sie alle CLI- 

Fenster. Starten Sie das Programm von der Workbench aus durch 

Doppelklick auf das Programmsymbol. Starten Sie kein anderes Pro- 

‚gramm. Auf keinen Fall dürfen Sie das CLI-Kommando ADDBUFFERS 

einsetzen. 


Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: Basic 
Bemerkung: siehe Kasten 


Progranmautor: 
ANKO CLEAR, 520006 
2 &2 DEOLARE FUNCTION opendiskfontk 
3 mA DECLARE 
Adf DECLARE F 
3 AN DEOLARE 
6 HU LIBRARY "Intuition. Library” 
77 LIBRARY "graphies.library 
@ px LIBRARY "diskfont.Library 
AP COSUB font:00SUB \NDOKIZE TIMER:GOSUB sur 

30.At FOR x= 0 TO 7:PALET ,0,0:NERT 

Ai mo DIN ag(828) ‚g1(4) „g2(4) ,81(4),82(4) 

{2 O4 DIN kx(59) ‚ky(39) ‚k1(4,50) „K2(4,50) »K3(4,50) ‚de1(4,50) ‚heil 

4,50) „462(4,50) 

313 Pb. DIM 10(59) ‚n0(39) ‚12(39) „ah(59) ‚r(59) 

14 tQ DIN na(59) st(4,59) ‚nas(4) 2214) ,23(4) 6414) 1504) ,v(4) 

39 KL DIN a1(20) ‚a2(20) ‚23(20) ‚a4(20) ‚re(59) 

46 zU DIN st8(5) ve(600)‚ha(3) ‚hein(4),f1(4),g24(3200) 

NAH st$(0)="Existenz bekannt “:st$(1)="bekannt” 

18 00. 5t8(2)="besitzend”:st$(3)="gewerblich nutzend” 

19.aX ell mutzend” 
20.87 )=35:37(3)=38 

Bi 08 f2(0)=2:#3(0)=1:G0SUB planeten: 
22 12 na$(0)="Ureinschner” 

23 U4\ neus:PALETTE 0,0,0,0 

@4 nd PALETTE 1,1,1,1:PALETTE 2,0,0,.6:PALETTE 3, .5,.5,1 
25 UN PALETTE 4,0,0,1:PALETTE 5,.7,.3,0 

26 ia PALETTE 6,.5,.5,.5: PALETTE 7,1,0,0 

27 a5 | ON ERROR COTO 
a2 start: 


jolger Hoffeann 


Programmname: Fantasy 


42 BI 
43 612 
Da 
45 4 


47 0a2 
4BnR 
49 0X 
»0 m 
51 MA 
52 up 
Era 
Kama 
55 812 
56 pL 
57 Ne 
58 av 
2 
son 
su.qu 
62.150 
63.082 
64 280 
65 36 
66.10 
&7 122 


‚68.260 
69 bR 
70% 
dc 
72 mi2 
73.00 
m va 


75 0P0 « 


76 wD2 
Tr 20 
78 234 
3a 
‚80 Bf2 
‚81 500 
‚82 2b 
83 a6 
84 Nz2 
85 AZ 


86 Erd 
87 Kp2 
3849 
N 
Ns 
9ı En 
92 W 
3 200 
94 rv2 
.M 
a) 
st 
38 4a 
9 ır 
100 14 
01 ya 
302 83 
103 48 
104 Wr 
105:.Xf0 


‚GOSUB menuel 


GOSUB eingabe 

IF wa=1 THEN GOSUB 1od 
w 

IF wa=2 THEN GOTO neu 
IF wa«3 THEN GOSUB grafik:G010 start 

IR ward THEN MENU RES: int:WINDOW CLOSE 1:SCREEN C 
LOSE 1:END 

GOTO ww 


s$<>"" THEN anfang:ELSE COTO w 


1 TO spieler 
(heia(1))<>1 
g1(1)»0:g2(1 
na$» "Runde ; 


STRS(Jehr) 


na$)<12 THEN naßena$+” ";C0TO wud 
” "na3(1)+CHRF(O) 
CALL SetWindowTitles(WINDOW(7) „SADD(na$) ‚0) 
GOSUB erf 
CLS:GOSUB menue2 
IF spieler<>1 THEN GOSUB nex 
di=f1(1):COSUB dis 
ww: 
GOSUB eingabe 
IF m = 8 THEN GOIO ww3 
IR m»4 THEN GOSUB einkon 


IF (2<>0) AND (va<>0) THEN ON wa GOSUB bauen,senden,t 
ransi, Info, info, info,revo, Info, info 
GOTO wı2 
ww3: 
pshein(2):eh(p)=sh(p)+g1(1 
nExT 1 
‚Jahrsjahrel 
COLOR 1,0:CL5:FOR p 
a<>0 AND st( 
a(p)+ro(p) 
NEXT. 
na$e "Fantasy 
CALL Setkind 


r(p)=tr(p)+g2(2) 


a)sv(la)+mo(p) :2a(p)=1 


Holger Hoffmann "+CHR$(0) 
(WINDOL(7) ‚SADD(na$) ‚0) 


82(1)=0 THEN wı8 
70 sz(1)-1 
«):1a(p)=1a(p)+k3(1,#) 


FOR 


NEXT w 


ANDL1) 85841) 
1 10 59: IF na(x)=0 THEN sh(x)=sh(x)+INT((mo(x)+ro( 


x))/10) 
1F ne(x)>re(pl) THEN plex 


F ve(p1)=0 THEN zusiND(1) ELSE zus1 
h=0:FOR xe1 TO spieler:IF plehein(x) THEN hei 
NEXT x 
GOSUB menue7 
IF (zu>.4) THEN GOSUB rev 
wu6: 
GOSUB eingebe 
IF was1 THEN OOSUB sav 


3) THEN 6070 anfang 
SCREEN CLOSE 1:WINDOW LOSE 1 
6010 sieg 

dars: 


Bitte mit dem Checksummor (Seite 143) eingeben. Der Checksummer und dieses Listing befinden sich auf der Programmservice-Diskette dieser Ausgabe (siehe auch Seite 34) 


SRWUHOMESOHPUTERWORLS. COM 


AMIGA-SONDERHEFT 9 


SpieLe 


KOSURN atasıı:ır disz Tuen ai-ı SBYHN] mn$(3)= "Transport e 
407 86 GOSUB dis:RETURN 188 14 mn$(5)="Planeten Info = 
108 Ir planeten: ÜBS FL mnS(7)= Revolution ":mm8(8)="Beenden ö 
109.06 DATA 0,0, 0,0,0 100 NM me = 8:G0SUE menue: RETURN 
0 pR DATA „0 391 ID) menue3: 
Al gr Data ‚0 192 ff mm$(1)="Spiel laden ":mm$(2)="Spiel sichern ” 
312 38. Data ‚0 193 #7 ne = 2:GOSUB menue:RETURN 
113 62 Data 5 194 menued: 
4 ar Data ‚0 195 WU mn$(1)= Neuanfang ":mm$(2)="In Ordnung * 
AS Ry DATA ‚0 £ 
116 aX DATA A GOSUB menue:RETURN 
UF RT Dan ‚0 198 No menues: 
AS ER DATA ‚0 199 of. mn$(1)«"Kriegsschiffe ":nm$(2)="Prachtschiffe ” 
119 08 DATA ‚0 200 22 nn$(3)="everbezentrun”:un$(4)="Ind.Zentrum 
120 NL DATA ‚4 201 wL nn$(5)="eiter L 
au Data „2 202 4X me=5:G0SUB menue:RETURN 
122 KU Data „0 203 fa menue 
aaa a Data ‚0 204 67 mn$(1)="Seve Game ":mm$(2)="Load Gene « 
aaa yE Dara „0 209 91 un$(3)-"Ende "ınn$(4)« Weiter £ 
125 9m DATA X) 206 2j mesk: GOSUB menue:RETURN 
126 mL DATA 6,6,0,0,0 207. 16 menue 
ET Ca DATA 0,1,6,1,6,6,6,6,6,6,6,6,6,0,6,0 206 vA nn$(1)="Entfernungen ":mm$(2)="Lager r 
128 JM Data ‚0,6,6,0,6 209 JJ mn$(3)="Transportsch. 
129 5x Data ‚6,6,6,0,6,6 210 01 nn$(5)="Planet en$(6)= "Weiter 
20 de DATA 0,1,6,6,6,1,6,8,6,6,0,6,0,6,6,0 211 HO me=6: GOSUB menue:RETURN 
Wi yd DATA 0,0,0,6,1,6,6,6,6,6,8,6,6,0,0,0 212 eb mene: 
Ba DATA 0,0,0,0,0,0,6,6,6,6,0,0,0,0,0,0 Bias COLOR 1,4 
333 26. DATA 0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0 214 no LINE (506,2)-(630,240),7,bf:LINE (509,4)-(627,20),3,b£ 
0,0,0,7,7,7,0,0,0,0,7,7,7,0,0,0 215 F4 LINE (512,6)-(624,18),4,be:LINE (510,20)-(626,20),2 
0,7,7,7,0,0,0,0,0,0,0,0,7,7,7,0 216 v| LINE (511,19)-(626,19) ,2:LINE (625,20)-(625,5) 2 
7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7 ZiT a5 LINE (626,20)-(626,4) ‚2:LINE (627,20)-(627,4),2 
7,7,0,0,0,0,0,0,0,0,0,0,0,0,7,7 ZB UK FOR t= 1 TO. ne 
0,7,7,7,0,0,0,0,0,0,0,0,7,7,7,0 Q19 Te2 LOCATE 2,65: PRINT na$(t) 
0,0,0,7,7,7,0,0,0,0,7,7,7,0,0,0 220 a0 GET (510,4)-(626,20) ‚2% 
0,0,0,0,0,0,7,7,7,7,0,0,0,0,0,0 2 In LINE (510,4+tx18)-(626,20+:818),0,b£ 
103 222 U6 FT (S10,44t818),a5 
Ne FoRye 1108 223 OpO NEXT t 
123 0n& FOR x= 110 16 2% uB LOCATE 2,65: PRINT "Bi: 
144 166 READ a:PSET(1688+x,7),= 225 Av wa=0:m=0:C0LOR 1,0 
145 aX0 NEXT x,y,s 226 83 LINE (512,16+wex18)-(622,17+wa#18) ‚1,bf 
M6 zn GET (1,1)-(16,8) a1:GET (17,1)-(32,8) ‚a2 227 id RETURN 
a7 10 GET (33,1)-(48,8) 7 (49,2)-(64,8) a4 ZZe WO zufall: 
148 It RETURN 229 08 FOR 2 = 110 59:zu=RND(1) 
a9 Fo grafik: 230 Wi2 IF zu >.75 THEN ro(s)=INT(RND(2)#10)415 ELSE zo(2)a1HNT 
150 08 | COLOR 1,0:C015:2=1 (RND(2)*10) 
351 &R FOR xe 30 10 450 STEP 70 23169 IF eu <.15 THEN mo(z)sINT(RD(1)48)+8 ELSE mo(2)=1+INT(R 
Wa k22 FOR y = 20 70 220 so ND(1)#6)+2 
A03 Kkk Kxle)sx+AND(1)#18)-9:ky(a)=y+(RND(1)*12)-9 232 6X sh(z)=INT((mo(z)+ro(z)x2)x(RND(1)/5+.9)) 
Usa > St(,2)=0:2.2+1 23 25 tr(e)s0:na(2)=0:ne(p2)=0:1n(pl)=O 
199.1g0 NEXT yıx 234 st(1,5)=0:8t(2,2)=0:51(3,: t(4,2).0 
156 5a FOR x= 65 10 415 STEP 70 235 miO NEXT z 
137 062 FOR y = 45 TO 195 STEP 50 236 Am RETURN 
VB Na  Kxla)exe(AND(1)#26)-13:ky(2)eyrehND(1)x26)-13 237 ms eingebe: 
159 R 238 hi n-MOUSE(0) 
360 av NEXT y,x 239 89 IF n<=0 THEN eingebe 
161.60 hhel:1el:5p220:5p1=26 240 XD. yaMOUSE(2) :x=OUSE(1) 
162 t2 FOR en = 1 TO 3:apl=spi+(6-en) 241 20 IF x>507 THEN ein2 
163 @02 FOR x» 1 70 59: FOR y= x 10.59 2 FO 20 
164 And PSET(x,y) ‚en 243 28 FOR he 1 70 59 
165 #H sa«SQR(((Kx(x)-kxly))/2) 2 Ey(z)-Krl5))2) au 122 IF x<kxlh)+10 AND x>ia(h)-10 AND y<kylh)+5 AND y>kylh 
166 KT IF (ss<spi) AND (ss>sp2) THEN ve(hh)=x:ve(hh+1)=yihhe )-5 THEN m=0:2=h:he86 
hhe2: 245 NO NEXT h 
167 u22 NEXT y,x 246 85 IF z= O THEN eingebe ELSE GOTO ein): 
168 nb hafen)=hh-2 2U7 Ku einz: 
169.060 NEXT en 248 IM 2=O:meINt((y-4)/18):IF (m>me) OR (m<O) THEN 0010 eingebe 


349 2Y LINE (512,16+wa®18)-(622,17+wa#18),4,bf: LINE (512,164m818) 


471 2L puty: -(622,1749418) ‚1,bf:vasn 
472 0q FOR he 1 10 59 250 83 ein: 
173 742 IF POINT(kx(h) ‚kylh))=@ THEN putl 251 Pi RETURN 
Wa FL IF st(1,h)<2 THEN PUT (kxlh)-B,kylh)-4) 84, PSET:COTO put 252 IX wieviele: 
ı 253 06 COLOR 1,0: WINDOW 2,”",(200,100)-(440,150) 2,1 
75 1D IF ro(h)>15 THEN PUT (kx(h)-8,ky(h)-4),a3,PSET:GOTO putl 254 IN PRINT:PRINT ” - Wieviele Mitspieler -" 
We HB IF no(n)>8 THEN PUT (Kx(h)-8,Ky(h)-4) ‚a2,PSET:GOTO putı 259 9% FRINT:PRINT” (1-4) *5:COLOR 7,0:INPUT spieler 
iz ur PUT (kx{h)-8,ky(h)-4) ‚al,PSET 6 WI IF spieler <1 THEN spieler = 1 
178 sU0 puti: 257 WE IF spieler >4 THEN spieler = 4 
179 2X | NEXT h 258 uf spieler = INT(spieler) 


RETURN 259 64 FOR h = 1 10 spieler 

menuel: 260 8e2 COLOR 1,0: CLS:PRINT 

mn$(1)="Spiel leden 1":mm$(2)="Neues starten ” 261 7e PRINT” Name des ";h;”. Spielers” 
mn$(3)="Welt kreieren ":un$(4)="PRG - beenden ” 262 aD, PRINT 


GOSUB menue:RETURN 


Listing. »Fantasy« versetzt Sie in das Jahr 6533. 
Erobern Sie neue Welten. 


mm$(1)="Bauen "uns (2)="Angriff = 


zus1+INT(RND(1)#59) 

IF na(zu)<>0 THEN vier 

28-0 

FOR re 1 TO ha(1):IP ve(r)szu THEN zasze+l 

NEXT 7 

IF za<3 THEN wiel 
na(zu)=h:st(h,zu)=4:hein(h)=zu:sh(zu)=40 

IF ro(zu)<15 THEN la(zu)=60:ELSE la(zu)=ro(zu)®2:sh(zu)= 
Et) 

IF mo(zu)<10 THEN v(h)=80:ELSE v(h)=30:sh(zu)=30 
f1(h)»1:f2(h)=2:f3(n)=1:f4(n)=10+INT(RND(1)"5):25(h)=1 
IF zo(zu)<& THEN ro(zu)=8 

IF no(zu) <6 THEN mo(zu)=6 


<2 OR s1(1)>50 THEN BEEP:RETURN 
‚INE (64#8,24#8)-(630,28#8) ‚7,bf 
LOCATE 25,65: PRINT "Schiffe senden”; 
I) LOCATE 26,65: PRINT "von NR. ";e 
LOCATE 27,65:PRINT "zu NR. 
ziez 
GOSUB eingabe 
IF (2°0) OR (zs21)THEN LINE (64#8,2408)-(630,28%8) ‚7,b£:RET 
URN 
PRINT 2:COLOR 1,0 
er=SOR(((kx(z)-Kx(21))/2)2+(Ky(z)-kylei))2) 
IF er > sr(fi(1)) THEN BEEP:RETURN 
GET (146,89)-(454,182) ‚gf& 
WINDOW 2, "Schiffe senden :”,(150,100)-(450,180),0,1 
n$=" Von Planet NR.”:GOSUB text:PRINT 21 
A PRINT " gu Planet NR.”;2:PRINT 
PRINT " Stationierte Kriegsschiffe :”;sh(z1):PRINT 
PRINT ” Wieviele ";PRINT ” Kriegsschiffe 
GOSUB of:INPUT al:IF a1<O THEN al=0 
IF al>sh(z1) THEN al«sh(21) 
dei(1,s1(1))=2:hel(l,s1(1))=z1:k1(1,81(1))=al 
sh(e1)ssh(z1)-a1:s1(1)=s1(1)+1 
WINDOW CLOSE 2:PUT (146,89) ‚gf& 
RETURN 
bauen: 
psheim(1):IF na(p)<>1 THEN RETURN 


N IF wa=5 THEN GOSUB menue2:RETURN 
ON wa GOTO krieg,trans,hand, indu 
6070 daul 

krieg:GET (146,89)-(404,192) ‚gf& 
WINDOW 2, "Kriegsschiffe bauen : ",(150,100)-(400,190),0,1 
F1eINT(1a(p)/4):f2=INT(w(1)/3) 

GOSUB bau3 

1a(p)=la(p)-zars:v(1)ev(1) ‚gi(1)=g1(1)+za 

WINDOW OLOSE 2:PUT (146,89) ,8?&:G070 baul 

trans: 

GET (146,89)-(404,192) ‚g& 

WINDOW 2, "Transportschiffe bauen :*,(150,100)-(400,190),0,1 
£1=INT(1a{p)/3):£2eINT(v(2)) 

GOSUB bauz 

1a(p)=la(p)-2a#3:v(1)=v(1)-za:g2(1)“g2(1)+za 

WINDOW CLOSE 2:PUT (146,89) ,gf&:C0T0 baul 

baugınge” Sie haben”:00SUB text:PRINT 

PRINT“ Geld für * Schiffe und ” 

PRINT * Rohstoffe für ";f1;” Schiffe.” 

PRINT:PRINT ” Wieviele Schiffe wollen Sie 

PRINT ” bauen "; 

GOSUB of:INPUT za:IF za<O THEN za=0 

IF (2a=<f1) AND (za=<f2) THEN RETURN 

(GOSUB s£:PRINT ” Nicht genug Mittel !”:PRINT:BEEP 

1270: y=70:C0SUB oit:za=0 

| RETURN 

einkonmnen: 

‚GET (196,69)-(408,216) ‚2% 

WINDOW 2, "Staats Info”, (200,80)-(404,214) ‚0,1 

N 020; =0:g=0:8=0:9=0 

FOR h=1 TO 59 

IF na(h)=1 THEN gegeao(h) :qsg+ro(h) :asa+la(h):C=C+Hsh(h):t 
st+tr(h): 

NEXT h 

n$=" Besite :”:G0SUB text 


PRINT: PRINT:PRINT ” Steuereinkonnen :";g 

PRINT ” Vermosgen :";v(2):PRINT ” Rohstoffabbau 
a 

PRINT ” Rohstoffe 

c 

FRINT * Transportschiff‘ 
PRINT ” Reichweite 
12(1) 

PRINT ” Panzerung 
x=43:ye115:00SUB ok 
WINDOW CLOSE 2:PUT (196,69) ‚gf& 

RETURN 

info: 

GET (176,89)-(420,220) ‚2% 

WINDOW 2, "Planeten Info”, (180,100)-(416,216),0,1 
PRINT:n$= ” Planet NR. ”:GOSUB text:PRINT & 
PRINT:PRINT * Besitze: ‚mag (na(2)) PRINT 
s=st(1,2):PRINT ” Status: ";st$(8) 

IP «0. THEN infoend 
PRINT ” Kriegsschiffe 
PRINT ” Rohstoff 
IF se1 THEN Infoend 
PRINT ” Lager 
(2) 

Anfoend: 
xu61:7.99 
GOSUB ok 
WINDOW CLOSE 2:PUT (176,89) ‚Bf& 

RETURN 

wsev: 

WINDOW 2, "Welt abspeichern”, (200,100)-(440,150) ‚2,1 
PRINT:PRINT ” Bitte geben sie” 
PRINT ” einen Namen ein”;INPUT ” 
OPEN a$ FOR OUTPUT AS #1 
PRINT#1,ha(1),ha(2),ha(3) 

FOR x = 1 TO ha(3)+1:PRINT#1,ve(x):NEXT x 

FOR xe 1 10 59: PRINT#1,Kx(x)ky(x):NEXT x 

CLOSE 1:WINDOW CLOSE 2 

RETURN 

w1od; 

WINDOW 2, "Welt, aussuchen”, (200,100)-(440,150) ‚2,1 
GLS:PRINT:PRINT ” Bitte geben sie den” 

PRINT ” Namen der Welt ein,”:PRINT " die sie benutzen wol 
Ien“ 

neun " "28 

IF £8<>"* THEN GOSUB wwlod 

WINDOW CLOSE 2:RETURN 

wulod: 

OPEN £8 FOR INPUT AS #1 

INPUT#1,ha(1),ha(2),na(3) 

FOR x = 1 TO ha(3)+1:INPUT#1,ve(x):NEXT x 

FOR x = 1 70 59: INPUT#1,kx(x) ‚ky(x):NEXT x 

CInSE 1 

RETURN 

war: 

pedei(1,#) 

IF na(p)=1 THEN sh(p)=sh(p)+k1(1,1) :RETURN 

kr: 
t1sk1(1,w):IP t1=0 THEN RETURN 

12«sh(p) 

kr2: 

Pfi=tie((15-RND(1)#10)"(f2(1)-£3(1)))/100 :IF FfL<O THEN P 
10 

ff2=r20( (15-RND(1)»10)"(f2(nalp))-3(na(p))))/100 :IF Ff2< 
0 THEN ff2=0 

t1eINT(t1-ff2):IP t1<O.THEN t1=0 

T2eINT(t2-FFL):IP t2<O THEN 12-0 

IF t1<t2 THEN verl 

IF t2<>0 THEN kr2 

sh(p)=t1:st(na(p),p)=lina(p)sl 

st(1,p)=2:1F pehein(1) THEN st(1,p)=4 


PRINT ” Kriegsschiffe 


';sh(z):PRINT ” Einkommen :";mo(z) 
sro(z) 


a(z):PRINT ” Transportschiffe :"jtr 


X RETURN 


verl:IF na(hei(1,w))=1 THEN sh(hei(1,w))=sh(hei(1,#))+tL 
sh(p)=t2:st (1,p)=1 

RETURN 

transi: 

COLOR 1,7:LINE (64#8,24x8)-(630,28*8) ‚7,bf 


LOCATE 27,65:PRINT "zu NR. 
ziez 

GOSUB eingabe 

IF (2=0) OR (2-21)THEN LINE (64:8,24x8)-(630,28%8) ‚7,b£:RET 


SpeLe | 


AU PRINT 2:COLOR 1,0 
\ IF (st(1,21)<2) OR (ne(2)<>1) OR (na(z1)<>1) OR s2(ı) 

>50 THEN BEEP:RETURN 

er-SQR(((ke(z)-kx{21))/2) 2+(ky(2)-Ky(21))2) 

Ir er > sr(f1(1)) THEN BEEP:RETURN 

GET (126,89)-(444,180) ‚gf& 

WINDOW 2, "Transportschiffe senden :”,(130,100)-(440,178) ‚0, 

1:C0SUB st 

n$=" Von Planet NR.”:GOSUB text:PRINT 21 

PRINT ” zu Planet NR. ”;2:PRINT 

PRINT * Stationierte Transportschiffe :";tr(z1) 

PRINT * Transportable Rohstoffe 


IF st(1,21)<3 THEN 11=0:ELSE 1lsla(z1) 
PRINT 11:IF st(1,21)>2 THEN PRINT "9; 
"5:C0SUB of:INPUT a1:00 


PRINT ” Wieviele Transportschtffe 
SUB af 

PRINT ” Wieviel 
SUB st 

IF al>tr(21) THEN alstr(21) 

IF a2>11 THEN a2ell 

IF a2>al THEN a2aı 

IF al<O THEN al=0 

IF a2<O0 THEN a2=0 

) de2(1,s2(1))»2:k2(1,82(1))sal:tr(z2)=tr(z1)-a1 
x3(1,82(2)=a2:1e(21)=la(z1)-a2:52(1)=s2(1)+1 

ens: 

WINDOW CLOSE 2:PUT (126,89) ,gf& 

RETURN 

af: 

| CALL setfont (WINDOW(B) ‚Font28) :RETURIF 

hi 

LINE (648,24»8)-(630,28#8) ‚7,b£ 

COLOR 1,7:LOCATE 25,65:BEEP:CALL setfont (WINDOW(8) ‚font28) 
\ PRINT "Kein Handel”:LOCATE 26,65:PRINT "nöglich”:00LOR 1,0: 
RETURN 

hand: 

GOSUB eingebe 

Rh IF 2=0 THEN GOTO bau2: 

IF na(2)<>1 THEN hand 

GET (196,89)-(444,162) ‚gf% 

WINDOW 2, "Handelszentrum bauen“, (200,100)-(440,160),0,1 
PRINT: PRINT:GOSUB sf 

IF st(1,2)>2 THEN n$=" Handelszentrum vorhanden”:00SUB tex 
+:0070 hana 

IF v(1)<50 THEN n$=” Zu wenig geld”:G0SUB text:GOTO han2 

\ v(1)=v(1)-50:5t(1,2)23 

$ hanı: 

n$= * Handelszentrum errichtet”:G0SUB text 

hanz: 


Rohstoffe 


hana 

PRINT * Vermögen 
x=60:y236:00SUB ok:WINDOW CLOSE 2:PUT (196,89) „g?%:0070 han 
a 

PO Andu: 

ak GOSIIB Eingabe 

IF 2e0 THEN 0010 bauz: 

IF na(s)<>1 THEN indu 

WINDOW 2, *Industriesentrum bauen”, (180,100)-(440,160) ,2,1 
PRINT:PRINT:GOSUB sf 

IF st(1,2)>3 THEN n$«” Industriezentrum vorhanden”:GOSUB t 
ext:G0TO And3 

IF v(1)<500 THEN n$=" Zu wenig geld 
1,heia(1)) 


SUB text:C0T0 ind2 
hein(l)se 


PRINT:PRINT * Kosten : 500°:PRINT * Vernögen : ";v(1) 
And: 
x 
nex: 

WINDOW 2, *", (200,100)-(440,170) ‚2,1 

PRINT:GOSUB sf:PRINT ” Nächster Herrscher :” 

PRINT:PRINT ”  *;na${1):x=60:y=50:G0SUB ok:WINDON CLOSE 2 
RETURN 

ent: 

IF jahr<>f4(1) THEN RETURN 
?4(1)=Jahr+INT(RND(1)#20)-25(1)*3:1F 24(1)<5+jahr THEN FA 
Ye5+jahr 

Zu=AND(1):IF Fi(1)e1 TEEN zusO 

S IF (eu<.5) AND (FI(1)<3) THEN FL(1)eFL(2)+1:RETURN 
Zu=RND(1) 


:36:G0SUB ok:WINDOW CLOSE 2:G0SUB d15:G070 indu 


IF zu<.4 THEN £3(1)=F3(2)+75(1)-9:RETURN 
\ 2a) :RETURN 


vans(o): ‚WINDOW OUTPUT 1:C0LOR 1,4: LOCATE 2,65 

PRINT ” weiter ":GET (510,4) 

LOCATE 2,65: PRINT “Bitte wählen ”: 

N uniDow OUTPUT 2:PUT (x,5),aX:LINE (x+2,y+12)-(x+112,3413) 4 
„be 

ok: 

w=MoUsE (0) 

IP #<1 THEN okı 

RETURN 

Er 

LINE (0,0)-(505,240),0,bf 

IF di«0 THEN GOSUB puty:RETURN 

FOR he 1 TO ha(di) STEP 2:xeve(h):yave(h+1) 

IF (st(1,x)>0) OR (st(1,7)>0) THEN LINE (kx(x) ‚iy(x))-( 
Kx(y),kyly))oi: 

NEXT h 


GOSUB puty:CIRCLE (kx(hein(1))-1,ky(heim(1))-1),10,1,3,.09, 
3 
RETURN 
© rev: 
IF h=1 THEN re(p1)=0:RETURN 
WINDOW 2, “Revolution”, (200,80)-(440,160) „2,1: 
ne ” Auf Planet 
NT(Ky(pL)) 5)" 


78 = INT((ro(pl)+2o(p2))/2ere(p2)/3) 

IF rs<sh(pl) THEN PRINT ” Sie wurde niedergemetzelt.":sh( 
pLl)=INT(sh(pl)-rs/3#2) :0070 reve 

sh(pl)=INT(rs-sh(p1)/3#2) :tr(p1)=0:st(na(pl),pl)=L:na(p1)=0 
I) PRINT ” Sie var erfolgreich.” 


Ir stlı,2)<ı THEN RETURN:ELSE:GET (196,69)-(442,182),g?& 
WINDOW 2, "Revolution unterstützen”, (200,80)-(440,180),0,1 


€ PRINT ” wollen Sie investieren ";:GOSUB of:INPUT g:GOSUB s 
ut 
IF g>v(1) THEN gev(1) 
IF g<O THEN g=0 
PRINT:PRINT * O.K. Vermögen :";v(1)-g 
ne(z)sre(z)+g 
WINDOW CLOSE 2:PUT (196,69) ‚gf&:RETURN 


} WINDOW 2, "Spiel Beenden ,(200,80)-(440,140) ‚2,1 
n$« ” Sind sie sicher ?”:G0SUB text:PRINT 
PRINT * (J/n) ";:60SUB of:INPUT a$ 
IP a$="j” OR aß="J" THEN WINDOW CLOSE 2:G0T0 start 


WINDOW 2, "Spielstand speichern”, Ana at 140) ‚2,1 
n$=" Bitte geben sie einen”:00SUB tex' 
ie RE 'THEN savn 
OPEN s$ FOR OUTPUT AS #3 
PRINT#3, Jahr, spieler, f$ 


(p),tr(p)‚ro(p) ‚na(p),re(p),lalp) 


FOR y = 1 T0 spieler 
INT#3,st(y,x) 


FOR xe 1 T0 spieler 
PRINT#3,na$(x) 
PRINT#3,nein(x)‚£1(x) ‚?2(x),23(x),24(x) ‚25(x) ‚v(x) 
NEXT x 
cLosE 3 


WINDOW CLOSE 2 
RETURN 
l0d: 

| UNDOI 2, "Spielstand 1aden”, (200,80)-(440,140),2,1 


Meine: »Fantasy« versetzt Sie in das Jahr 6533. 
Erobern Sie neue Welten (Fortsetzung). 


De 


ser a3I 


S6B MEN OPEN s$ FOR INPUT AS #3 » 
na INPUT#3,Jahr,spieler,£$ Bkh KM RETURN 
eu FOR p= 1 70 59 1a of: 
062 INPUT#3,mo(p) ‚sh(p)‚tr(p),ro(p)‚na(p),re(p),2a(p) 6 Zt, CALL setfont (WINDOW(8) „Font08) :RETURN 
SEO NEXT p 7 SL text: 
ER 8 FOR y = 1 TO spieler d 648 Zi CALL setfont (WINDOW(8)‚fonti&):CALL move(WINDOW(8),1,13) 
1972 002 FOR x= 1 10 59: INPUT#3,st(y,x) 649 X0 COLOR 7,0:PRINT LEFTS(n$,2);:CALL setfont (WINDOW(8) ‚Lont2& 
) 
FOR x= 1 TO spieler 630 Ku COLOR 1,0:PRINT RICHT$(n$,LEN(n$)-2); 
INPUT#3,na$ (x) ‚hein(x) ‚E1(x),£2(x),23(x) 24x) ,25(x) v(x 651 st RETURN 
) = 652 QA efont: 
(0 NEXT x Ei 653 Ak CALL elosefont (Fonti):CALL elosefont (font2k) 
7 08 CLOSE 3 634 3n CALL elosefont (font3b):CALL elosefont (fontOk) 
ORBLIR GOSUB wlod 659 vK RETURN 
187 lode: 656 Ua sieg: 
580 YE. WINDOW CLOSE 2 STUL COSIB titeli 
h 984 JL | RETURN 658 8 FOR x»1 TO spieler:IF na(heia(x))=x THEN wiex 
N 582 0y rat: 6X NEXT x 
Il 583 GOSUB menued 660 X0 PALETTE 4,0,0,1:PALETTE 5,0,0,.5:x%=90:y#*120:C0LOR 6,0 
| SBA Oy grafi: 66% IK CALL setfont (WINDOWS) ‚Tont2%) :POKEN WINDOW(8)464,1 
il 385 ma | COSUB eingebe 662 D3 ns%=SetSoftStyleä(WINDOW(8) „2,en#) 
) NO" IF m<1 OR n>5 THEN GOSUB menue2:RETURN 663 SM CALL move(WINDOW(8),x8,y%):PRINT ”Gewonnen hat :*:CQLOR 7,0 
NM ON m GOSUB dars,p1,p2,p3,puty:CIRCLE (kx(hein(1))-1,ky(hein (664 Vg. CALL move(WINDOW(B) ‚xf+1,yS+1):PRINT "Gewonnen hat :” 
. (2))-2),10,1,3,.05,.3 ‚669 78 x8=70:y8e150:COLOR 4,0:CALL setfont (WINDOK(8) ‚font3&) 
E ‚666 TB 
667.07 
‚668 d6 
‚669 98 


COTO grafı FOKEU WINDOW (8)+64,2:n5$=SetSoftStyles(WINDON(8) ‚4,en#) 
| pro: CALL move(WINDOW(8) ‚x$,y%):PRINT na$(w1):0OLOR 5,0 
1 LINE (0,0)-(505,240) ‚0,6? CALL move(WINDOW(8) ‚x#+1,yf+1):PRINT na$(wi) 
' IF die THEN GOSUB puty:RETURN tu: 
FOR he 1 TO haldi) STEP 2:xava(h):yavelh+1) 1670 IM «Mouse (0) 
IF (st(1,x)>0) OR (st(1,y)>0) THEN LINE (Ke(x) ‚ky(x))-( GRERR IF W<ITHEN tu 
ey) krly))at: 672 Yi CALL SetDrMa(winDow(8) 1) 
NEXT 673 AD WINDOW CLOSE 6 :SCREEN CLOSE 2 
ON m GOSUB p1,p1,p2,p3,puty:CIRCLE (kx(hein(1))-1,kylheim(1l 674 my GOSUB titel:GOSUB ssr:GOTO neus 
)-1),10,1,3,.05,.3 675 Ip titel: 
RETURN (676 ME GOSUB itel1:C0T0 titel2 
\ pl: ETW LI titeiz: 
BE IK FOR he 1 70 59 678 UI x8=60:y%=120:00L0R 4,0:CALL, setfont (WINDOW(8) ‚Kontik) 
ze IF POINT(xx(h),ky(t))=0 TEEN pti "679.09 POKEW WINDOW(8)+64,1:CALL zove(WINDOW(B) ‚x%,yR) 
\ IF st(1,h)<2 THEN PUT (kx(h)-8,25(h)-4),a4,PSET:G0T0 pri 680.36 PRINT "Written in 1988 by: ”:00L0R 5,0 
IF 1a(h)>150 THEN PUT (kx(h)-8,ky(h)-4) 83, PSET:G070 pt1 81 68 CALL move(WINDOW(@),x$+1,y£+1):PRINT "Written in 1988 by: ” 
IF 1a(h)>30 THEN PUT (xx(h)-8,ky(h)-4),a2,PSET:GOTO ptl 682 Te x%=50:y8=160:C0L0R 6,0:CALL setfont (WINDOW(8)font3&) 
PUT (kxln)-8,Ey(2)-4) zal,PSET (683 kB POKEW WINDOW (8)+64,2:ns$=SetSoftStyles(WINDOW(8) ‚4,en®) 
684 Ur eu move(WINDOW(8) ‚x, 3%):PRINT "Holger Hoffmann*:COLOR 7, 
685 50 onız move(WINDOW(8) ‚x#+1,y#+1):PRINT "Holger Hoffmann” 
6 ex tti: 
Sa TOR ne 170 9 687 24 w=MOUSE (0) 
«03 IF POINT(kx(h) ‚Ky(h))=O TEEN pt2 688 RQ IF w<1 THEN ttı 
1F st(1,h)<2 THEN PUT (kx(h)-8,ky(h)-4) ‚a4, PSET:G010 pt2 689 pE CALL SetDrMa(WINDOR(E) ‚1) 
IR tr(h)>50 THEN PUT (isc(h)-B,ky(h)-4) „a3,PSET:COTO pt2 PB WINDOW CLOSE 6 :SCREEN CLOSE 2:RETURN 
IF tr(h)>10 THEN PUT (kx(h)-8,ky(h)-4) ‚a2,PSET:G070 pt2 AK titell: 
PUR (kx(h)-8,ky(n)-4) a1, PSET a7 SCREEN 2,320,256,3,1:WINDOW 6,”",(0,0)-(310,240) ‚0,2 
pta: '3D CALL setfont (WINDOWS) ‚font38) zenf=AskSoftStyleh(WINDOR(E) 


IF POINT(Kx(h) ‚rCn))=O THEN pt3 
IF st(1,h)<2 THEN PUT (ie(h)-3,ky(h)-4) a4, PSET:GOTO pt3 
IF ah(h)>50 THEN PUT (xx(h)-8,ky(h)-4) ‚a3,PSET:GOTO pt3 
IF sh{h)>10 THEN PUT (kx(h)-8,ky(h)-4) ‚a2,PSET:GOTO pt3 
\ PUT (kx(h)-B,ky(n)=4) ‚al, PSET 
‚624 2B0 pt3: 

u NEXTh 
RETURN 
font: 
nane0ße "sapphire font "+CHRS(0) 
Zah = 
textattr&(0) = SADD(name0$):textatträ(1) = hERZI60R2440 
6e fontik = openfontä(VARPTR(textattrk(0))) 
IF fonti&=0, THEN font1& = opendiskfontä(VARPTR(textattr&(0) 
» 


name0$="opal.font”+CHR$(0):h2 = 9 
D textattr&(0) = SADD(name0$):textattr&äl1) = h4r216+082440 
font2& = openfont&(VARPIR(textattr&(0))) 

IF font2&=0 THEN font2& = opendiskfont&(VARPIR(textattr&(0) 
» 

). name03="topaz.font"+CHRS(0):hf = 8 

|| textattr&(0) = SADD(neme08):textatträ(1) = hIrZ164+082440 
ZontO& = openfontä(VARPTR(textattr&(0))) 

name0$= "diamond. font”+CHRS(0):h? = 20 

textatträ(0) = SADD(nane0$) :textartrk(1) = h38216+0x24+0 
| font3& = openfont£(VARPTR(textattr&(0))) 


) 

naß=SetSoftStylei(WINDOW(8) ‚7,en$):CALL SetDr4d(WINDOW(8) ‚0 

) 

POKEW WINDOW (&)+64,4:PALET 

PALETTE 2,1,0, 

PALETTE 5,0, 

x4=62:y4#65:00L0R 2 

PRINT * FANTASY"; 

) 

PRINT * FANTASY ":LINE (0,73)-(318,73),2 

LINE (1,74)-(319,74),3 

RETURN 

ser: 

SCREEN 1,640,256,3,2 

WINDOW 1, "Fantasy Written in 1988 by Holger Hoffmann”, 0,1 

MENU 1,0,1,”°:MENU 2,0,1, *":MENU 3,0,1, "":MENU 4,0,1,"° 

RETURN 

fehler: 

WINDOW 2, “Fehlermeldung”, (200,100)-(360,175) „2,1 

MIO NB n$=” Error 1111”:C0SUB text 

IL NE PRINT:PRINT:IF ERR<>53 THEN PRINT " Fehler Nr.”;ERR:ELS 
E PRINT ” File not found” 

(712 21 PRINT:PRINT ” 

N „O:INPUT n$ 

73 70 WINDOW CLOSE 2:RESUME start 

214 KG REM Ende von FANTASY 

Ms ıy REM Written in 1988 by Holger Hoffmann 

(€) 1989 mar 


Listing. »Fantasy« versetzt Sie in das Jahr 6533. 
Erobern Sie neue Welten (Schluß). 


E 


JCALL nove(KINDON()„8%,y%) 
‚COLOR 3,0:CALL move(WINDOW(8) ‚uß+l,yh+l 


BESRSREIES 323885 8 83223 


gBREREREERL SESSE 


Hit Return“;PRINT ” bestätigen ”;:COLOR 0 


Spice 


Trainingslager... 


Muskeln stählt man im Bodybuilding-Center 
mit Hanteln. Die »Hanteln«, um das Gehirn zu trainieren, sind Denkspiele. 
Folgen Sie uns jetzt in den Übungsraum. 


nsere Übung heißt »18- 

BIT« und fördert das 18BiT 

räumliche Vorstellungs- 
vermögen. Im Bild sehen Sie 
das Trainingsgerät. Es handelt 
sich um neun Zeiger und vier 
Knöpfe. Die Aufgabe ist es, alle 
Zeiger so zu drehen, daß sie 
nach oben zeigen. Sie glauben, 
das sei einfach? Weit gefehlt, 
denn die Zeiger sind unterein- 
ander verbunden. Außerdem 
befinden sich auf der »Rücksei- 
te« des achteckigen Feldes 
noch einmal neun Zeiger. Na- 
türlich müssen äuch diese 
nach oben zeigen. Es sind also 
insgesamt 18 Zeiger, woher 
auch der Name des Spiels 
stammt. Die zwei Seiten sind 
farblich (blau und grün) unter- 
schieden. Die Rückseite sehen 
Sie, wenn Sie den Schalter mit 
der Aufschrift »FLIP« anklicken. 

Um den angestrebten Zustand zu erreichen, stehen Ihnen an 
den vier Eckpunkten acht Schalter zur Verfügung. Mit ihnen lassen 
sich die Anzeigen verstellen. Je nach Pfeilrichtung im oder gegen 
den Uhrzeigersinn. Jetzt kommt das räumliche Vorstellungsvermö- 
gen zum Zug. Die Anzeigen auf der Vorder- und Rückseite sind 
ebenfalls miteinander verbunden. Dreht man die rechte untere An- 
zeige nach links, bewegt sich der entsprechende Zeiger (Rückseite 
links unten) entgegengesetzt. Welche Anzeigen sich automatisch 
mitdrehen, läßt sich über die vier Knöpfe zwischen den Anzeigen 
beeinflussen. Gelbe Knöpfe sind aktiv, lila Knöpfe sind inaktiv. Auf 
der anderen Seite ist der Zustand der Knöpfe genau umgekehrt. 
Wieder sind die Positionen seitenverkehrt. 

Die Einstellung der Knöpfe ist entscheidend für das Verhalten 
der Anzeigen. Sind alle Knöpfe aktiv, drehen sich alle Zeiger mit, 
egal an welcher Ecke gedreht wird. Stellen Sie alle Knöpfe ab, be- 
wegen sich die vier Scheiben an den Ecken des Spielfeldes. Ein 
Knopf stellt also immer die Verbindung zwischen den vier ihn um- 
gebenden Anzeigen her. Wenn Sie jetzt den Eindruck haben, daß 
18BIT schwierig zu lösen ist, haben Sie recht. Möglich ist es aber 
auf jeden Fall. Nach längerem Spiel bekommt man langsam ein 
Gefühl für das Problem. 

‚Außer der Bedienung mit den Schaltern besitzt 18BIT noch drei 
Pull-Down-Menüs für andere Funktionen, die wir Ihnen in den fol- 
genden Punkten ausführlich vorstellen wollen: 


Florian Dietz/Christian Steinbach 


Beide Autoren von 18BIT besuchen die 13. Klasse 
des Uhland-Gymnasiums in Tübingen. Die Freund- 
schaft zwischen beiden begann im Jahr 1986, in dem 
sie auch je einen C64 bekamen. Nach Basic folgte die 
\ Programmierung in Comal. Vor ca. eineinhalb Jahren er- 


folgte dann der Aufstieg zum Amiga. Nach der Einarbei- 
tung in Amiga-Basic entstand in den Weihnachtsferien 88/89 
das Programm des Monats. Jetzt lernen die beiden C. Ein 
weiteres Projekt ist schon in Vorbereitung. Die Redaktion 
wünscht beiden, daß dies ein ebenso erfolgreiches Programm 
wird wie das letzte. 


/AMIGA-SONDERHERT 8 ON LOONFLTERWORLD. 2OMN 


by Florian Dietz / Graphios by Christian Steinbach 


Die eine Seite von »18BIT« mit neun Zeigern und vier 
Schaltern. Finden Sie eine Lösung? 


I Project/New 

Mit diesem Menüpunkt star- 
ten Sie ein neues Spiel. Die Zei- 
ger werden zufällig auf neue 
Positionen gesetzt. 
M Pioject/Save 

Dient zum Speichern des 
Spielstands unter einem vorher 
(mit Save As) angegebenen Na- 
men. Ist noch kein Name einge- 
geben worden, fragt 18BIT au- 
tomatisch danach. 
I Project/Save As 

Während des Spiels kann ge- 
speichert werden, wobei ein 
neuer Name angegeben wird. 
Dadurch können mehrere 
Spielstände bei einem Spiel ge- 
sichert werden. 
I Project/Quicksave 

Um schnell einen Zustand zu 
speichern, verwenden Sie die- 
sen Menüpunkt. Der Name der 
Datei lautet »18BIT.quick«. Der 
alte mit »Quicksave« gespeicherte Spielstand wird überschrieben. 
iM Project/Load 

Gespeicherte Spielstände können geladen werden. Vor dem La- 
den fragt 18BIT nach dem Dateinamen. Wie bei allen anderen Da- 
teifunktionen ist es möglich, einen ganzen Pfad anzugeben. 
iM Project/Quickload 

Lädt den Spielstand in der Datei »18BIT.quick«. 
 Project/Quit 

Beendet das Spiel, verläßt aber nicht den Amiga-Basic-Interpre- 


Ba al Da 


— 


ter. 

18BIT bietet Ihnen eine Hilfe, die Sie sicher bald nicht mehr mis- 
sen wollen; Sequenzen. Wenn Sie für eine Problemstellung einen 
Lösungsweg gefunden haben, können Sie diese Sequenz auf Dis- 
kette speichern und später wieder abrufen. 
ı Edit/SegStart 

Hiermit schalten Sie 18BIT auf »Aufnahme«. Das Programm 
merkt sich von nun ab alle Drehungen, Seitenwechsel und Knopf- 
einstellungen. Vor der Eingabe der Spielzüge verlangt 18BIT noch 
einen Namen für die anzulegende Datei. 
Mm Edit/SeqStop 

Beendet den Aufnahmemodus und speichert die Daten in der 
Datei mit dem angegebenen Namen. 
m Edit/SeqShow 

Fragt nach dem Namen der Datei und lädt die Sequenz, die dann 
automatisch durchgeführt wird. 
m System/Sound On 

Schaltet den Ton bei Dre- 
hung der Anzeigen an. Durch 
das akustische Signal ist es 
leichter, zu verfolgen, wieviele 
Anzeigen verstellt werden. 
iM System/Sound Off 

Der Sound wird ausgeschal- 
tet, was bewirkt, daß das Spiel 
etwas schneller läuft. 
I System/Cycling On 

18BIT verändert die Farben 
der Kreise, wodurch der Ein- 
druck von Bewegung entsteht. 
Beim Verstellen von Zeigern 


61 


oder bei einem Seitenwechsel wird das Coloreycling (Farbrotation) 
kurz angehalten. 
m System/Cycling Off 

Ohne sich verändernde Farben läuft 18BIT nicht schneller. Für 
die Augen ist diese Einstellung bei längerem Spiel angenehmer. 

18BIT läßt sich mit dem AC-Basic-Compiler übersetzen. Die 
Schalter »N« und »R« müssen dabei eingeschaltet sein. 

Jetzt macht »Gehirntraining« wirklich Spaß. Passen Sie auf, daß 
Sie keinen Muskelkater bekommen. ‚Rene Beaupoil/kn 


Ü REM »* 18817 Programmes by Florian Dietz 
REM #* Graphics by Christian Steinbach 
(OLZAR „27000, 5000. 

GOSUB HauptProgresn 


Ü REM Hauptprogramm 
© HauptProgramm: 
GOSUB Varjabledefining 
GOSUB Outputdefinition 
GOSUB NenuDefining 
ON MENU GOSUB MenuTrepping 
ON MOUSE GOSUB MouseTrepping 
ON BREAK GOSUB BreakTrepping 
MOUSE STOP 3 
MENU STOP 
BREAK STOP 
GOSUB Graphic 
MOUSE STOP 
MENU STOP 
GOSUB Positionpaint 
Cyelesi 
GOSUB Blue 
NOUSE ON 
MENU ON 
BREAK ON 
WEILE -1 
MV) 
RETURN 
REM Belegung und Dinensionterung von Variablen und Feldern: 
VariableDefining: 
2 TIMER on 
OPTION BASE 1 
DIM Display(3,3,2), O1dDisplay(3,3,2) 
DIM Buttons(4), Butzon(4,2) 
DIM Plippeä(3,3,2) 
DIM xpos(12) ‚ypos(12) 
DIM xpos2(6) ‚spo=2(6) 
RESTORE Seotordate 
FOR x=1 10 12 
READ xpos(x) ‚ypos(x) 
NEXT x 
RESTORE SectorData2 
FOR x«1 10 6 
READ xpos2(x) ‚ypos2(x) 
NEXT x 
Button$(1)="122111” 
Button$(2)="213231° 
Buttons(3)""231213° 
Button$(4)="322333” 
FOR xel TO & 
FOR ys1 102 
Button(x,y)=y-1 
NEXT y 
NEXT x 
RANDOMIZE TIMER 
FOR x=1 10 3 
FOR y-1 10 3 
FOR z=1 TO 2 
Display(x, y,2)=INT{1412#RND) 
O1Display(x,3,2)=Display(x,7,2) 
EXT z 
ae y 
NEXT x 


FOR x=1 10 3 STEP 2 
FOR y=1 10 3 STEP 2 
Display(x,y,2)=12-Display(x,y,1) 
IF Display(x,7,2)=0 THEN Display(x,7,2)=12 
NEXT y 
NEXT x 
RANDOMIZE TIMER 
DIM Wellet(256) 
FOR x=D TO 255 
Wellef(x+1)-AND#255-128 


ERASE Wellef 

DIM Fa(ı1) 

Farbes1 

FOR x=1 TO 9 
Fa(x)«Farbe-1/16 
FarbesFarbe-1/16 

NEXT x 

Filenaneg="" 

Olänaneg="" 


bewindows: 

OutputDefinition: _ 
SCREEN 1,520,240,4,2 
WINDOW 1," 18BIT . by Florian Dietz / Graphics by Chri 
stian Steinbach”, „16,1 

RETURN 

REM Belegung der Menues und Start des Event Trappings fuer 


NenuDefining: 
MENU 1,0,1, Project” 
MEN) 1,1,2, "View 

NENU 1,2,1, "Save 
NENU 1,331, "Save As 
NENU 1,4,1, "Quickeave 
MENU 1,5,1, "Load 
MEND 1,6,1, "Quickload” 
MENU 1,7,1, "Quit u 
MENU 2,0,1, "Bdit” 

MENU 2,1,1, "SeqStart” 
MENU 2,2,1, "SeaStop ” 
NENU 2,3,1, "SegSnow ” 
NENU 3,0,1, "Systen” 

Sound m ” 
Sound oft ” 
Cycling in ” 
Gyeling off” 


ensHENU(0) 
Punkt=MENU(L) 
IF Mens1 THEN ON Punkt GOSUB Neul,Savel,Saversı,Quicksave 
1,Lond1, Quicklondi,Quit2 
IF Men=2 THEN ON Punkt GOSUB SegStart1,SeqStopl,SegShowl 
IF Men«3 THEN ON Punkt GOSUB SoundOn1,Soundöff1,Oyolingon 
1,0yolingoff1 
NOUSE ON 
MENU ON 
RETURN 
) REM Auswertung der Maussteuerung: 
MouseTrapping: 
LTaste=MOUSE(0) 
x=NOUSE(1) 
y=MOusE(2) 
NouSE STOP 
MENU STOP 
IF x>466 AND x<511 AND y>88 AND y<129 THEN COSUB Sore 
enChange, 
IF LTeste<>0 AND WINDOW(O)=1 AND Seite-D THEN 
IF x>B4 AND x<145 AND y>1 AND y<18 THEN Richtung«1 
: Hebelsl : GOSUB DisplayPosition 
IF x>18 AND x<57 AND y>34 AND y<61 THEN Richtung--1 
: Hebel=1 : GOSUB DisplayPosition 
IP x>366 AND 1<427 AND y>1 AND y<18 THEN Richtung-- 
1 : Hebele2 : GOSUB DisplayPosition 


‚AMIGA-SONDERHEFT 9 


2 


Speıs 


IF x>464 AND 2<503 AND y>34 AND y<61 THEN Richtung- 
1 : Hebel=2 : GOSUB DispleyPosition 
IR x>84 AND x<145 AND y>199 AND y<216 THEN Richtung 
: Hebel=3 : GOSUB DisplayPosition 
IF x>18 AND x<57 AND y>157 AND y<184 THEN Richtung« 
1 : Hebel=3 : GOSUR DisplayPosition 
IF x>366 AND x<427 AND y>199 AND y<216 THEN Richtun 
g=1 : Hebel=4 : GOSUB DieplayPositton 
IF x>464 AND x<503 AND y>157 AND y<184 THEN Richtun 
ge-1.: Hebel=4 : GOSUB DisplayPosition 
IF x>190 AND x<227 AND y>76 AND 7<9O TEN 
Button(1,1)=1-Button(1,1) : Button{1,2)-1-Button(1,1) 
: PAINT (207,83) ‚2+Button(1,1),13 
END IF 
IR x>294 AND x<331 AND y>76 AND 7<90 THEN 
Button(2,1)=1-Button(2,1) : Button(2,2)=1-Sutton(2,1) 
: PAINT (312,83) ,2+Button(2,1),13 
END IF 
IP x>190 AND x<227 AND y>129 AND y<143 THEN 
Button(3,1)=1-Button(3,1) : Button(3,2)=1-Buston(3,1) 
: PAINT (207,136) „2+Button(3,1),13 
END IF 
IR x>294 AND x<331 AND y>129 AND y<143 THEN 
Button(4,1)=1-Button(4,1) : Button(4,2)=1-Button(4,1) 
# PAINT (312,136) ‚2+Button(4,1),13 
END IF 
ELSEIF LTaste<>0 AND WINDOW(O)=1 AND Seite=1 THEN 
IR x>84 AND x<145 AND y>1 AND y<18 THEN Richtung«- 
: Hebel=2 : GOSUB DisplayPosition 
IF x>18 AND x<57 AND y>34 AND. y<61 THEN Richtungel 
: Hebel=2 : GOSUB DisplayPosition 
IF x>366 AND x<427 AND y>2 AND y<19 THEN Richtungel 
: Hebels1 : GOSUB DisplayPosition 
IF x>464 AND x<503 AND y>34 AND y<61 THEN Richtunge 
-1 : Hebele1 : GOSUB DisplsyPosition 
IF x>84 AND x<145 AND y>199 AND y<216 THEN Richtung 
=1 : Hebele4 : GOSUB DisplayPosition 
IF x>18 AND x<57 AND y>157 AND y<184 THEN Richtungs 
-1 : Hebels4 : GOSUB DispleyPosition 
IF x>366 AND x<427 AND y>200 AND y<217 THEN Richtun 
ge-1 : Hebels3 : GOSUB DisplayPosition 
IF x>464 AND x<503 AND y>157 AND y<184 THEN Richt: 
gel : Hebel=3 : GOSUB DispleyPosition 
IF x>190 AND x<227 AND y>76 AND y<90 THEN 
Button(2,1)=1-Button(2,1) : Button(2,2)=1-Button(2,1) 
: PAINT (207,83) ‚2+Button(2,2),13 
END IF 
IF x>294 AND x<331 AND y>76 AND y<9O THEN 
Button(1,1)=1-Button(1,1) : Button(1,2)=1-Button(1,1) 
: PAINT (312,83) ‚2+Button(1,2),13 
END IF 
IF x>190 AND x<227 AND y>129 AND y<143 THEN 
Button(4,1)=1-Button(4,1) : Button(4,2)=1-Button(4,1) 
» PAINT (207,136) „2+Button(4,2),13 
END IF 
IF x>294 AND x<331 AND y>129 AND y<143 THEN 
Button(3,1)=1-Button(3,1) : Button(3,2)=1-Button(3,1) 
: PAINT (312,136) „2+Button(3,2),13 
END IF 
END IF 
MOUSE ON 
MENU ON 


ColourDefining: 
RESTORE Colourdeta 
FORx=0703 
READ r,g,b 
PALETTE x,r,g,b 
NEXT x 
FRx = 13 1015 
READ r,g,b 
PALETTE x,n,8,b 
NEXT x 
RETURN 
REM R-,G- und B-Werte fuer die Grunäfarben: 
ColourData: 
2 DATA 0,0,0,1,.8,.7,1,0,.8,1,1,0 
DATA .5,.955575.75.7,1,0,.13 
BEN Ferbfestlegung fuer die blaue/erste Seite: 
Blue: 
IF Cyele=t 


THEN 


PALETTE »,0,0,Pal 
NER x 
EID ıF 
WEILE Oyele=1 
GOSUB Oyeling 
FOR x=12 TO 4 STEP -1 
PALETTE 2,0,0,Falx-3) 
war x 
MOUSE ON 
KEwu ON 
MOUSE STOP 
MENU stop 


IF Cyele=O THEN 

FOR x=12 10 4 SIEP -1 
PALETTE x,0, Pa(x-3)-1/8,0 
war x 

am IF 

WEILE Oyeles1 
SOSUB Cyeling 
FOR x=12 70 4 STEP -1 

PALETTE x,0,Fa(x-3)-1/8,0 
NEXT x 
MOUSE on 
MENU ON 
MOUSE STOP 
MENU STOP 

van 

RETURN 

REM Colour Cyeling-Routine fuer beide Seiten: 

Gyoling: 

Fa(10)=Fa(1) 
FOR x«1 109 

Falx)=Falx+1) 
NEXT 

RETURN 

REN Redefinierung der Ausgaben: 

it: 

TINER OFF 
NOUSE OFF 
MENU OFF 
NENU RESET. 
En 

BETURN 

BEM Verisblen- und Soreenwechsel auf die andere Seite: 

SersenChange: 

Seitesi-Selte 
GOSUB FositionChange 

RETURN 

REN Serechnung der Displeystellungen: 

DisplayPosition: 

IP Segel THEN GOSUE Sequence 

FOR xe1 10 3 
FOR y=1 TO 3 

OldDisplay(x,y,Seite+1)=Displey(x,y,Seite+1) 

Na y 

NEXT x 

4B=Button(Hebel,2)+1 

IF AB=2 THEN Richtungs-Richtung 

FOR 2-1 T0 4 
IF Button{x,AB)=1 THEN 

203 

x3=HID$ (Button$(x),2#y-1,1) 

5$=MID$(Button$(x),2*y,1) 

zu=VaL(x$) 

yy-Vallys) 

IF Flippeäfxx,yy,AB)=0 THEN 
Display(xx,yy,AB)=Display(xx,yy,AB)+Richtung 
IF Display(xx,yy,AB)>12 THEN Display(xx,yy,AB)=1 
IF Display(xx,yy,AB) <1 THEN Display(xx,yy,AB)=12 
Flipped(xx,yy,AB)=1 

zu IF 


BE many 


Listing. »Gehirntraining« mit »18BIT« ist eine spannende 
‚Angelegenheit. Bitte mit dem Checksummer 
(Seite 143) eingeben (Fortsetzung). 


x$-MID$(Buttons(x),5,1) Display-Display(z,5,2) 

J$=MID$(Button$(x),6,1) GOSUB Pointer 

zu-VAL(a$) 3 

y=VAL(y$) NEXT x 
Display(xx,yy,3-AB)=Display(xx,yy,3-AB)-Richtung aND IF 

IF Display(xx,yy,3-AB)>12 THEN Display(xx,yy,3-AB)=1 RETURN 4 
IF Displey(xx,yy,3-AB)<1 THEN Display(xx,yy,3-AB)=12 REM Routine zum Ausgeben der geaenderten Zeigerpositionen: 


END IF ‚PositionOutput: 
NEXT x IF Seite=O THEN 
Display(2,2,AB)=Display(2,2,AB)+Richtung j 
IF Display(2,2,AB)>12 THEN Display(2,2,AB)-1 
IF Display(2,2,A2)<1 THEN Display(2,2,AB)=12 3 FOR ys1 10 3 
G0SUB Positionoutput 3 IF Display(x,y,1) <> OlaDisplay(x,y,1) THEN 
FOR xe1 10 3 Displays0ldDisplay(x,7,1) 

FOR yel 10 3 3 Col=13 


Flipped(x,y,AB)=0 D% GOSUB Pointer 
NEXT y 366 IC IP Soundle1 TEN GOSUB Soundi 
NEXT x R Display«Display(x,y,1) 


Cols15 
REN Routine zur Ausgabe des Soreenvechsels von 18BIT: GOSUB Pointer 
PositionChange: 

IF Seite=O THEN 
IF POINT (207,83) < >2+Button(1,1) THEN PAINT (207,83), 
2#Button(1,1),13 
IF POINT (312,83) <>24Button(2,1) THEN PAINT (312,83), 
2+Button(2,1),13 
IF POINT (207,136) < >2+Eutton(3,1) THEN PAINT (207,136 
),2+Button(3,1),13 
IF POINT (312,136) < >2+Button(4,1) THEN PAINT (312,136 
),2+Button(4,1),13 
FOR x=1 103 

a2=x-1 

FOR ye1 TO 3 

IF Display(x,3,1)<>Display(4-x,y,2) THEN 
DisplaysDisplay(4-x,7,2) 
0ole13 

GOSUB Pointer 
Display«Display(x,y,1) 


IF Display(x,y,2) <> OldDisplay(x,y,2) THEN 
DisplaysOldDisplay(x,7,2) 
Cols13 
GOSUB Pointer 
IF Soundie1 THEN GOSUB Soundi 
DispleysDisplay(x,y,2) 


Cols15 2 END IR 
GOSUB Pointer RETURN 
zw IF MEN REN Anschelten des Colour Cyelings: 
NEXT y Gyolingon1: 
NEXT x x MENU 3,4,1 
ELSE 3 MENU 3,3,2 


IF POINT (207,83) < >2+Button(2,2) THEN PAINT (207,83), 
2+Button(2,2),13 

IF POINT (312,83) < >2+Button(1,2) THEN PAINT (312,83), 0 
2+Button(1,2),13 ‚REM Abschalten des Colour Cyalings: 

IF POINT (207,136) < >2+Button(4,2) THEN PAINT (207,136 Oyelingoffi: 

),2+Button(4,2),13 MENU 3,3,1 

IF POINT (312,136) < >2+Button(3,2) THEN PAINT (312,136 MENU 314,2 

),2+Button(3,2),13 Cyele=0 

FOR x=3 TO 1 STEP -1 Oli Seite+1 GOSUB Blue,Green 

RETURN 

REM Darstellung der Grafik von 18BIT mit Hilfe einiger Unte 


Gyolesı 
ON Seite+l GOSUB Blue,Green 


FOR yal 10 3 
IF Display(x,y,2)<>Display(4-x,y,1) THEN 
DisplaysDisplay(4-x,y,1) 


Cole13 
GOSUB Pointer 
Display=Display(x,5,2) GOSUB ColourDefining 
Cole15 GOSUB Blue 
COSUB Pointer PATRT (0,0),12 
END IF GOSUB Circles 
NEXT y GOSUB Frane 
PAINT (0,0),0 
0OSUB Displays 
ON Seite+1 GOSUB Blue,Green OOSUB Buttons 
KO RETURN GOSUB FläpOndget 
d REM Routine zum Ausgeben der ersten Zeigerpositione: GOSUB Arrowadgets 
PositionPaint: MOUSE ON 
0ol=15 MENU ON 
IF SeitesO THEN RETURN 
FOR x=1 10 3 REN Routine zum Darstellen der Kreise fuer den Colour Cyoli 
x2ex-1 ng-Erfekt: 
FOR ys1 10 3 |Cireles: 
Display=Display(x,y,1) FOR r=217 10 168 STEP - 7 
GOSUB Pointer GIRCLE (260,109) ‚2,2/7-20 
NEXT 3 FAINT (260,109) ‚r/7-20 
ar NERT x Narr 
ELSE FOR r=161 10 105 STEP - 7 
FOR x=3 10 1 STEP -1 CIRCLE (260,109) „2,2/7-11 
22=3-x PAINT (260,109) „/7-11 


FOR y=1 10 3 NEXT x 


Speıe 


BASE) FOR r=98 TO 42 star - 7 
#32 Xuk \ CIRCLE (260,109) ‚r,7/7-2 
43 Pam (260,109) ,277-2 
434.382 Narr 

435 NeO RETURN 

#36 36 REM Routine zum Darstellen 
437 AM Frane: 

43Br8P2 LINE (143,20)-(367,20),0 
439 F6 | RESTORE FrameData 

AkO N FOR x=1 70 7 

hl EA  REND al,s2 


des Rahmens von 18BIT: 


Aa2 5K LINE -(81,a2),0 
ka hua NEXT x 
444 WED) RETURN 


A49 W9 REN Koordinaten fuer den Rahmen: 

446.%5 Franebata: 

AAN Tg2 DATA 460,60,460,158,367,198,143,198,60,158,60,60,143,20 
HAB 30 REM Routine zum Darstellen des Gadgets zum Seitenwechseln: 
449 um Flipdadget: 

460 6x2 LINE (467,89)-(508,127) ‚14,6 

ML IK LINE (509,127)-(509,89),14 

MeBNA LINE (466,90)-(507,128) ,13,bt 

4530 COLOR 0,13 

MBu RE | LOCATE 13,60 

4SPr PRINT "FLIP” 

456 KO RETURN 

#97 6x REM Routine zum Darstellen der Aktivierungsknoepfe: 

HB eU Buttons: 

459 D52 RESTORE Buttondata 
00h Fohx=ı1704 

461 Y74 READ al,a2 

462 Tu CIRCLE (a1,a2),17,13 
463 08 PAINT (a1,a2),2,13 
464 2e2 NEXT 

465 270, RETURN 

Abb BD REM Koordinaten fuer die Butto: 
467 wu Buttondata: 

468 2 DATA 207,83,312,83,207,136,312,136 
469 4JO REM Routine zun Darstellen der Displays: 
470 IL Displays: 

47 0g2 coLoR 0,1 

Arad FOR x=1 10 3 

473 04 FOR y=1 TO 3 


Ilipsen: 


474 hD6 xKoord=1544(x-1)*106 

475 Us yKoond=314(y-1)#53 

476 Ku LINE (xKoord,yKoord)-STEP(42,13) 

ar PD LINE -STEP(0,24) 

478 mL LINE -STEP(-42,13) 

479 wö LINE -STEP(-42,-13) 

480 ep LINE -STEP(0,-24) 

481 00 LINE -(xkoord, yKoord) 

482 7% LINE (xKoord+10, yKoord+3)-STEP(-20,0) 

#83 CH PRINT (xKeord,yKoord+2) ‚15,0 

484 EC PAINT (xKoord,yKoord+30) „13,0 

488 87 FOR a = 110.12 

486 tr8 m (xKoord, yKoord+25)-(xpos(a)+(x-1)#106,ypos(a)+ 
y-1)253) 


487 216 NEXT a 

488 pL4 NEXT y 

1489 002 Nextx 

490 680. RETURN 

494 EV | REN Koordinaten fuer die Abschnittelinien der Displays: 

492 9% Sectordata: 

493 WP2 DATA 164,34,184,40,196,50,196,62,184,72,164,78 

494 30 | DATA 144,78,124,72,112,62,112,50,124,40,144,34 

495, FXO REM Koordinaten fuer die Ecken der Display; 

496 DI | SectorData2 

497 912 DATA 154,31,196,44,196,68,154,51,112,68,112,44 

498 760 REM Routine zum Zeichnen der 5 Gadgets zum Veraendern der Z 
eigerposition 

499 IB ‚ ArrowGndget: 

500 d62 RESTORE ArrowDate 

01 au COLOR 14,0 

(S02 eL FOR bel 702 

503 wo4 REM Arrow #1: 


504 gU6 READ Kx,ky. 
505 in LINE (kx,ky)-STEP(58,7) 
506 06 LINE -STEP(0,-15) 

507 ER LINE -(kx,ky) 

508 29 PAINT (Kx+5,ky) 13,14 
#09 54 REN Armow #2: 

510 ma6 READ kox,leyı 

SIEHE LINE (kx,ky)-STEP(-58,7) 


Sen LINE -STEP(0,-15) 

33x LINE -(I,ky) 

sis RI PAINT (Kx-5,17),13,14 
SISERL REM Arrow #3: 

316 sg6 READ kx,ky 

517 %5 LINE (kx,ky)-STEP(17,25) 
518 vC LINE -STEP(-35,0) 

519 wa LINE -(kx,ky) 

520 Hn LINE (i,ky+1)-STEP(16,24) 
521 xa LINE (Kx,ky+1)-STEP(-17,24) 
522 8F PAINT (kx,ky+5) 13,24 

523 Puh REM Arsow #4: 

524. 006 READ Kar, y 

525 46 LINE (Kx,ky)-STEP(17,-25) 
526 ak LINE -STEP(-35,0) 

527 41 LINE -(kx,ky) 

528 hb LINE (kx,ky-1)-STEP(16,-24) 
529 Xu LINE (kx,ky-1)-STEP(-17,-24) 
530 0X PAINT (kx,ky-5) 13,14 
S3lav2 NEID 

532 WXD RETURN 


533 Ri REM Koordinaten fuer die Arrow Gadgets: 

934 DR ArrosDate: 

535 KU2 DATA 367,10,143,10,483,158,483,60 

36 HE DATA 367,208,143,208,37,158,37,60 

537 k80 REM Erzeugung von wirk! zufaelligen Werten fuer die Disp 
layı 

938.0n Neul: 

539 812 RANDOMIZE TIMER 

SON) FOR x=1 70 3 

1 


S4l ls FOR ye1 703 

542 Yı6 FOR 2e1 70 2 

543 nJ8 O1dDispley(x,y,2)=Display(x,y,2) 
Shh 26 Display(x,y,2)=INT(1+22«RND) 
345 216 NEXT z 

SH61HA NEXT y 

SATER2 NET x 

SB e6 FOR xe1 10 3 STEP 2 

Saaj9& FOR ys1 10 3 SIE 2 

550. 16 Display(x,7,2)e12-Display(x,7,1) 
551 Rd IF Display(x,y,2)=0 THEN Display(x,3,2)-12 
Sa NET y 

553 gl2 NEXT x 

954 dB) GOSUB Positiondutput 

555 v0 RETURN 


556 On REM Routine zum Abspeichern des momentanen Spielzustandes u 
inter einem eingegebenen Namen: 
557 0X Saveasl: 
558 ef2 WINDOW 2,“Spielstand Abspeichern/RETURN für Cancel”, (0,0) 
-(511,8),2,1 
COLOR 0,1 
LOCATE 1,1 
LINE INPUT *Filenane: 
WINDOW CLOSE 2 
IF Filenaneg< > "" THEN Oldnane$«Filenane$ : GOSUB Savel 
IF Pilenane$="" THEN Filenane$=Oldnane$ 
RETURN 
REN Routine zun Abspeichern des momentanen Spielstandes unt 
er den alten Dateinamen: 
Savel: 
IF Filenane$e”" THEN 
BEEP ; GOSUB SaveAsı 
21SE 
OPEN Filename$ FOR OUTPUT AS 1 
FOR xe1 10 3 
FOR y«1 10 3 
FOR 2e1 102 
PRINT #1,Display(x,y,2) 
NEXT z 
NT y 
NEXT x 
FOR xl 70 4 
FOR y«1 102 
PRINT #1,Button(x,y) 


;Fllenanes 


RUSINSSSES RSRSSESS 
BIrRaEs 5 


SEININE 
SRRESERSERTER SEHTEsr 


BesREsas 
Rapace 


Listing. »Gehirntraining« mit »18BIT« ist eine spannende 
‚Angelegenheit. Bitte mit dem Checksummer 
(Seite 143) eingeben (Fortsetzung). 


BIS NET HOMEISMPUTERWORLD COM; 


65 


2 Ewır 

) RETURN 

REM Routine zum Abspeichern des momentanen Spielstandes unt 
er einen voreingestellten Namen: 


Filename$-Oldname$ 
RETURN 
REM Routine zum Laden eines abgespeicherten Spielstandes un 
ter einem eingegebenen Namen: 
toadt: 
WINDOW 2, "Spielstand Leden/RETURN für Cancel”, (0,0)-(511, 
8),2,1 
COLOR 0,1 
LOCATE 1,1 
‘LINE INPUT “Filename: ";Filename$ 
WINDOW CLOSE 2 
IF Filename$< > "" THEN 
‚Oldnane$=Filename$ 
Filesi 
GOSUB Quickloadi 
File=O 
ELSE 
Filenane$=Oldname$ 


mit Quicksave gespeicherten Spielstandes: 


IF Seite=O THEN 
FOR x=1 10 3 
x2ex-1 
FOR y«1 10 3 
Displey-Display(x,y,1) 
GOSUB Pointer 
NEXT y 
NEXT x 
ELSE 
FOR x=3 10 1 STEP -1 
x2=3-x 
FOR ys1 10 3 
DisplaysDisplay(x,7,2) 
(GOSUB Pointer 
NEXT y 
NEXT x 
aD IF 
IF File=1 THEN Filenanei$=Filenane$ ELSE Filenanei$="1851 
T. quick” 
‚OPEN Filename1$ FOR INPUT AS 1 
FOR x=1 70 3 
FOR y=1 TO 3 
FOR z=1 10 2 
INPUT #1,Display(x,y,2) 
NEXT 2 
NEXT y 
NEXT x 
FOR x=1 10 4 
FOR y=1 10 2 
INPUT #1,Button(x,y) 
NEXT y 
NEXT x 
INPUT #1,Seite 
CLOSE 1 
IR Seite=O THEN 
IF POINT (207,83) <>2+Button(1,1) THEN PAINT (207,83), 
2+Button(1,1),13 
IF POINT (312,83) <>2+Button(2,1) THEN PAINT (312,83), 
2+Button(2,1),13 
IF POINT (207,136) <>2+Button(3,1) THEN PAINT (207,136 
),2+Button(3,1),13 
IF POINT (312,136)< >2+Button(3,1) TEEN PAIN? (312,136 
),2+Button(4,1),13 
ELSE 
IF POINT (207,83) <>2+Button(2,2) TEEN PaINT (207,83), 
2+Button(2,2),13 
IF POINT (312,83) <>2+Button(1,2) THEN PAIHT (312,83), 
2+Button(1,2),13 
IF POINT (207,136) <>2+Button(4,2) TEEN PAINT (207,136 
),2+Button(4,2),13 
Ir POINT (312,136) <>2+Button(3,2) TEEN PAINT (312,136 
),2+Button(3,2),13 


SOSUB PositionPaint 
ON Seite+1 GOSUB Blue,Green 
RETURN 
RIM Ein versuchter Abbruch durch Bresk wird unterbunden: 
BreakTrapping: 
BEP 
RETURN 
REM Routine zum Erzeugen eines Sounds bein Verstellen der D 
isplay: 


SOUND 100,.1,a1*a1*16-1 
FOR xi-1 TO 20 
SOUND WAIT 
x 
NEXT ai 
RETURN 
REM Anschalten des Sounds: 
SoundOn1: 
MENU 3,2,1 
MENU 3,1,2 
Soundi=l 
RETURN 
IE | REM Abschalten des Sounds: 
Soundoffl: 
2 MEN 3,11 
MEW 3,2; 
Soundi=0 
RETURN 
BEM Start einer Sequenz: 
SegStarti: 
Segel 
WINDOW 2, "Sequenz Abspeichern/RETURN für Cancel”, (0,0)-(5 
11,8),2,1 
COLOR 0,1 
LOCATE 1,1 
LINE INPUT "Sequence-/Filenane 
WINDOW CLOSE 2 
IF Segnane$="* THEN 
Seg=0 
ELSE 
OPEN Seqname$ FOR OUTPUT AS 2 
END Ir 
FD BRTURN 
REM Stop einer Sequenz: 
Segstopi: 
Segq-O 
CLOSE 2 
RETURN 
Laden und Zeigen einer Sequenz: 
SeaShowl: 
WINDOW 2, "Sequenz Laden/RETURN für Cancel”, (0,0)-(511,8), 
2,1 
COLOR 0,1 
LOCATE 1,1 
LINE INPUT "Sequence-/Filename: ";Seqname$ 
WINDOW CIOSE 2 
IF Segname$< > "" THEN 
IP Cycie=1 THEN Cyolel=1 : Cycle=O 
Seite2=Seite 
OPEN Segname$ FOR INPUT AS 2 " 
WEILE NOT BOF(2) 
FOR x-1 104 
FOR ys1 10 2 
INPUT #2,Button(x,y) 
NET y 
NEXT x 
INPUT #2,Seitei 
INPUT #2,Hebel 
INPUT #2,Richtung 
IF SeitelsSeite THEN Seite=s1-Seite 
GOSUB SereenChange 
GOSUB DisplayPosition 
WEND 
CLOSE 2 
IF Oyelei=1 THEN Oyole-1 
Cyele1=0 
IF Seite<>Seite2 THEN GOSUB ScreenChange 
END IF 
RETURN 
REM Routine zum Abspeichern der einzelnen Sequenzenabschnit 


;Seqname$ 


SPIELE 


FOR ys1 10 2 
PRINT #2, Button(x,y 
NEXT y 
NEXT x 
PRINT #2,Seite 


PRINT #2 
745 NBO RETURN 

746 Bm) REN 
MATAL Pointer: 
TAB XS COLOR CoL,0 
79 XML 
750 58 
751 X 
752 RTL 
753 ne 
754 Au 
755 084 
156 pt, 


der Zeiger auf dem Display: 


IF Displays 
xkl=xpos(12)+x2#106 
xk2expos(1)+x28106 

ELSE 
xk 
xXk2=xpos (Display: 
53 

END IF 

AREA (xKoord, yKoord) 


os (Display)+x2#106 
1)+X28106 : 


757 922 
TB &g 


AND Display< >12 THEN 
22*106, ypos2(Display/2+1)+(y-1) 


(C) 1989 mi 


Listing. Gehirntraining mit »18 BIT« ist eine spannende 
Angelegenheit. Bitte mit dem Checksummer 
(Seite 143) eingeben (Schluß). 


imerkette« oder »Chain Reaction« (Ausgabe 11/87, Seite 66), 

unter diesen Namen wurden Listings veröffentlicht, die die 

Grundlage für unser Programm des Monats, das »Buh-Au- 
Construction-Set« (kurz »BACS«) bilden. Das heißt jedoch nicht, 
daß dieses Spiel nur eine reine Umsetzung der anderen Listings 
ist, vielmehr wurde nur das Spielprinzip übernommen. Falls Sie 
»Eimerkette« nicht kennen, eine kurze Spielbeschreibung: Ziel des 
‚Spiels ist es, den Gegner von einem schachbrettartig eingeteilten 
‚Spielfeld zu verdrängen, Zu diesem Zweck kann jeder der Spieler 
Felder belegen. Es darf jedoch pro Spielzug nur jeweils ein Feldbe- 
legt werden. Gesetzt werden darf nur auf noch nicht belegte oder 
schon mit der eigenen Farbe besetzte Felder. Im letzteren Fall er- 
höht sich der Feldinhalt um eins. Da ein Feld aber nicht unendlich 
viel aufnehmen kann, »schwappt« der Inhalt über, sobald der Feld- 
index gleich der Anzahl der horizontalen und vertikalen Nachbar- 
felder ist (also maximal vier). Dabei wird jedem der benachbarten 
Felder die Farbe des »übergelaufenen« Feldes zugeordnet und um 
eins erhöht, was natürlich einen erneuten »Überlauf« zur Folge ha- 
ben kann. So kann man durch 
geschicktes Erhöhen der Fel- 
der ganze Ketten aufbauen. So- 


Spielen macht Spaß. 
Vor allem, wenn ein Programm 
von der Bedienung, Geschwindig- 


keit und Grafik her absolute 
Spitze ist: Wie un- 
ING 2: 
Construction-Set«. 


se Felder können auf Diskette abgespeichert werden. 
- Bis zu drei Spieler können gleichzeitig gegeneinander antreten, 
was den Spielreiz deutlich erhöht. Bei nur einem Spieler über- 
nimmt der Amiga die Rolle des Gegners. 
- Die Bedenkzeit für einen Zug wurde begrenzt. Die maximale Zeit 
kann von 5 bis 30 Sekunden in 5-Sekunden-Schritten variiert wer- 
den. 
= Nach Spielende werden für jeden Spieler Punkte berechnet und 
in einer High-Score-Liste auf Disk gespeichert. Für die Verlierer 
wird eine »Low-Score-Liste« geführt, die ebenfalls gespeichert 
wird. 
-Das ganze Programm ist mausgesteuert. Die Tastatur wird nur zur 
Eingabe der Spielernamen, beim Speichern und zum Aktivieren ei- 
niger Sonderfunktionen wie »Titelaufbau aus/ein«, »Pause« und 
»Spiel abbrechen« benötigt. 

Diese Erweiterungen bewegten die Autoren dazu, den Namen 
des Spiels zu ändern. Der Name »Buh-Au-Construction-Set« hat 
keinen tieferen Sinn und soll nicht zum Nachdenken verleiten. Den 


MARKUS BONER, 
KLAUS SCHRECK 


Die »Computerlaufbahn« der zwei Programmautoren 
P verlief ähnlich: Ende 1984 fanden sie den Einstieg in 
n die Computerwelt über den C 64. Nach der Programmie- 
2 rung in Basic folgte Assembler. Vor ca. 1,5 Jahren wurde dann $ 


weit zum Spielprinzip von »Ei- 
merkette«. Wie bereits erwähnt, 
ist unser Spiel eine Weiterent- 
wicklung. Bei dem Spiel »Buh- 
‚Au-Construction-Set«sindnoch 
einige Elemente hinzugekom- 
men: 

- Das Spielfeld ist maximal 15x 
15 Felder groß (im Gegensatz 
zu 7 x 7 bei Eimerkette). 

- Es können eigene Spielfelder 
entworfen werden, so daß man 
nicht nur auf den mit der Zeit 
langweiligen, rechteckigen 
‚Spielfeldern spielen muß. Die- 


der Traumcomputer Amiga angeschafft. »Buh-Au-Construc- 
tion-Set« ist das erste größere Projekt. Wegen der 
noch fehlenden Kenntnis des 68000-Assem- 
blers wurde es vernünftigerweise in Basic 
programmiert. Das »Buh-Au-Construction- 
Set« wurde Programm des Monats in der 
‚AMIGA-Ausgabe 5/89. Wir wünschen den 
beiden noch weitere erfolgreiche Projekte. 
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‚Autoren gefiel aber die Abkürzung so gut. Auf der Diskette müssen 
sich folgende Dateien befinden: 

- Buh-Au_CS 

- intuition.bmap 

- exec.bmap 

- graphies.bmap 

- dos.bmap 

Falls Sie die ».bmap«-Dateien nicht auf Ihrer Extras-Diskette im 
Verzeichnis »BasicDemos« finden, müssen Sie sie selbst generie- 
ren. Eine genaue Anleitung, wie dies funktioniert, finden Sie in der 
Ausgabe 1/89 des AMIGA-Magazins auf Seite 147. 

Da das Programm sehr »speicherfressend« ist, sollten Sie darauf 
achten, daß beim Aufruf noch mindestens 380 KByte Speicher frei 
sind. Um das Programm zu starten, verwenden Sie das Ladepro- 
gramm (siehe Listing 1). Beendet werden sollte das Programm nur 
über die eingebaute »QUIT« Funktion. 

Nach dem Starten des Programms werden zunächst die .bmap- 
Dateien und das Inhaltsverzeichnis der Diskette im internen Lauf- 
werk geladen. Anschließend sucht das Programm nach den High- 


"gun - Au Construction Set 
Werzeichnis: 


| Feld speich 


pidge of Spies 


ipid, ji 

Face u Boni at Night 

‚hunan anı Compi 

ice in the sunshine 
prgarten 

Zu ladendes File: 


Bi and Array 


Spiel, Spaß und Spannung für viele Stunden bietet das »Buh-Au-Construction-Set« 


Scores und generiert eine eigene High-Score-Liste, falls keine auf 
Disk gefunden werden. Diese Diskettenoperationen dauern natür- 
lich etwas (man hat genug Zeit, zur Kaffeemaschine zu kommen). 
Danach erscheint das Titelbild, das gleichzeitig als Hauptmenü 
fungiert und im folgenden auch so bezeichnet wird. Da auch der 
Titelaufbau recht lange dauert, kann er durch Druck auf <F1> an- 
und ausgeschaltet werden (die Einstellung wird erst beim nächsten 
Aufbau des Hauptmenüs berücksichtigt). Nun zu den einzelnen 
Menüpunkten, die durch einfaches Anklicken der Schalter ange- 
wählt werden. 
im Spielfeld konstruleren 

Bevor ein Spiel gestartet werden kann, muß erst ein Spielfeld 
konstruiert werden. Zu diesem Zweck begibt man sich in das 
Construction-Set. Nach kurzer Wartezeit ist man im Konstruktions- 
menü. Auf der rechten Seite des Bildschirms ist eine 15 x 15 Felder 
große Matrix, die dem Spielfeld entspricht. Durch Anklicken einzel- 
ner Felder können diese entweder gesetzt oder gelöscht werden. 
Wird die Maustaste gedrückt gehalten, setzt BACS kontinuierlich 
Punkte. 

Die anderen Funktionen haben folgende Bedeutungen: 
- Feld laden: 

Auf Diskette gespeicherte Felder werden geladen. 
- Feld löschen: 

‚Auf Diskette gespeicherte Felder löschen 
- Feld speichern: 

Feld auf Disk abspeichern 
- Loeschen: 

Spielfeld löschen 
- Fuellen: 
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Spielfeld ganz ausfüllen 
- Tester: 

Dieser Menüpunkt muß aktiviert werden, bevor gespielt werden 
kann, Das Spielfeld wird nach Aufruf dieses Punktes auf seine 
Spielbarkeit hin überprüft. Spielbare Felder dürfen keine Einerfel- 
der enthalten, das heißt, jedes Feld muß mindestens zwei Nachbar- 
felder haben. Weiterhin muß das Spielfeld in einem durchgehen, 
das heißt, es darf nur ein abgeschlossenes Spielfeld vorhanden 
sein. Der Tester meldet solche unkorrekten Spielfelder entweder 
mit »Einerfeld vorhanden« oder mit »Kein korrektes Spielfeld«. Zu- 
gelassene Felder werden mit »Spielfeld ist zugelassen« quittiert. 
- Menue: 

Rücksprung ins Hauptmenü. 

Für sämtliche Diskettenoperationen wird ein Filerequester, der 
selbständig ein angeschlossenes Laufwerk DF: erkennt, verwen- 
det. Dessen Bedienung wird kurz erläutert: Oben wird in Fettdruck 
der Diskettenname angegeben, darunter das aktuelle Verzeichnis. 
Im oberen der beiden Kästen sind die Unterverzeichnisse aufgeli- 
stet, in die durch einfaches Anklicken verzweigt werden kann (mit 
gedrückter Maustaste kann auf- 
wärts oder abwärts »gefahren« 
werden). Durch Anklicken der 
kleinen Pfeile kann der Anzei- 
gebereich verschoben werden. 
Das gleiche gilt für den »File- 
Kasten« darunter. Jeder Lade-, 
Speicher- oder Löschvorgang 
muß durch Anklicken von 
»O.K.« bestätigt werden. Zur 
Eingabe des Savefile-Namens 
muß unter »Zu speicherndes Fi- 
le« geklickt werden, worauf der 
Cursor erscheint. Nachdem ein 
‚Spielfeld entworfen oder gela- 
den wurde, müssen noch die 
Spieleinstellungen vorgenom- 
men werden. Nach Anklicken 
der entsprechenden Box im 
Hauptmenü können folgende 
Einstellungen vorgenommen 
werden: 

- Die maximale Denkzeit für ei- 
nen Zug (einfach in der oberen 
Reihe die gewünschte Zeit an- 
klicken). 

- Die Anzahl der Spieler. Die 
Spielernamen werden nach der 
Auswahl der Spieleranzahl au- 
tomatisch abgefragt. Durch Anklicken von »Menü« gelangen Sie 
wieder in das Hauptmenü. Jetzt kann das Spiel gestartet werden. 
Sollte irgendeine Operation nicht korrekt ausgeführt worden sein, 
so meldet der Computer, was noch gemacht werden muß. 

Während des Spiels ist der Bildschirm wie folgt aufgeteilt: Die 
rechte Hälfte beinhaltet das Spielfeld. Auf der linken Seite wird an- 
gezeigt, wer gerade am Zug ist. Unter dieser Anzeige sind die Spie- 
lernamen aufgeführt. Hinter diesen wird die vom Spieler jeweils 
schon in Anspruch genommene Denkzeit angegeben. In der Mitte 
oben wird angezeigt, wieviel Zeit dem Spieler noch für seinen Zug 
verbleibt. Die letzten drei Sekunden werden durch Pieptöne beglei- 
tet. Durch Druck auf die linke Maustaste wird das Spiel und die Zeit 
des ersten Spielers gestartet. Um auf ein Feld zu setzen, wird ein- 
fach mit der Maus das entsprechende Feld angeklickt. Falls das 
Feld nicht besetzt werden darf (weil es schon ein anderer besetzt 
hat), wird dies durch einen Pieps mitgeteilt. Durch Druck auf 
<F10> läßtssich das Spiel in den Pausemodus bringen. Zum Wei- 
terspielen einfach die linke Maustaste drücken. Wenn man keine 
Lust hat, das Spiel zu Ende zu spielen, kann es durch <CTRLQ> 
abgebrochen werden. Zur Sicherheit wird das Spielfeld ausgeblen- 
det (auch bei Pause) und eine Sicherheitsabfrage durchgeführt. 
Nach Spielende wird der Gewinner bekanntgegeben und die High- 
und Low-Score-Liste gezeigt. Falls ein Spieler in eine der beiden Li- 
sten aufgenommen wurde, wird diese automatisch auf Diskette ge- 
speichert. Ins Hauptmenü gelangt man durch einen Druck auf die 
linke Maustaste. Während der Benutzung des Programms kommt 
es vor, daß der Computer eine Meldung zu machen hat. Sie er- 
scheint rot und zentriert auf dem Bildschirm. Um das Programm 
fortzusetzen, drücken Sie einfach die linke Maustaste. 
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Der letzte Hauptmenüpunkt ist »QUIT«. Nach Anklicken der Box 


wird noch einmal eine Sicherheitsabfrage durchgeführt. 


Wenn Sie außer Spielen auch noch das Programmieren im Kopf 


haben, sollten Sie sich das Programm etwas genauer ansehen. 
Durch die Benutzung des Betriebssystems ist das Programm kom- 
fortabel und schnell. Die Auswahl einer Datei sollte immer über ei- 
nen Filerequester geschehen, wie BACS es vormacht. Fehleinga- 
ben sind dadurch vermeidbar. Außerdem muß der Benutzer nicht 
raten, wie die Datei heißt. Überprüfungen, wie BACS sie vornimmt, 
beispielsweise kein Spielstart ohne vorherige Voreinstellungen, 
sind beispielhaft. Übrigens finden Sie auf unserer Programmser- 
vice-Diskette 15 fertige Spielfelder. Das heißt viele Stunden Spiel, 
Spaß und Spannung... 


Markus Boner/Klaus Schreck/kn 
» Programmname: Lade _Buh-Au_CS 1 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: Amiga-Basic 1.2 
Bemerkung: Startprogramm ® 


Programmautor: Markus Boner, Klaus Schreck 


1 W80 CLEAR,45000& 
2 Xn LOAD*buh-au_cs”,r 
(6) 1989 mat 


Listing 1. Das Ladeprogramm zum »Buh-Au-Construction- 
‚Set« lädt das Hauptprogramm 


_Programmname: Buh-Au_0S - 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: Amiga-Basic 1.2 


Programmautor: Markus Boner, Klaus Schreck 


UYFO LIBRARY"graphies. Library” 

2 8M LIBRARY "exec. Library” 

ZUZ LIBRARY”os. Library” 

462 LIBRARY "Intuition. library” 

5 UL DEOLARE FUNOTION AllocMen& LIBRARY 

6.06 DECLARE FUNCTION Examines LIBRARY 

7 30 DECLARE FUNCTION ExNext& LIBRARY 

8 £9 DECLARE FUNCTION Lock& LIBRARY 

0X DECLARE FUNCTION Unlock& LIBRARY 

10 BU DECLARE FUNCTION OpenDevicek LIBRARY 

11 a6, DECLARE FUNCTION CloseDevice& LIBRARY 

120 exke2 17: Infoß-AllocNenk(252&,exk) 

hp, af="trackdisk.devios”+ChR$(0) 

Q& exksOpenDevice&(SADD(a$) ‚18, info&,0):dfif-exk< >0 

Ph IF NOT afı@ THEN 

M6 Wy2 exk=0loseDevices(infos) 

17 Deo zw IF 

18 Te RANDONIZE TIMER 

19 25 DEF FN Maus=PEBK(125747218) AND 64 

20.61} DEFINT a,e,1,x,7,8,%,h,J,8 

Ai he | DIN sbe#(3) ‚ming(3)‚see$(3) feld%(14,14) ‚init$(14,14) ‚Feld 

farbef(14,14) ‚dir$(100) 

ZaEE) DIM stape1%(225,2) ‚wert#(3) ‚spielername$(3) ‚punktes(3) ‚nam 
) ens{3),file$(100) 

23 Yy DIM hse#(13),hso$(13) ‚1sc2(13) ‚1s0$(13),einr(100,1) 

ZUBE driveg=":":G0SUB LiesDiskNane 

11e$(0) :a$=UrDisk$+":SCORES.bes“+CHR$(0) 

(ck&(SADD(a$) ‚-2):ScoreFehlerg=exk=0 


:GOSUB HighScores 
WINDOW CLOSE 1:SOREEN 1,640,255,3,2:WINDOW 2, ,,16,1 
}| Farbenloeschen 
1 ON MOUSE GOSUB MouseTest 
I ON TINER(1) GOSUB.Zeitäuswertung 
GOSUB Loeschen:titlef: 88%-1:C05UB Aufbaul; 
Endlos: 
IF komp AND zahl=2 THEN GOSUB Computer 
ag=INKEyS 
IF a$<>"" THEN 
IF a$=CHA$(129) AND Flagt-1 
MOUSE OFF:SOUND 800,2,255,0:titleg=NOT titlez 


Spiele 


| 


20 tr = 

sm $ THEN Wertung$=Wertung$+"ein” ELSE Wertungs=W 
ung$+"aus” 

E23 Meldung Wertung$,2:MOUSE ON 


17) AND flegg=24 THEN 


46 35 WINDOW &,,(300,30)-(570,210),0,1 

27.00 GOSUB Sicher:WINDOW CLOSE 4 

da 37 IF ja IHEN 

49 936 flagf-1 

Er GOSUB NeustertInitislisierungsRoutine 
51=0 IF komp THEN konp=0:spanzf=1 

52 ex GOSUB Aufbaul 

53 885 

> 616 

55 pi4 


56.26 MOUSE ON 
2 mm ır 


58835 IF a$-CHR$(138) AND Flagg-24 THEN 

S9=74 TIMER OFF:MOUSE OFF:WINDOW 4,,(300,30)-(570,210),0,1 

502 

Gim coioR 4,0:L0CATE 10,7:Printe “Zum Weiterspielen bitte” 

E2PD LDCATE 12,4:Printe “Ale linke Maustaste dn“+CHR$(252)+ 
"cken!!“ 

83 0) 

&yr mm ır 


FO ye IF flagg-1 THEN RESTORE Dateni 
Ta IF Fleg£>2 AND flagS<7 OR flagf=20 THEN RESTORE Daten2 
flag$=11 OR flag$-22 THEN RESTORE Daten 


OR flag$=23 THEN RESTORE Daten5 


MALER IF flag$«15 OR flag$=24 THEN RESTORE Daten6 
SWL IF Flag$«-3 OR flag$=-2 THEN RESTORE Daten? 
TEUX J=flags 


2 THEN flagS=j:RETURN 
BO dp READ y1,x2,y2,flag%,farbef,wort$ 
1 AND mx<ex2 AND ny>=yl AND my<=y2 THEN 


B2xi2 mouse orr 

33 Ne fleg5<20 THEN 

u Zeichnen2 x1,71,x2,y2,?arbef,wort$ 

Br F flag%<-1 THEN GOSUB Ja:RETURN 

86 cR N flag% GOSUB Aufbaul,Quit,Aufbau2,Loeschen,Checker, R 
ellen, Out, Out, Out, ‚Aufbau3,Anklioken2,Spielersuswahl,A 
bbruch,Aufbaud 

BZuE mouse on 

BB RETURN 

B23 z= 

SO ML DM (Flagt-19) GOSUB Anklicken, ‚Anklicken2,SpielerEinga 
be, Setzen 


91 Yp MOUSE ON 

es zer 

Sam zw ır 

S& SIo zw IF 

953) 5070 Neu 

GOCH Deteni: 

9736 DATA 60,140,300,172,3,2,Spielfeld konstruleren, 340,140, 580 
„172,11,3,Spieleinstellung 

98 50 DATA 60,184,300,216,15,4,Spiel starten, 340,184, 580,216, 2,5 

azu beten2 

10062 DATA 300,0,570,180,20,0,,8,200,88,224,4,6,Loeschen, 360,200 
»440,224,5,4,Tester,536,200,608,224,1,3,Menue 

1OLSX DATA 8,0,248,24,7,7,Feld laden, 8,96,248,120,8,5,Feld epelo 

= ,176,200,248,224,6,2,Fuellen 

a 8,49,248,73,9,4, Feld löschen, -1 


’a 220,38,300,57,7,4,0.K. ,220,86,300,105,8,4,Abbruch, 220 
0,300,129,9,3, "&f0:” 

10522 Data 220,159,300,177,10,3, "äf1:”,4,38,186,105,1, ,,186,38,2 
E 52,2, ,,186,91,210,105,3, ,,4,110,186,177 

EOS zu DaTa 4,,,186,110,210,124,5, ,,186,163,210,177,6,,,4,194,186 


Listing 2. Ein Spiel mit »allem Drum und Dran«: 
»Buh-Au-Construction-Set«. Bitte mit dem Checksummer 
(Seite 143) eingeben (Fortsetzung). 
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»209,11,,,-1 

Datend: 

DATA 80,0,160,24,22,2,05-Sek,160,0,240,24,22,2,10-Sek,240, 

0,320,24,22,2,15-Sex,320 

DATA 0,400,24,22,2,20-Sek,400,0,480,24,22,2,25-Sek,480,0,5 
‚24,22,2,30-Sek 

DATA 200,48,440,72,13,5,Ein Spieler, 200,104,440,128,13,5,2 

‚wei Spieler, 200,160,440,184,13,5,Drei Spieler 

DATA 552,200,624,224,1,4,Menue,8,200,80,224,1,4,Henue,-1 

Datens: 

DATA 80,72,160,96,14,4,0kay,4,6,236,18,23,3, »4,30,236,42,2 

3,4,,4,54,236,66,23,5, ,-1 

Datens: 

DATA 300,30,570,210,24,,,-1 

Daten7: 

DATA 16,26,63,44,-2,5,02,168,26,216,44,-3,3,NEIN,-1 


ee ui oo 27 
or oo oo 
wo ser 
ee 
we mono nr 
ee mon nom 

LITT ee u ou mn 


58 
DATA 40,80,5,40,93,5,42,79,2,42,105,3,75,80,5,75,93,5,77,7 
19,2,77,105,3,101 
DATA 80,1,101,93,1,115,80,5,115,93,5,119,80,6,132,93,6,148 
 ,80,1,148,93,1,163 
DATA 79,2,161,80,5,163,92,4,187,93,1,163,105,3,200,79,2,22 
15,79,2,224,80,1 
|Data 224,93,1,263,80,5,265,79,2,263,93,5,289,80,1,265,92,3 
1275,93,6,303,80,5 
DATA 303,93,5,305,105,3,329,80,1,329,93,1,343,80,5,343,9, 
5,345,79,2,345,105 
DATA 3,382,79,2,407,79,2,406,80,1,406,93,1,445,80,1,445,93 
»1,459,80,5,459,93 
DATA 5,461,79,2,461,105,3,485,80,1,485,93,1,499,80,5,499,9 
3,3,503,80,6,516 
DATA 93,6,532,80,1,532,93,1,2,79,2,0,80,5,2,92,4,28,93,1,2 
»105,3,43,80,5 
|outa 43,93,5,45,79,2,45,92,4,45,105,3,83,79,2,108,79,2,107 
‚80,1,107,93,1 
LE Aufbaui: 
Ss 
RESTORE Dateni 
call Farbenloeschen :call Zeichnen (4):COLOR 6,0:Cotoxy 18 
4,240 
Printe CHR$(169)+” in 1988 by M. Boner 5 K. Schreck” 
IF titleg THEN 
RESTORE TitelDsten:COLOR 6,0 
FOR is1 70 7 
READ a8 
FOR j=1 TO LEN(a$) 
IF MID$(a8,3,1)=”#” THEN GOSUB Viereck 
NEXT 
NEXT 
COLOR 7,0:READ } 
FOR k=1 TO j:READ x,y,1:x=x+3: 


CLS:RESTORE Deten2:call Farbenloeschen:Zeichnen 8 
FOR y=0 10 14 

FOR x=0 70 14 
IF feldg(x,y)>0 THEN feläZ(x,y)=0 

GOSUB Kaestehen 

NEXT 
NEXT 
(COLOR 6,0:call Farbensetzen 
RETURN 
Aufbaus: 
(CLS:RESIORE Daten4:call Farbenloeschen:Zeichnen 11 
IF x7 THEN Zeichnen2 x7,37,x8,y8,2,bworts 
call Farbensetzen 
BETURN 
aufvaus: 
Flag=24 
Neusetzen x1,y1,x2,72, farbe£,wort$ 
IF anzahl=0 OR zeiger<>1 OR spanzf-0 OR zeit-0 THEN 


Nlagg-ı 

IF anzahl-D THEN Meldung "Kein Spielfeld vorhanden”,4:RE 
TURN 

IF zeiger<>1 THEN Meldung "Bitte erst den Tester aktiv 
1eren”,A:RETURN 

IF spanzf=0 THEN Meldung "Spielereinstellung vornehmen“, 
A:RETURN 

IF zeit-0 TEEN Meldung "Zeiteinstellung vornehmen”,4:RET 
um 

D IF 

BASE feläfarbe$:DIM feldfarbeg(14,14) 
'zahl=0:C15:call Farbenloeschen:LINE (300,30)-(570,210),7,b 


yon 
FOR 2=0 70 14 
IF feldg(x,y)<>-1 THEN 
x3=30041218:x4=3184x818: 73-301 yR12:y4=h2HyR12 
LINE (x3,33)-(x4,34),6,b 
LINE (x3+1,73+1)-(x4-1,y4-1) 2,68 
AD IF 
NEXT 
NEXT 
‚FOR 1=1 TO spanzf 
sbez(4)=0 
IF spielernane (1 
$(1):sdeg(1)>-1 
nExT 
IF spana$=1 THEN spanzf=2:komp--1:spielername$(2)="ANIGA” 
Ihz=zeit:COLOR 3,0 
LOCATE 10,2: Printe spielername$(1)+” ist am Zug.” 
LOCATE 2,31:Printe "Denkzeit “+CHRS(252)+"brig: 
IS" # # "he 
(COLOR 6,0:LOCATE 13,2:Printe "Verbrauchte Zeiten:” 
FOR 1=1 TO spanzf 
ming(1)=O:s20%(1)=0:00L0R 1+2,0 
LOCATE 13+2*1,2:Printe spielernane$(1) 
U inte ” : 00.00” 


THEN spielernane$(1)="Spieler‘4STR 


PALETTE 2,.2,.2,.7:PALETTE 7,.3,.3,.3 
zahl-ı 
Meldung "Zun Spielbeginn Haustaste dr”+CHR$(292)+"cken”,4 
TIMER on 
RETURN 
Viereck: 
x=5743#10:ys1041#5:LINE (8, y)-(x7,943) 468 
RETURN 
Led 
IF 4=1 THEN 

LINE (x,y)-(x,y+11):LINE (x-2,y+1)-(x,y+10),,bE 
zISE 
IF 1-2 THEN & 

LINE (x,y)-(x+22,y):LINE (x#2,y+1)-(x+20,y+1) 

zISE 

IF 1=3 THEN 

LINE (x,y)-(x+22,y):LINE (x+2,y-1)-(x+20,3-2) 


1=4 THEN 
LINE (x,y)-(x+22,y):LINE (x+2,y-1)-(x+20,y+1) ,,bf 
EISE 
IF i=5 THEN 
LINE (x,y)-(x,y+22):LINE (x,y+1)-(x#2,y+10),,bf 
ELSE 
IF i=6 THEN 
LINE (x,y)-(x+11,y#11):LINE (x+2,y)-(x+12,y+10 


‚Setzen: 

IF POINT(mx,ay)=7 OR POINT(mx,my)=6 THEN RETURN 
‚2={mr-300)\18:y-(ny-30)\12 

'Setzen2: 

IF feldfarbef(x,y)=0 OR feldfarbef(x,y)=zahl+2 THEN 
TIMER OFF:SOUND 800-2ah1#100,2,255,0 
Seldfarbez(x,y)=zahl+2:feläg(x,y)=feläf(z,y)+1 
wert$(zahl)=wertä(zahl)+1 

au=305+(x28) +(1082) 157239 (yr8)+(A0y) 
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Spiele 


Gotoxy gx,gy:COLOR zahl+2,2:PRINT CHRS(feld2(x,7)+42) 
IF feld$(x,y)=initf(x,y) THEN i=0:60SUB Ueberlauf 
IF spanz$-null=1 THEN GOSUB Endauswertung:RETURN 
zahl=zehl MOD spanzf+1 
IF wertf(zahl)=-1 THEN zehl-sehl MOD spanzf+l 
GOSUS NeuerSpieler 
TIVER ON 

ELSE 
SOUND 1000,4,255,0 

END IF 

RETURN 

) Veberlauf: 


IF feldf(x-1,y)<>-1 THEN 
IF feldfarbef(x-1,5)<>zahl+2 AND feldfarbez(: 
HEN 
wertß((feldfarbeg(x-1,y))-2 
))-2)-Pelag(x-1;y) 
wertä(zahl)=wert$(zahl)+feldg(x-1,7) 
AND IF 
feldf(x-1,y)=feldk(x-1,y)+1:feldfarbez(x-1,y)-zahl+2 
IF (feldf(x-1,y) MOD init@(x-1,5))=0 THEN i=i+1:stapel 
#(1,1)ax-1:5tape18(1,2)=y 
Gotoxy gx-18,gy:PRINT CHRS(Feldf(x-1,7)+48) 
END IF 


1,5) T 


ertß((feldfarbes(z-1,5 


IF feläg(x+1,y)<>-1 THEN 
IF feldfarbeß(x+1,y) <>zahl+2 AND feldfarbef(x+1,y) T 
HEN 
wert#((feldfarbef(x+1,y))-2)=wertf((feldfarbeg(xe1,y 
N-2)-Felds(x41,y) 
wert$(aahl)=wertf(sahl)+feld2(x+1,7) 
END IF 
feldf(x+1,y)=feldf(x+1,y)+1:feldfarbeg(x+1,y)=zahl+2 
IF (feldg(x+1,y) MOD init@(x+1,y))=0 THEN iei+l:stapel 
#(1,1)=x+1:stapel$(1,2)=y 
Gotoxy gx+18,gy:PRINT CHR$(feldf(x+1,y)+48) 
END IF 


82 bB IF y THEN 
Ri2 IF feldg(x,y-1)<>-1 THEN 
E3 W4 „IF feldfarbef(x,y-1)<>zahl+2 AND feldfarbef(x,y-1) T 
j HEN 
wert&((feldferbe(x,y-1))-2)=wertg((feldfarbeg(x,y-1 
))-2)-felag(x,y-1) 
wert&(zahl)=wert&(zahl)+feldg(x,y-1) 
END IF 
felak(x,y-1)=feldt(x,y-1)+1:feldferbeg(x,y-1)=zehl+2 
IF (feld%(x,y-1) MOD initf(x,y-1))=0 THEN 1=1+1:stapel 
KA,1)ex:stapelf(1,2)ey-1 
Gotoxy gx,gy-12:PRINT CHR$(feld$(x,y-1)+48) 
291 aU2 END IF 
292 eX0. END IF 
ms IF y<14 THEN 
2 IF feldß(x,y+1)<>-1 THEN 
IF feldfarbeg(x,y+1) <>zahl+2 AND feläfarbef(x,yei) T 
BEN 
wertk((feldfarbef(x,y+1))-2)=wertg((feldfardes(x,yı 
))-2)-Peläg(x,y+1) 
wertf(sahl)=wert4(zahl)+reldg(x,y+1) 
END IF 
feldk(x,y+1)=feldf(x,y+1)+1:feldfarbet(x,y+1)=zahl+2 
IF (feldß(x,y+1) MOD init£(x,y+1))=0 THEN j=i+l:stapel 
#4,1)=x:stapelf(1,2)-ys1 
Gotoxy gx,gy+12:PRINT CHRS(FELäX(X,y+1)+42) 
END IF 


telä£(x,y)=felä£(x,y)-initz(x,y) 

Gotoxy ax,Ey 

IF felä%(x,y)-0 THEN PRINT " *:feldfarbe&(x,y)=0 ELSE PRIN 
T CHR$(feläg(x,y)+48) 


TO spenzt 

IF wertß(k)=0 THEN nullsnull+i:wert£(k)=NOT wertZ(k) 

spanzf-null<>1 THEN Meldung spielemname$(k)+” ist ausge 

schieden”,k+2 ELSE k=spanzg: 

NEXT 

IF } THEN RETURN 

IF 1 THEN xestapel2(1,1):y=stapel2(1,2 
:1=1-1:6070 Ueberlauf 


=305+ (288) +(10%x 


AS Tompun 
315 45 MOUSE OFF:DIM kont(225,2 
560; ra yoroı 

2 mon 
IF feldfarbef(x,5)-zahl+2 AND feläf(x,y)-initf(x,y)-1 T 
{3,1)=x:kont(i,2)=y 


Bee 
> 


BL 1% tprior-0:k«0 
32220 WEILE hz>1 AND x<i 


prior-O:k=k+l:x-kont(k,1):y=kont(k,2) 
IF x>0 THEN 
IF feldfarbeg(x-1,y)=zahl+1 THEN 
Prior=priore1 


IF feläf(x-1,y)=init£(x-1,7)-1 THEN priorsprior+l 
END IF 
zw ıF 
IP x<14 THEN 
IF feldfarbef(x+1,y)=zahl+1 THEN 
priorsprior+1 
IF feläf(x+1,y)=initf(x+1,y)-1 THEN prior=prior+l 
END IF 
3352 zwır 
36h IF y>0 THEN 


337046 IF Seläfarbeg(x,y-1)=zahl+1 THEN 

338 v&6 prlorspriorl 

339 1 IF feldg(x,y-1)=initß(x,y-1)-1 THEN prior=priorst 
Bag mwır 

BER mm ır 


Bazze| IF y<ı4 mHEN 


SW IF feldfarbeg(x,y+1)=zahlei THEN 

344 136 priorsprior+l 

MP IF feläf(x,y+1)sinitg(x,y+1)-1 THEN priorsprior+l 
346 weh zu ır 

BT zw ır 

See IF prior>hprior THEN jekihprior=prior 

349 480 end 


35085 IF wert£(2)>3 OR hprior<>0 THEN 
SsEm02 IF 1>0 THEN 


352 W04 IF hpriorsO THEN k=INT(RNDKL)+1:xskont(k,1):yakont(k,2 
= ) ELSE xekont(},1):ykont(J,2) 

353 du] zw ır 

354 @X0 ano IF 


355 IK IF 1-0 OR (wert£(2)<4 AND hprior=0) THEN 

356 KB2 x=INT(RND*15) :y=INT(RND*15) 

35717 WIILE feläferbet(x,y)=zahl+1 OR feldg(x,y)=-1 
35 MD | x=INT{RND*15) ;y=INT(RNDS15) 


361 @U ERASE kont:GOSUB Setzen2iMOUSE ON 
362 C0 rerum 
363 3Y Zeitäuswertung: 
SEA DE IF fleg$=24 OR flag$=15 THEN 
365 Bel IF NOT komp OR (zehl=-1 AND komp) THEN MOUSE STOP 
sec#(zahl)=secf(zahl)+1 
IF sect(zahl)=60 THEN seof(zahl)=0:min(zahl)=ming(sahl)+ 
ı 
COLOR zalil+2,0: LOCATE 13+2%zahl,25 
IF min$({zah1)<10 THEN PRINT "0°; 
PRINT RIGHTS(STR$(ming(zeh1)) ‚27-P0S(0))5"."; 
IF sec#(zah1)<10 THEN PRINT "0"; 
PRINT RIGHTS(STR$(sec$(zah1)),30-POS(0)) 
heshe-1 
IF ha<4 THEN SOUND 800,2,200,3 
IP hz=0 THEN 
zehl-zehl MOD spansg+1 
IF vert£(zahl)=-1 THEN zahl=zehl MOD spansf+1 
SOUND 800,4,200,3:G0SUB NeuerSpieler 
zw IF 
LOCATE 2,47:PRINT USING”# # ";hz 


LOCATE 2,31:Printe Denkzeit “+CHRS(252)+"vrig: *:PRINT US 
mes ;nn 

Listing 2. Ein Spiel mit »allem Drum und Dran«: 
»Buh-Au-Construction-Set«. Bitte mit dem Checksummer 


(Seite 143) eingeben (Fortsetzung). 
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LOCATE 10,2: Printe spielemame$(sahl)+” ist am Zug. “SPACE 
U 3(20-LEN(spielernane$(zanl))) 


IF anzahl=0 THEN zeiger=-3 ELSE zeiger=-2 

GOSUB Wertung 

) RETURN 

END IF 

IF einrfld THEN 

FOR i=1 10 einrfld 
xseinr(1,0):yseinr(1,1):0SUB Kaestchen 

NEXT 

(0) END IF 

3 ERASE init 

‚gesamt=O:zeiger=( 

> FOR yt=O TO 14 

FOR xt=0 70 14 
IF feläß(xt,yt)=O THEN feld%(xt,yt)=1:G0SUB Checkbegin 
syteldıxteid 

NEXT 


IM Initf(14,14) 
{Jsanzahl:elnrf1d=O 


IF zeiger< >=4 THEN 
IF j=0 THEN zeiger-1 ELSE zeigers-1 


 Checkbegin: 


IF xt THEN 
IF feldß(xt-1,yt)>-1 THEN 
feldß(xt-1,yt)=1:initg(xt,yt)=initf(xt,yt)+l 
IF intt&(xt-1,yt)=O THEN Asirl:stapelg(1,1)axt-l:ate 
pelf(1,2)eyt 
END IF 
END IF 
IF xt<14 THEN 
IF feldf(xt+1,yt)>-1 THEN 
feldß(xt+1,yt)=1:1nitä(xt,yt)sinitä(xt,yt)+1 
IF initf(xt+1,yt)=O THEN Asi+L:stape1g(4,1)»xt+l 
pelg(1,2)ayt 
END IF 
END IF 
IF yt THEN 
IF felaf(xt,yt-1)>-1 THEN 
teldg(xt,yt-1)=1:Anitälxt,yt)sinitk(xt,yt)+l 
IP Anit$(xt,yt-1)=0 THEN i=i+1:otapelß(4,1)=x 
14(1,2)=yt-1 
END IF 
END IF 
IF yb<14 THEN 
IF foldf(xt,yt+1)>-1 THEN 
feldg(xt,yt+l)e1:initä(xt,yt)einitä(xt,yt)+t 
IF init$(xt,yt+1)=0 THEN isiH1:stapelg(1,1)=xtistape 
14(1,2)=yt+l 
END IF 
END IF 
IR initf(xt,yt)=1 THEN 
einrfld=einrfld+l:einr(einnfld,0)=xt 
einr(einnflä,1)syt:zelgere-4:x32300+2t418:x4=316+xtK18 
y3=ytr12:y4s10rytri2:LINE(X3,y3)-(X4,y4) 4rbf. 
END IF 
jej-l:gesamtegesant+initk(xt,yt) 
END IF 
‚xtestapelf(1,1):ytsstapelß(i,2) 


‚ape 


A 


FOR x=0 TO 14 

feldk(x,y)=-1 

IF flag$=4 THEN GOSUB Kaestchen 
NEXT 


IF Plagf=4 THEN 
Neusetzen x1,y1,x2,y2,farbef, wort$:anzahl=0:zeiger-0 


[e- Ir 


RETURN 


Fuellen: 
FOR y=0 TO 14 
FOR x=0 TO 14: feld%(x,y)=0:G0SUB Kaestchen:NEXT 
NEXT 
Neusetzen x1,y1,x2,y2, farbef, wort$:anzahl=225: zeiger=0 
RETURN 
Loeschen2: 
FOR y=0 TO 14 
FOR x=0 TO 14: IF feldf(x,y)=1 THEN feldk(x,y)=0 
NEXT 
O NEXT 
RETURN 
J Wertung: 
RESTORE Fehlermeldung 
‚Jegeiger 
IF zeiger=1 THEN j=0 
FOR i=1 TO j+5:READ Wertung$:NEXT 
Meldung Wertung$,4:Neusetsen x1,y1,x2,y2, farbe, wort# 
RETURN 
"Fehlermeldung: 
" DATA Einerfeld vorhanden,Kein Spielfeld vorhanden,Zu klein 
es Spielfeld 
DATA Kein korrektes Spielfeld,Spielfeld ist zugelassen 
Anklicken: 
IF POINT(mx,my)=0 OR POINT (mx,my)=1 THEN RETURN 
. xhe(nx-300)\18:yhany\l2:xexhiyayh 
Marke: 
IF gelag(x,y)=-1 THEN 
feld%(x,y)=0:anzahlsanzahl+i 
ELSE 
feld%(x,y)=-1:ansahlsangahl-1 
END IF 
GOSUB Kaestchen 
WHILE x=xh.AND ysyh AND FN Mai 
nx=MOUSE(0) sme=MOUSE(5) ımy=NOUSE(6) 
he (nx-300)\18:yheny\12 
IF yh>14 OR xh>14 OR yh<0 OR xh<0 THEN yhayıxhex 
WEND 
xexhiyayh 
IF FN Maus=0 THEN GOTO Marke 
zeiger=0 
RETURN 
Anklicken2: 
IF hwort$< > "" THEN 
LINE. (X7+1,y7+1)-(x8-1,y8-1),0,bf 
COLOR 2,0:10CATE 2,3+10*(x7\80):Printe hwort$ 
Ö END IF 
LINE (x1,y1)-(x2,y2),2,bf:COLOR 0,2 
LOCATE 2,3+10*(x1\80) :Printe wort$:C0LOR 3,0 
xTexl:y7eylixBex2:ydey2 wort$swort$:weit=5*(x1\80) 


L Wertung$="Sind Sie 100%1g sicher ?2":C0SUB Requester 


Sicher2: 
Wertung$="File existiert II SAVE ?7”;00SUB Requester 
RETURN 
3 Requester: 

flagt=-3 
WhlleousePressed 
WINDOW 3, ,(196,58)-(428,101) ,16,1:LINE (0,0)-(232,52),6,b 
RESTORE Daten7: Zeichnen 2 

COLOR 4,0:10CATE 2,3:Printe Wertungb:jast 
6 WHILE Jast 

call WattForolick:mx=HOUSE(0) :GOSUB MouseTest 

WEND 

WINDOW GLOSE 3 
| RETURN 
Ja: 
IF flagf«-2 THEN jas-1 ELSE Ja0 
RETURN 

\ Out: 

Neusetzen x1,31,x2,y2, farbe, wort$ 
nunsflag$-6:0$=P112$(0) 
GOSUB LiesDiskName:WBenchToBack 
IF c8<>file$(0) THEN diskfsdriveg:00SUB LeseDir 
file=1:edir=0:WINDOW 3, ,(165,14)-(475,218) ,0,1 

COLOR 6,0:Gotoxy 4,6:POKE WINDOW(8)+56,2:Printe File$(0) 
; X4 POKE WINDOW(8)456,0:Gotoxy 4,18:Printe "Verzeichnis: ” 
Gotoxy 4,30:Printe disk$:LINE (4,32)-(438,32),6 

| Filekasten 0,farbe$:GOSUB DirAnzeige:Filekasten 72, farbef 
 GOSUB Fileanzeige 


2 


TO mwN. HOMECOMPUTERWORLD.COM 


‚AMIGA-SONDERHEFT 9 


Spies 


SEEN a9-RICHTS(wort$, LEN(wort$)-INSTR(wort,” ")) 

548 UX inte "Zu "ta$+"des Plle:” 

549 ze inte namen$(num) 

550 6B LINE (4,205)-(186,205):RESTORE Daten3:Zeichnen 4+H4f1%:k-0 

551.K6 WHILE k<7 OR k>8 

552.002 call WaitForOlick:mx=MOUSE(0) ımx=MOUSE(L) 

553 Au my-MOUSE(2) :k-0:x120 

554 at RESTORE Daten3 

55560 WHILE xI<>-1 AND ke0 

556 @f4  READ x1,yl,x2,y2,flagf,i,worts 

597 E8 IF xi<>-1 AND me>x1 AND my>y1 AND me<x2 AND my<y 

2 THEN keflagf 

SB RR2 WEND 

559 30 IF K>6 AND k<il+df1f THEN ferbegei:Zeichnen2 x1,yl,x2, 
y2, farbe, wort$ 

560.03 IF x1<>-1 THEN 

561 2a4 ON k GOSUB SelDir,DirUp,DirDowm,SelFils,FileUp, FileDox 

n,0k,Abbruch, ChDiek, ChDisk,SaveFile 

562 012 END IF 

563 WKO. WEND 

564 SA RETURN 

565 eB ChDisk: 

566 ZM IF k=10 AND df1% THEN RETURN 

56T ZE Neusetzen x1,y1,x2,y2, farbef,wort$ 

568 nk IF (k=9 AND driveß="420:”) OR (k=10 AND driveß- 

n 

569 eK2 c3=files(0) 

570 wl GOSUB LiesDiskkane:kBenchToBack 

SA Pu IF o$=file$(0) AND disk$=drive$ THEN RETURN 

57219  ülsk$edrives 

57.g22 EISE 

574. Ku2 

575 jp 


ve$,3,1)=CHRS(4B+ABS(VAL(MIDS(Arive$,3,1))-1)) 
sk8:disk$sdriveß:x=0:C0SUB LiesDiskhame:hBenchToBae 


57650 IF xe-1 THEN disk$=oS:driveß="df0: "RETURN 
570 FBO END IF 

578 EL OOLOR 6,0:Gotoxy 4,6:POKE WINDOW(8)+56,2 

579 79 Printe Fl1e$(0)+SPACES(50):POKE WINDOR(2)+56,0 
580 hi GOSUB NeuesDir 

581 JL RETURN 

582 sh Selfile: 
583.15, yelay-113)\8 
584 MR IF y>fanzf-1 THEN RETURN 

585 Y6 Fileloop: 

586.02 IF y>fanaf-1 THEN yefanza-ı 

587 Ob IF x<>y THEN 

588 He2 COLOR 6,0:10CATE 15+x,2 

589 OK Printe fileß(efile+x)+SPACES(22-LEN(?: 
590 SLO END IF 

591 36 coroR 0,6 


$(efile+x))): 


592 GE LOCATE 15+y,2:Printe File$(efile+y)+SPAOES(22-LEN(File$lef 
ile+y))) 

593 XV nx=MOUSE(0) :mx=MOUSE(1) :ny=MOUSE(2) 

59h ob IF m&>x1 AND m<<x2 AND my>y1 AND my<y2 THEN 
\8 


595 5X. IF FN Maus=D THEN FileLoop 

596 Pi COLOR 6,0:L0CATE 15+x,2 

507 gd Printe File$(efilerx)+SPACES(22-LEN(?i 

598 91 namen$(num)=file$(efilerx) 

599. 0F Gotoxy 4,202:Printe nanen$ (nun) +SPACES(22-LEN(nanen$(nun)) 
’ 

&00 22 RETURN 

601 SE 

602 a7 

603 EE y-(my-41)\8Hi:xey 

604 ek IF y>danz THEN RETURN 

605 21 DirLoop: 

606 Al IF eäir-y>danz THEN ysdanz-edir 

607. Wu IR x<>y THEN 

608 bH2 COLOR 6,0:10CATE j+x,2 

9. U Printe dir$(edirıx)+SPAOES(22-LEN(div$(edinex)))ix-y 

610 m£D END IF 

@11 30 COLOR 0,6 

612 kb LOCATE j+y,2:Printe dird(ediriy)+SPACES(22-LEN(dir$(ediray 
» 

613 Ep mx=NOUSE(0) ınx=HOUSE(1) :ny=MOUSE(2) 

614 Kr IF me>x1 AND me<x2 AND my>yl AND ay<y2 THEN y=(my-41)\ 
E23 

615 OK IF FN Maus=O THEN DirLoop 

616 JP COLOR 6,0:10CATE jex,2 

617 78. Printe dir$(edir+x)+SPACES(22-LEN(äir$(edir+x))) 

618 Kin IF edir+x=D THEN 

619 1A2 WHILE RICHTS(d1k8,1)<>"/" AND RICHTS(disk,1)<>*:* 


le$(efile+x))) 


GO L& disk$=LEFT$(disk$,LEN(disk$)-1) 

@1sc2 wEnD 

6228 IF LEN(disk$)<>4 THEN Aisk$=LEFT$(aisk$,LEN(disk$)-1) 

23 e\ı ELSE 

624 ıN2 IF RICHTS(disK,1)<>":" THEN ai. 

5 5F  diskhediskgrdirk(edine) 

626 2v0 END IF 

&27 ua c$=File$(0):GOSUB LiesDiskName:WBenchToBack 

OB DM IF e$<>file$(0) THEN 

9 qn2 Meldung "Falsche Disk in Laufwerk "IDS(driveß,3,1),4 

GO W file${0)=0$:G0SUB Abbrucı 

631 x9 RETURN 

632 810 EnD 

633 Cg NeuesDir: 

3% ol Cotoxy 4,30:Printe disk$+SPACES(40) 

635. h6 FOR 1-1 10 8 

636 592 LOCATE 14+1,2:Printe SPACES(22):LOCATE 5+1,2:Printe SPAC 
2$(22) 

637. HRO NEXT 

638 £u | FOR x=1 TO 3:namen$(x)="":NEXT 

639. 55 Cotoxy 4,202:Printe nanen$ (nun) +SPACES(22-! 

) 

640 KE COSUB LeseDir:WBenchToBack 

&1 35 edirz:efiles1 

642 TA GOSUB DirAnzeige:GoSUB Fileanzeige 

&43 JE RETURN 

bh Xp Saverile: 

645 NK IF mun< >2 THEN RETURN 

46 zn Gotoxy 4,202:Eingabe 22,6,namenf(nun) 

647 nP RETURN 

648 Ft DirDown: 

649 Mi Invertieren 

650 4e D: 

651 282 IF dang-edir>& THEN edir=edir+1:C0SUB Diränzeige 

652 2x0 IF FN Maus=0 THEN DD 

653 B9_ Invertieren 

654 uW RETURN 

&55 Pb Dirup: 

656 28 Invertieren 

657 02 DU: 

8x2 1 edir>0 

659 naO IF FN Nausst 

660. IC Invertieren 

(861 18 RETURN 

662 HR FileDowm: 

663 LP Inver‘ 

BA Ny FD: 

665 1V2 IF fansf-efile>7 THEN efil 

666 QKO. IF FI Maus=O THEN FD 

667 BI Invertieren 

668 8% RETURN 

663 2P Filelp: 

670 54 Invertieren 

7118 Fu: 

672 12 IF efile>i THEN efile-eril 

673 BPO IF FN MaussO THEN FÜ 

(E74 NQ | Invertieren 

675 Fr RETURN 

676. 2} Diränzeige 

ET W3. IF RICHTS(disKS,, 

678. No IF danz<& THEN 

679 22. LOCATE 5,2 

680 yL COLOR 6,0 

681 Oh FOR 1ski+edir TO edi 

682.292 LOCATE OSRLIN+1,2:Printe air$(1)+SPAcEs(22-LEN(atrs(1))) 

683 620 NEXT. o 

84 00 RETURN 

685 28 FileAnzeige: 

686 SC IF fanz$<8 THEN h=fanzf ELSE h=8 

BBZINTS LOCATE 14,2 

688 67 coLoR 6,0 

689 BM FOR isefile TO h-1Hefile 

690 »12 LOCATE OSALIN+1,2:Printe file$(i)+SPACEB(22-LEN(files(i) 
» 

691 E70 wExT 

@92 W8 RETURN 

693.00. 0x 

654 bh. Neusetzen x1,y1,x2,y2, farbef,wort$: 


iskge"/" 


‚EN(namen$ (num) ) 


;OSUB DirAnzeige 


eren 


=efile+1:GOSUB FileAnzeige 


-1:G0SUB FileAnzeige 


EISE k1=0 


=ri1e$(0) 


Listing 2. Ein Spiel mit »allem Drum und Dran«: 
»Buh-Au-Construction-Set«. Bitte mit dem Checksummer 
(Seite 143) eingeben (Fortsetzung). 
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GOSUB LiesDiskNane:WBenchToBack 
IF 08< >files(0). THEN 
Meldung "Falsche Disk in Laufwerk “MID$(drive$,3,1),4 
File$(0)=0$:60SUB Abbruch 
RETURN 
END IF 
IF namen$(num)="" THEN 
Meldung "Kein Filenane”,4:G0SUB Abbruch 
RETURN 
END IF 
ON num GOSUB Laden,Speichern,Delfile 


FOR f=1 TO fanaf 
IF VCASE$(namen$ (num) )=UCASES(file$(1)) THEN x=-1:1-fanz 
® 
NEXT 
IF x THEN GOSUB Sicher2:1F NOT ja THEN RETURN 
OPEN disk$+nanen$(nun)+”.f14” FOR OUTPUT AS #1 
FOR ys0 TO 14 
FOR x=0 TO 14:WRITE#1,feldk(x,y) Anitglx,y):NERT 
NEXT 
WRITE 1,neiger,anzahl,gesant 
Lose #1 
KILL disk$+nanen$ (nun)+”.f14. info” 
WBenchToBack: WINDOW CLOSE 3:h=0 
FOR el TO faneg 
IF UCASES(nanen$(num))=UCASES(fiLe$(4)) THEN he-1 
NEXT 
IF h THEN RETURN 
tanz%=fansf+1:ile$(fanz$) nanen$ (nun) 
GOSUB FileSort 
RETURN 
Laden: 
(OPEN disk$+nanen$(num)+".f1d” FOR INPUT AS #1 
WINDOW CLOSE 3 
FOR yr0 TO 14 
FOR x=0 TO 14 
INPUT #1,feläf(x,y),init#(x,y):GOSUB Kaestchen 


KILL disk$+namen$(num)+",f1d” 

FOR 4=1 10 fanzg 

IF file$(1)-namen$(num) THEN hei 
NEXT 
FOR ish TO fanzg:SWAP file$(i+1),Files( 

IF namen$(num)=nanen$(1) THEN nanen$(1)="" 
‚nanen$ (num)="";fanz$=fans$-1:WINDOW CLOSE 3 
RETURN 


‚Abbruch: 
WINDOW CLOSE 3 
IF flag$e14 THEN flag%=22 ELSE flagf«3 
RETURN 
quit 
Neusetzen x1,y1,x2,y2,farbef,wort$ 
‚GOSUB Sicher 
IF NOT je THEN Plagfe1:RETURN 
SCREEN CLOSE 1:WINDOW CLOSE 2:FreeMem infok,252& 
End 
‚Spielerauswahl: 
Neusetzen x1,y1,x2,y2,farbef,wort$ 
WINDOW 3, ,(200,64)-(440,160) „16,1 
RESTORE Daten5 
IF spans$< >y2\50 THEN 
FOR 1=1 TO 3:spielername$(1)="*:NEXT 
END IF 
spanz$=y2\50:Zeichnen spanz4+1:C0LOR 6,0 
FOR y=1 TO spanat 
LOCATE 2XyHINT(y/1.5) 2 
IF spanz$=1 THEN PRINT”Nane 
Printe spielername$(y) 
NEXT 
x=0 
FOR {=1 TO spanzg 
y=2*1+INT(1/1.5):LOCATE y,10:Eingabe 19,6,spielername$(i 


EISE PRINT Kane’; y 


IF MOUSE(0) THEN 1=spanzf:k=-1 
NEXT 
IF k THEN GOSUB MouseTest 
RETURN 
= SpielerZingabe: 
Jeyz\18 
IF j>spanz$ THEN RETURN 
yr28j+INT(3/1.5):LOCATE y,10:Eingabe 19,6,spielernane$(J) 
IF MOUSE(0) THEN GOSUB MouseTest 


ax3+16: y3ayr12:y4ay3+10 
IF felög(x,y)=-ı THEN 
LINE(x3,y3)-(x4,34) ‚6,08 


EISE 
LINE(x3,y3)-(x4,34) 2,6? 


IF komp THEN komp=0:* 

Meldung spielername$(zahl)+” hat gewonnen 111 ",zahl+2 

COLOR 6,0:C15:LOCATE 5,2:Printe "Die Punkte: ” 

FOR 1=1 TO spanz$ 
Je(ming(1)#60+5e08(1)) 
IF vert$(4)>0 THEN punkteß(1)=INT((wert#(1) 
ht#(30-(3/100)))*1.536421) ELSE punkteg(1)=)+5 

IF punkteg(1)<=0 THEN punkteg(1)=5 

COLOR 1+2,0:L0CATE 5+2#1,4 

Printe spielername$(1)+SPACE$(20-LEN(spielername$(1)))+” 


PRINT USING" e # # # #";punktes(i) 


dr”+CHR$(252)+’cken ! 


CALL WattForOlick:CLS:x=0 
FOR del TO spanzg 
IF punktef(1)>hsc#(13) TEEN 
hsc$(13)=punkteg(i):hse$(13)=spielernane$(1):J=13:x=-1 
WEILE hso$(J)>hsc#(j-1) AND J>1 
SWAP hsof(J) hsck(J-1):5WAP hach(J) hechlJ-1):j=J-L 
END 
ELSE 
IF punkteß(1)<1sc%(13) THEN 
1508(13)=punktef(1):1s0$(13)»spielernaneg(1):j=13:x.-1 
WEILE 1sc$(}) <lsck(j-1) 
SWAP 1sog(J)1scz(j-1):5WAr 1sc$(J),Lsch(J-1)j=J-1 


IF x=-1 THEN GOSUB ScSpeichern 
Farbenloeschen 
(COLOR 3,0:L0CATE 2,8:Printe "13 der Besten...” 
LOCATE 2,47:Printe “und Schlechtesten 
LINE (0,16)-(640,18),‚b£:LINE (320,0)-(321,198), ‚bf 
FOR d=1 70.13 
3=25+1#13:C0LOR 2,0:Gotoxy 8,J:PRINT USINO"# #";1; 
PRINT ",":COLOR 5,0:Gotoxy 64,J:Printe hsc$(1) 
Gotoxy 232,J:PRINT USING" # # # # #"jhach(1); 
COLOR 6,0:Gotoxy 376,J:Printe 1sc$(1) 
Gotoxy 544, J:PRINT USING”# m # ## "jlsch(1) 
© 3=29+4#13:LINE(0,3)-(640,3),7 
NEXT 
|COLOR 4,0:LOCATE 28,27 
Printe "Linke Maustaste dr”+CHRS(252)+"cken 11” 
call Farbensetzen :call WaitforClick :018 
(GOSUB NeustartinitielisterungsRoutine:GOSUB Aufbaul 
RETURN 
NeustartInitialisierungskoutine: 
ERASE wert$,feldfarbe$:DIM wert#(3) ‚feläfarbef(14,14) 


IF feläg(x,y)>O THEN feldg(x,y)=0 
NEXT 

NEXT 

mull=0:flagg-1 

FOR is1 TO 3 

IF sbe$(i)=-1 THEN spielernane$(1)="" 

NEXT 


RETURN 


— 


BEAEO] Lesedir: 
1855 5D FOR 1-0 TO fanaf:file$( 
@0 FOR 1-0 TO danz:dir$( 
15 COSUB LiesDiskNane 


xb=Lock&(SADD(2$) ,-2) 
Nextä(exk, Infok) 


IF je2 THEN dang=dang+1:d1rß(danz)=File$(Fanzf) 
IF RIGHT$(file$(fanzg),4)<>".f1d* THEN 
file$(fanz$)="":fanzf=fanzf-1 
ELSE 
File$(Fans$)-LEFT$(file$(Fanz$) ‚LEN(File$(fanzf))-4) 
END IF 
dunny&=ExNextk(exk, in?oß) 


70 danz 
FOR je1+i TO danz 

IF UCASES(dir$(5)) <UCASES(AINS(i)) THEN SWAP dir$(5), 
dirs(1) 


TO fanzg 
11 TO fanzf 
IF UOASES(FILE$(3)) <UCASER(FiLES(L)) THEN SWAP files( 
J,E11e8(i) 
NEXT 
NEXT 
exkeUnlock&(ex&) 
RETURN 
LiesDiskane: 
a8=äriveS+CHR$(0) :ex&-Lock&(SADD(a$),-2) 
IF ex&=0 THEN x=-1 
dunny&=Exanine& (ext, Infoß 
GOSUB LiesNane: fanzfsh:a$: 
© RETURN 
LiesNane: 
j=PEEK(info&+7) :b$=CHRS(PEEK(infoß+i+8)) 
IF ASC(b$)=0 THEN RETURN 
file$(fanag)=File$(fanzg)+b$: 
(C0T0 Liestiane 
Seladen: 5 
OPEN UrDisk$+":SCORES.bes” FOR INPUT AS 1 
FOR 4=1 TO 13: INPUT#1,hso$(1)‚hsc#(1),1sch(1),1sc2(4):NEX 
7 
GLOSE 1 
RETURN 
SeSpeichern: 
OPEN UrDisk$+":SC0RES.bes” FOR QUTPUT AS 1 
FOR i=1 10 13:WRITE #1,hso$(1)‚hsc$(1),1se$(4),1sc2(i):NE 
at 
(CLOSE 1:KILL UnDisk$+":5CORES.bes. Info” 
WBenchToBack 
RETURN 
HighScores: 
IF NOT ScoreFehler$ THEN GOSUB SeLaden: RETURN 
RESTORE HighDaten 
FOR 1=1 70 13:READ hso$(1)‚hsc$(1),1sc$(1) ‚1seA(4) NEXT 
GOSUB Seßpeichern 
RETURN 
 HignDaten: 
DATA K. Schreck,4000, Murphy, 10,M.Boner,3000, Hurphy',20,ANIC 
4,1000 
> DATA Murphy 30, AMIGA, 800, Murphy, 40, ANIGA, 700, Murphy, 50, AMT 
64,650 
DATA Murphy, 70, AMIGA, 600, Murphy, 90, AMIGA, 550, Murphy, 110, AM 
164,500 
DATA Murphy, 130,ANIGA, 450, Murphy, 150, AMIGA,400,Kurphy,170, 
| ANIGA,300 
JATA Murphy, 190, AMIGA, 200, Murphy, 200 
SUB Eingabe (maxf, farbef,eing$) STATIC 
Wo COLOR farbef,0:Printe eing$:COLOR O,farbef 
5 PRINT” *;:COLOR farbeg,0:aß="" 
WEILE INKEYS <> "":WEND 
| WEILE MOUSE(0) :WEND 
923 81 WEILE af<>CHRS(13) AND MOUSE(0)=0 
OHR]  a$="":a$=INKEY$ 
IF 9<>"" THEN 
IF AS0(88)>31 AND LEN(eing$) <maxg THEN 
eing$=eing$+aS:PRINT CHRS(B) ;a$; 


ile$(0)="": anz&: fanz$=0 
hSk#+CHR$(0) :ex&=UnLockä(exE) 
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COLOR O,farbef:PRINT ” ";:COLOR farbef,O 
END IF 3 
IF a$=CHR$(8) AND LEN(eing$)>O0 THEN 
PRINT CHR$(8) ;CHR$(8) ;:COLOR 0, farbeg 
PRINT ” ";:COLOR farbe%,0:PRINT " ";CHRS(8); 
eing$=LEFTS(eing$,LEN(eing$)-1) 
END IF 


PRINT CHRS(8); 

ND SUB 

SUB Zeichnen(maxf) STATIC 

OR i=1 TO maxt 

READ x1,y1,x2,32, flag, farbef,wort$ 

LINE (x1,y1)-(x2,y2)‚farbeg,b:COLOR farbef,0 
xex1+(x2-x1-LEN(wort$)#8)\2:ysyl+(y2-yir4)\2 


| SUB Zeichnen2(x1,y1,x2,y2,farbef,uort$) STATIC 
(S48 mE LINE (x1,y1)-(x2,32)farbef,b£:C0LOR O,farbez 
949: x14(x2-x1-LEN(wort$)#B)N2:yayl+(y2-y1r4)\2 


Text WINDOW(8) ‚SADD(a$) ‚LEN(a$) 

END SUB 

DE SUB Meldung(Wertung$,exfarbef) STATIC 
((640-((LEN(Wertung$)+2)x8))\2) 

WINDOW 3, ,(x,80)-(x+(LEN(Wertung$)*8)+16,96) ‚16,1 


PAINT (0,0) ‚exfarbef:C0LOR O,exfarbeg:PRINT 
Printe ” “+Wertungs+” " 
IF exfarbeg-2 THEN 

SISTINER 

WEILE TIMER<JI+1:WEND 

ELSE 

call WaltFortlick 
END IF 
WINDOW CLOSE 3 
END SUB 
‚970 He SUB Neustzen(x1,y1,x2,y2,farbe&,wort$) STATIC 
97426 LINE (w1Hl,y1+1)-(x2-1,y2-1),0,bf:COLOR Farbeg,0 
E =x14 (x2-x1-LEN(wort$)&B)\2:yayiHly2-yir4)\2 
Gotoxy x,y:Printe wort$ 
zND SUB 
SUB Filekasten(y‚farbef) STATIC 
LINE (4,38+y)-(186,105+y) ‚Parbef,b 
| LINE (186,38+y)-(210,105+y) ‚Farbef,b 
3 n8 LINE (186,52+y)-(210,91+y) ‚Farbeg,b 
S7OyE AREA (198,424y):AREA (192,484y):ARER (2044847) 
{ a (198,101+y):AREA (192,954y) :AREA (204,95+y) :AREAFILL 
END SUB 
SUB Gotoxy(x,y) STATIC 
: Move WINDOR(8) ‚x,y 
END SUB 
SUB WaitForCliek STATIC 


WEILE FN Maus=“ 
END SUB 

SUB Invertieren STATIC 

SHARED x1,y1,x2,y2 

uk SetDrMd WINDOW(8),2:LINE (x1,y1)-(x2,y2),6,b? 
EL SetDrMd WINDOW(8) ‚2 

END SUB 


:WEND. 


PALETTE 0,0,0,0:PALEITE 1,0,0,0:PALETTE 2,.4,.6,1 
PALEITE 3, .33,.87,0:PALETTE 4,.93, .2,0:PALERTE 5,1,1,.13 


Listing 2. Ein Spiel mit »allem Drum und Dran«: 
»Buh-Au-Construction-Set«. Bitte mit dem Checksummer 
(Seite 143) eingeben (Schluß). 
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07 Tiefstvert 


Die Börse — dieser Begriff setzt Assoziationen fre 
Der eine denkt an Spekulationsge 
und Husarenstreiche, der andere an Crash 
und Verluste. Erleben Sie die Faszination 
der Börse »live« auf Ihrem Amiga 
— und das ohne finanzielles Risiko. 
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aufen und Verkaufen, 

durch geschicktes Ma- 

nipulieren den Gegner 
übernahmereif machen. Die- 
ses Thema stammt nicht aus 
dem Wallstreet-Journal, son- 
dern von einer turbulenten 
Börsensimulation, die so man- 
chen eingefleischten Broker 
ins Schwitzen bringen kann. 
»Broker« (Listing 1) ist ein Spiel 
für zwei bis vier Teilnehmer. 
Durch geschickte Aktionen 
versucht jeder, den Kurs der ei- 
genen Aktien möglichst hoch 
zu treiben, und den der Mit- 
spieler so tief wie möglich zu 
drücken. 

Wer zuerst eine vorher ver- 
einbarte Summe erreicht, ist 
Sieger und kann sich beinahe 
schon als Börsen-Profi fühlen. 
Sie benötigen allerdings sehr 
viel planerisches Geschick 
und ein wenig Glück, um ge- 
gen die Konkurrenz zu beste- 
hen. 

Alle wichtigen Kommandos 
werden mit der rechten Maus- 
taste über Pull-Down-Menüs 
oder wahlweise über Tasten- 
kombinationen (Shortcuts) auf- 
gerufen, die man sich mit dem 
Menüpunkt Help (Bild 1) anse- 
hen kann. Um ein Spiel zu be- 
ginnen, wählen Sie bitte Neu- 
es Spiel an. Nach Eingabe al- 
ler Spielernamen werden Sie 
aufgefordert, das Startkapital 
und den Betrag festzusetzen, 
bei dessen Erreichen das Spiel 
beendet wird. Der Mindestbe- 
trag, der vom Sieger zu errei- 
chen ist, muß mindestens 
zehnmal so groß sein wie das 
Startkapital. 


Broker’s Basar 


In jeder neuen Runde haben 
Sie fünf Handlungspunkte zur 
Verfügung, die Sie gegen Ak- 
tionen an der Börse tauschen 
können. Je nach Art der Ak- 
tion werden unterschiedliche 
Punktzahlen abgezogen. So 
kostet jeder Aktienkauf und 
„verkauf jeweils zwei Punkte, 
Manipulationen der Kurse (sie- 
he unten) zwischen einem und 
drei Punkten. Daneben kön- 
nen Sie verschiedene Dienst- 
leistungen in Anspruch neh- 
men, wobei die meisten bares 
Geld kosten. So können Sie 
sich für 60 Mark die Kursent- 
wicklung ausgewählter Aktien 
ansehen oder für 30 Mark ei- 
nen Vergleich des Kapitals al- 
ler Spieler ausgeben lassen. 
40 Mark müssen Sie investie- 
ren, wenn Sie Informationen 
über die Aktien Ihrer Gegner 
wollen. 

Sie sollten dabei bedenken: 
Jede Information schmälert 
zwar Ihr Bankkonto, aber eine 
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Bild 1. Diese Übersicht erreichen Sie mit der »Help«-Taste oder mit Help aus dem Info-Menü 


Fehlinvestition kann weit wert- 
vollere Handlungspunkte ko- 
sten. Sie können mit dem Me- 
nüpunkt »Börsenaktion« Ak- 
tienkurse teilweise gezielt be- 
einflussen. Voraussetzung 
hierfür ist, daß Sie die Besitz- 
verhältnisse aller Spieler genau 
kennen: Wie viele Brauerei- 
aktien hatte doch gleich die 
Konkurrenz, waren Versiche- 
rungsaktien nicht eben billiger 
geworden? 

Wenn Sie keine Handlungs- 
punkte mehr haben, können 
Sie nur noch Informationen 
einholen oder an den nächsten 
Spieler abgeben (mit dem Me- 
nüpunkt »Nächster«). Bei je- 
dem Wechsel werden die 
Schulden, die sich im Verlauf 
der aktuellen Runde angesam- 
melt haben, mit dem Barkapi- 
tal verrechnet. 

Das Spiel ist zu Ende, wenn 
das Nettokapital eines Spielers 
(Bargeld plus in Aktien ange- 
legtes Kapital abzüglich Schul- 
den) unter 100 Mark fällt oder 
ein Broker den festgelegten 
Spielendbetrag erreicht. Sind 
dabei noch Schulden vorhan- 
den, so werden erst diese ver- 
rechnet. Sind die Schulden ei- 
nes Spielers größer als die 
Hälfte des Startkapitals, wird 
das Spiel ebenfalls beendet. 


Spekulieren 
Sie mit 


Kapital erwirtschaftet der 
Broker, indem er Aktien zu ei- 
nem möglichst billigen Kurs er- 
wirbt (Bild 2) und diese zu ei- 
nem hohen Preis wieder ver- 
kauft. Bei Kauf und Verkauf 
werden jeweils 5 Prozent des 
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Aktienkauf 
Name; Boesky 
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Bild 2. Das Schaufenster für den Aktieneinkauf 


Umsatzes als Maklergebühren 
vom Bargeld abgezogen und 
zwei Handlungspunkte ver- 
braucht. Damit der Spieler 


Broker sind Leute, deren Job 
es ist, an der Börse mit Aktien 
und Wertpapieren zu handeln. 
Dabei werden Kursdifferenzen 
ausgenutzt, um Gewinne zuer- 
zielen. Mit verschiedenen 
Techniken ist es möglich, Kur- 
se zu beeinflussen. So steigt 
der Kurs von Aktien häufig auf 
das Gerücht hin, die Firma 
würde von einer anderen über- 
‚nommen. Solche Tendenzen 
geschickt auszunutzen, ist 
‚Aufgabe eines guten Brokers. 


nicht den Überblick verliert, 
zeigt der Computer beim Ver- 
kauf der Aktien den Ankaufs- 
kurs und den entsprechenden 
Gewinn oder Verlust an. 

Beim Menüpunkt Börsenak- 
tion geht es richtig los. Hier 
spielen sich alle Kursverände- 
rungen ab. Allerdings haben 
Sie nicht unbegrenzt Einfluß 
auf die Kurse. Beim Aufruf ei- 
ner Börsenaktion bestimmt der 
Zufall, welche Manipulationen 
ermöglicht werden. Die ganze 
Handlungspalette zeigt sich 
bei »Manual Activity II« (Bild 3). 
Hier können Sie wählen, wel- 
che Manipulation ausgeführt 
werden soll. Dazu bekommen 
Sie noch eine kurze Erklärung 
zur Wirkung der einzelnen 
Punkte. 
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Bild 3. »Manual Activity Il« 
zeigt Ihnen die ganze Trick- 
kiste der Manipulation 


So gibt es verschiedene Ak- 
tionen, die eine ausgewählte 
‚Aktie steigen oder fallen lassen 
und alle anderen umgekehrt 
beeinflussen. Wenn Sie Ihren 
Mitspielern das Leben schwer- 
machen wollen, ist »Manual 
‚Activity I« für Sie das Richtige: 
Hier können Sie selbst eine Ak- 
tie bestimmen, die steigen und 
eine, die sinken soll. Außerdem 
sind die Veränderungen hier 
weit größer als bei den zufalls- 
gesteuerten Varianten. 

Ebenfalls sehr große Verän- 
derungen erzielen Sie mit 
»Multiple Action Flood«. Hier 
wird jede einzelne Aktie entwe- 
der stark auf- oder abgewertet. 
Fast schon harmlos ist dage- 
gen der gelegentlich auftau- 
chende Fiskus, das Finanzamt 
zeigt sich ungewohnt milde: 
Steuern werden — im Gegen- 
satz zur Realität — nur auf das 
Barvermögen erhoben. 


Notbremse 
für Fehler 


Jede der zufallsgesteuerten 
Aktionen kostet Sie einen 
Handlungspunkt. Sie können 
Kursveränderungen allerdings 
auch noch aufhalten, bei- 
spielsweise, wenn Ihre Aktien 
durch eine zufällige Manipula- 
tion geschwächt oder die Ihrer 
Gegner gestärkt würden. In 
diesem Fall werden Ihnen statt 
einem gleich drei Handlungs- 
punkte abgezogen. Sie sollten 
sich also genau überlegen, ob 
Sie eine Aktion wirklich rück- 
gängig machen wollen. Für die 
wertvolleren Aktionen, bei de- 
nen Sie direkten Einfluß auf die 
ausgewählten Aktien haben 
‚oder die hohe Kursunterschie- 
de mit sich bringen, werden Ih- 


Fre icherung 


Bild 4. Ausgewählte Aktien können Sie als Grafik ausgeben lassen 


Kapitalvergleich 


Bargeld 


17383 


Bitte Taste drücken 


Aktienvert 


Brutto _ Schulden 
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Bild 5. Kapitalvergleich gibt Ihnen Informationen über Ihre 


Mitspieler 


nen immer drei Punkte abge- 
zogen. 

Neben diesen Menüpunk- 
ten, die aktive Manipulationen 
zulassen, gibt es die Möglich- 
keit, Informationen einzuho- 
len. Der Menüpunkt Börsen- 
kurse öffnet ein Fenster, in 
dem die Kurse aller Aktienge- 
sellschaften gezeigt werden. 
Ekurs bedeutet Einstandskurs 
und dient zur Bewertung des 
derzeitigen Aktienstands. Wer 
eine grafische Auswertung der 
Kursentwicklung sehen möch- 
te, kommt bei Charts (Bild 4) 
auf seine Kosten. Es werden 
die letzten 22 Kursbewegun- 
gen von maximal zwei Aktien 
gleichzeitig grafisch darge- 
stellt. Hier sollten Sie aber ge- 
nau wissen, was Sie wollen, 
denn jede Grafik kostet 60 
Mark. 

Daneben können Sie sich 
über die jeweiligen Besitzver- 
hältnisse informieren. Kapital- 
liste zeigt das aktuelle Kapital 
des Spielers, der am Zug ist, in 
Barwert und Aktienwert. Ak- 
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Eingabehinweise 


Tippen Sie Broker mit dem 
Checksummer ab. Beachten 
Sie dabei die Anleitung auf 
Seite 143. Starten Sie jetzt 
‚Amiga-Basic. Aktivieren Sie 
das Ausgabefenster und ge- 
ben Sie 

CLEAR ‚40000,5000 

ein. Laden Sie nun mit »Open« 
Ihr Programm und starten Sie 
es mit »Start«. 


tienliste dagegen zeigt Ihren 
gesamten Aktienbesitz. Um 
sich Informationen über ande- 
re Spieler zu besorgen, muß 
man Gebühren bezahlen. Ka- 
pitalvergleich gibt das Kapital 
aller Spieler aus (Bild 5), Ak- 
tienvergleich den Besitzstand 
in Aktien. 

Informationen über Ihren ei- 
genen Besitz erhalten Sie ko- 
stenlos. Wünschen Sie dage- 
‚gen Informationen über die an- 
deren Spieler, so müssen Sie 
30 Mark (Kapitalvergleich) be- 


ziehungsweise 40 Mark (Ak- 
tienvergleich) für Gebühren 
ausgeben. 

Mit dem Menüpunkt Si- 
chern können Sie ein Spiel un- 
terbrechen und den Spielstand 
auf Diskette sichern. Beim er- 
neuten Start wählen Sie statt 
Neues Spiel einfach Laden 
und spielen dort weiter, wo Sie 
aufgehört haben. 

‚Sie können hierfür zwei Ver- 
fahren anwenden: Wenn Sie 
für den gespeicherten Spiel- 
stand das Directory »Broker- 
data« verwenden wollen, brau- 
chen Sie im Programm nichts 
zu verändern. Sie geben ein- 
fach im CLI ein »makedir Bro- 
kerdata«. Wollen Sie dagegen 
ein eigenes Directory verwen- 
den, dann müssen Sie den 
Pfadnamen bei den gekenn- 
zeichneten Stellen im Listing 
auf die richtige Diskette und 
Schublade umstellen (Zeile 76, 
78, 87 sowie 97, 99 und 108). 

Mit dem Menüpunkt Quit 
verlassen Sie Broker, ohne den 
Spielstand zu sichern. 

Tippen Sie das Basic-Pro- 
gramm »Broker« ab und lassen 
Sie sich faszinieren von der 
Welt der schnellen Gewinne 
und Verluste, der Spekulation 
und der Übernahmen. 

Erleben Sie das Auf und Ab 
der Börse, Hausse und Baisse, 
Erfolge und Crashs — und das 
alles, ohne Ihr Bankkonto zu 
belasten. 


Christian Buchner/kn 
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SPIELE 


Programmname: 


Broker 


A500, A1000, A2000 mit Kickstart 1.2 


Amiga-Basic 


1 x00 
295 
3 u 
4.08 


5.68 
617 
7 
8 6r 


9 tw 
1081 
21 on 
12 &h 
13.10 


16 5mi 
17 m 
18 ja0 
19 eK 
20 q1 
21 Bd 
22 Iv 
23 on 
Ah.OR 
25 60 
26 PL 
27a 
28 zu 
29 IR 
30 uf2 
31 83 
32 ro 
33 J6 
em 
35 70 
36 SPL 
3ıyı 
38 NuO 
39 10 
40 or 
49 
42 1e 
43 182 
u 06 
45 85 
46 
a7 881 
48. Ko 
49 oK 
50 gl 
51 2d 
2 Do 
53 100 
54 In 
55 mx 
56 Zn 
57 800 
58 hal 
59. 
&o.m0 
61 Xı 
291 


64 2p2 


66 bil 
67x20 
68 Keil 
69 H70 
70 v21 
71 e10 
72 mi 
73 80 
7a nei 
75 802 


76 vd 


nn 
"x BROKER - Das Börsenspiel von Sebastian Pete * 
kei (C) 1988 Markt & Technik * 
ae 


RANDOMIZE TIMER 

OPTION BASE 1 

"Variablen und Seresnaufbau 

DIN spS(4) ‚Ak$(13) ‚Ak(4) ‚kap(4) ‚zre(4) ‚za(4,13),2(13),2(13) 
‚v(13) 

DIM st$(13) ‚note$(13) (4,13) ,gr(2) 

1reg=0:endes=0:n0=0 

SCRERI 255,4,2 

WINDOW 2, "BROKER", (0,0)-(630,240) ‚0,2 

WINDOR OUTPUT 2 


14 XU ON ERROR GOTO Fehler 
15 fH FOR i=0 70 15 


READ a,b,c 

PALETTE 1,8/15,6/15,0/15 

NEXT 1 

DATA ,,,15,15,15,15,15,,1532215332,15,152,15,8,8,8, 3,15 
DATA 15,15,15,15,15, ,10,5,3, ,15,3,15,15,,15,,15,15 
LOCATE 15,25:PRINT "Bitte warten Sie einen Moment” 
"Aktiendaten lesen 

RESTORE papiere 

FOR i=1 TO 13:READ AkB(1):NEXT i 

ienlileiste 1 


m. 
RESTORE menua 

READ titel:FOR ie1 TO titel 

READ unter:FOR j=0 TO unter 
READ statu:IF statu>2 THEN status1 
IF j=0 AND status2 THEN statusi 
READ a8 
MENU 1,J,statu,a® 

NEXT J:NEXT 1 

os 

ON MENU GOSUB split 

6070 schl 

"Menilleis‘ 

m2: 
RESTORE menub 

READ t1tel:FOR 1=1 TO titel 

READ unter;FOR j=0 TO unter 
READ statu:IF statu>2 THEN statusl 
IF js0 AND status2 THEN statu=2 
READ a$ 
MENU 1,j,statu,a$ 

NEXT J:NEXT 1:me2=1 

cıs 

'Meusabfrage zu Nenleiste 2 

ON MENU GOSUB split 

IF p THEN G0T0 Kurse 

6070 schl 

"Hauptprogramm 


ä 


[5 
7 
IF hp>0 THEN GOSUB Hpu ELSE IF p THEN GOSUB Nokfpu 
schl: 


(U(1) :MENU OFF 
ON MENU(D) 6010 Broker,Boerse,äktien, Kapakt, Info 


63.080 Broker: 


ON nu GOTO lad, sav,neue,Ende 


65 YzD Boerse: 


ON mu G0TO Boersenak, Kurse, Charts 
Aktien: 

ON nu COTO Aktkauf,Aktverk 
Kapakt: 

ON nu GOTO Kaplist,Kapver,Artlist,Aktver 
Info: 

ON mu G0TO wech, Uebers, Help 
"Menüpunkt Laden 
lad: 

WINDON 4, "Daten 
DOATE 2,1 
FILES "BrokerData” 


den”, (0,10)-(300,180) ,0,2:C0L0R 13,7:CL 


"Directorypfad ge 


gebenenfalls ändern! 


77 6L _PRINT:LINE INPUT "Dateiname: ”;dati$ 

78 fo UEFEI "Brokerdeta/”dati$ FOR INPUT AS #1 "Dirpfad gegeb 
enenfalls ändern 

79 K& INPUT #1,5,kepitel,spielende,p,ip 

80 8% FOR 1=1 TO s:INPUT #1,sp$(i):INPUT #1,kap(i):INPUT #1, 
kre(1):NERT 1 

er Fa1ımı3 

82013 INPUT #1,x(1):INPUT #1,v(4):INPUr #1,2(1):INPUT #1,5 
13(4): E07 #1,note$(1) 

53 m22 NEXT 

43 FRj1Ts 

85 693 FOR 1e1 TO 15:INPUT #1,w(J,Ä):INPUT #1,ka(j,1):NExT 1 

Br NTj 

0 cısE#ı 


70 13:we-VAL(NIDS (st$(1),1,4)) 

IF (se<1000 AND we>99)THEN st$(1)=” "+st$(1) 

<99 THEN st$(1)=" "+et$(1) E 
nze2 THEN GOTO k 


92 8 WINDOW CIOSE 4:WINDOW OUTPUT 2 

93 8K LOCATE 15,25: PRINT "Bitte warten Sie einen Nonent":6070 m 
2 

(94 280 'Nenüpunkt Speichern 

50%1 sarı 

96 632 WINDOW 4, "Daten abspeichern”, (0,10)-(300,180) ,0,2:C0LOR 1 
3,7:CLS:LOCATE 2,1 

9722 FILES "Brokerdsta” !Dirpfad gegebene 
nfalls ändern! 

98 qU_ PRINT:LINE INPUT"Dateinane: ";dats$ 

SO WH OPEN "BrokerData/”+dats$ FOR OUTPUT AS #1 "siehe oben 

100 42. PRINT #1,s,kepital,spielende,p,hp 

01 Er FOR 1e1 TO s:PRINT #1,sp$(1):PRINT #1,kap(i):PRINT #1, 
kre(1):NExT 1 

102 24 FOR 1e1 1013 

103 913 PRINT #1,x(1):PRINT #1,v(1):PRINT #1,2(1):PRINT m1,s 
tS(4):PRINT #1,noteg(1) 

104 m2 nei 

10560 FOR j«eLTOs 

106 NP3_ FOR dei TO 13:PRINT #1,w(J,1):PRINT #1,kalj,1):NEXT 1 

a7 am, 

108 61 CLOSE #I:KILL "BrokerData/"dats$+".info” 'siehe oben 

309 WM WINDOW CLOSE 4:WINDOW OUTPUT 2:G0T0 Quit 

110 &A0 "Menüpunkt Neues Spiel 

21 D01 neue: 

312 422 ummow 4, "Neues Spiel”, (0,10)-(280,140),0,2:00L0R 15,5:0L 
s 

13 ipl wie: 

14 en2 LOCATE 2,1:INPUT "Wieviele Mitspieler”;s:IF (u<2 OR s>4 
) THEN vie 

115 ib PRINT:FOR 11 70 8 

16 y81 sp 

17302 came 1,5 

USA2 LOCATE (28+2),1 

119 eX PRINZane des”i”.Spielers:” 

2oyt color 2,5 

2128 LINE INPUT sp$(i):1-LEN(sps(A)):IF (I<1 OR 1>10)THEN ep 


LOCATE (28143) ,1:INPUT "Startkapital (500-1200 


apitel 
(zapftel<500 OR kapital>12000) THEN kaps 
126 TIL spien: 


127 42 LOCATE (2#144),1:INPUT "Spielende (>=Kapitalt10)";aplele 
nie 
428 Ja IF (spielende<kapitel#10 OR spielende> 9999999) THEN ‚spi 


";sp$(1) PRINT 


192 952 NEXT 1:C0L0R 5,2 

332 gi PRINT:LOCATE „2:PRINT“Startkapital :";kapitel;” DM" 
bass ICAE , "Spielende bei: ";spielende; "DH” 

13517 COLOR 15,5:PRINT:PRINT:INPUT” Alles in Ordung”;2$:IF (2$= 


FOR ip=1 TO 13:x(ip)=INT(1p/2+.5)*150 


Listing 1. »Broker« geben Sie mit dem Checksummer 
(Seite 143) ein 


Aion sonDEHEET NN TOR LON 


343  vCp)=(ass((ip<2)+{ip<4)+(ip<e)s(ip<e)-p<10)+(ip 
<12))+1)"250 

142 Nr FOR 30=1 10 23 

143 EN  18="0000°4STR$(x(1p)) 

144 0 st$(ip)=et$(ip)-NIDS(RS,LEN(h5)-3,4) 

445 583 NEXT io 

446 gR | note$(ip)="BER":2(ip)=INT(ip/2+.5)2150 

147 eb2 NEXT ip 

4148 T0 FOR 1=1 0 s:kap(1)=kapital:kre(i] 

19 7%3 FOR ip«1 70 13:w(1,1p)=0:ka(i,ip)= 

150 772 NEXT i 

35141 psichp=5:IF me2 THEN CLS:G0TO Kurse 

25210 | com nm2 

153. 100 "Menüpunkt Quit 

154 wi Ende: 

155 h52 MENU RESET 

156 40. WINDOW CLOSE 2 

457 00, SCREEN CLOSE 2 

1saıD Em 

159 WKO, 'Nenüpunkt Börsenaktion 

160 MD Boersenak: 

161.Q)1 WINDON 4, "Börsenektion”, (0,10)-(330,235) ‚0,2:C15 

16% mk IF hp<3 THEN GOTO Notg 

163 eD kre(p)=kre(p)+20:r1-INT(RNDF13)+1 

1646| ON rı 0070 Divi,Haba, Haba, Haba, Hafa, Flood, HaBa, HaBa, HaBa,H 
aBa, Mal, Ma2, Fiskus 

165 0b0 !Dividende/Aufwertung 

166 Kyi Divi: 

467 82 COLOR 0,15:CL5:PRINT:PRINT” Dividende/Aufwertung” 

168 MR r1=INT(RND*15):IF r1=0 OR rle14 THEN GOSUB Wahl:C070 eing 

169 GOTO wei 

170 ml eing: 

171 W682 LOCATE 2,1:INPUT” AG-Nummer Dividende/Aufwertung”;ri 

172 IR rI<1 OR m1>13 THEN eing 

173 yP | COLOR 0,15:0L5:PRINT:PRINT” Dividende/Aufwertung” 

474 sl wei: 

17 #82 IR x(r1)<e(ri)THEN G0T0 weiz 

176.wy | PRINT:PRINT” Dividende 4%”: PRINT 

ATI xe PRINT” 

478 km PRINT” AG Diet. Alt 

179 ED PRINT:PRINT TAB(2)Ak$(r1)TAB(18) INT(x(#1)/25)TAB(26)x(r2) 
TAB(33)x(r1)-INT(x(r1)/25) 

180.0h, PRINT” -- . 

181 cW  PRINT:PRINT” Spieler Haben DM Gewinn” 

182 8 FOR ips1 10 8:1OCATE 13+4p,2 

483/5V3 PRINT sp$(ip)TAB(15)w(1p,r1)TAB(25)INT(x(r1)/25)TAB(32)w 

(ip, r1)*INT(x{r1)/25) 

184 ZK2 NEXT ip: PRINT 

485 7 | LOCATE 19,1:INPUT ” Akzeptieren Sie”;jn$: IF Jn$="n” OR j 
n$="N* THEN hpshp-3:G070 vei2 

38607 FOR ip=1 TO s:kap(1p)=kap(ip)+w(ip,r2)*INT(x(r1)/25):NEXT 


‚NEXT ip 


ip 
187 80 x(z1)=x(i)-INT(x(RL)/25)chpehp-1 
188 vAl wei2: 


189 mB2 GOTO ik 
190 yli wei3: 
191 942 PRINT:PRINT” Aufwertung (Kurs=Ekurs) ”; 
192 80 PRINT” ==... 


499 Bu PRINT” AG Auf. Alt 
194/03 PRINT:PRINT TAB(2)Ax$(r1)TAB(18)2(r1)-z(r1)TAB(26)x(r2)Ta 
h B(33)2(r1) 

195 yp PRINT" - 


196 84 | PRINT:PRINT” Spieler Haben &DM 

197 kb FOR ip=1 10 s:LOCATE 13+ip,2 

198 xk3 PRINT sp$(ip)TAB(15)w(ip,ri)TAB(24)2(r1)-x{r1)TaB(32)u{1 
 prrl)*lz(ri)-x(rn)) 

199 hr IF w(ip,r1)=0 THEN veid 

00% IF kap(ip)> (w(ip,r1)*(z(r1)-x{r2)))THEN kap(ip)kap(ip) 

-(w(4p,r1)*(s{r1)-x(r1))):C0T0 weis 
201 GP LOCATE 23,1:PRINT” Achtung, "+sp$(ip)+” ı” 


Verlust” 


202 sn PRINT” Verlust Ihrer "+4k$(r1)+"-Aktien!” 

203 ku kaplip)=kep(ip)+w(ip,r1)*x(r1):v(r1)=v(r1)+w(ip,r2):w(ip 
‚r1)=0 

204 Hoi weis: 

205 72 NEXT ip:x(r1)=e(r1):PRINT:PRINT” Automatische Durchführun 
air 


206 Kx  hpshp-3:G0SUB tast:G0T0 kk 

207 130 "Hausse/Baisse 

208 KM HeBa: 

209 XML COLOR 5,2:0L5 

210 NW | IF hp<3 THEN GOIO Notg 

ZUM IF OR r1=7 IHEN up=1:dwe1 ELSE IP 71-3 OR r1e8 THEN u 


:4u=2 
212 It. I r1=4 OR r1-9 IHEN up=2: 


En 


-1 EISE up=2;du=2 


INT(RNDE13):IF 72-0 OR r2=12 THEN GOSUB Wahl 
71>6 TEEN go3 
21523 IF r2<>0 AND r2<>12 THEN go2 


S 


BET) go: 
217 %02 10CATE 2,1:INPUT ” AG-Nummer Hausse”;r2:IF r2<1 OR r2>1 
3 THEN go 


RIND” Hausse: 
22071 PRINT AG Diff. Alt 
221 bE | ri-INT(RNDRS)+1 

222 26 FRINT TAB(2)AK$(r2)TAB(18)r1%up TAB(26)x(r2)TAB(33)x(r2)+ 


PRINT” a 


Neu”: PRINT 


22509 FRIN a0 Diet. at 
226 7 FOR ipe1 TO 13:IF iper2 THEN go2a 
221 733 LOCHE 129,2 

228 st PRINT Ak$(ip)TAB(18)-r1*dw TAB(26)x(ip)TAB(33)x(ip)-rird 


Neu*:PRINT 


IF iper2 THEN x(ip)=x(ip)+ri#up ELSE x(ip)=x(4p)-rixdw 
234 Ya2 NEXT ip:hpehp-1:00T0 kk 
35 1 203: 


72<>0 AND r2< >12 THEN g05 


237 KUL gos: 
238 0P2 LOCATE 2,1:INPUT ” AG-Nunmer Baisse”;r2:IF r2<1 OR r2>1 
3 THEN g04 


241 GE PRINT” AO Dier. Alt 
242 we risINT(RNDES)+L 
23 97 PRINT TAB(2)Ak$(r2)TAB(18)-riXaw TAB(26)x(r2)TAB(33)x(r2) 


Neu”;PRINT 


-rirdn 
Au ic PRINT” 
IN 


PRINT” 


INT” Hausse 


23611 PRINT” ac Diet. Alt 
247 3B FOR ips1 TO 13:IF iper2 THEN g06 
248 W3 LOCATE 12+1p,2 


Neu“: PRINT 


249 3K PRINT Ak$(ip)TAB(18)r1xup TAB(26)x(ip)TAB(33)x(ip)+rixup 
250 frl go6: 


:IF Snße*n” OR Jn$e 


:INPUT"Akgeptieren Sie”;jni 
N” THEN hp=hp-3:6070 kk 

253 Be FOR ip=1 TO 13 

254 883 IF iper2 THEN x(ip)=x(ip)-rixdw ELSE x(1p)=x(ip)+rikup 

255 v2 NEXT ip:hpehp-1:G070 kk 

256 030 "Multiple Action Flood 

257 WM Flood: 

258 5p1 COLOR 3,0:C15 

259 43 PRINT:PRINT” Multiple Action Flood” 

260 Cn  PRINT:PRINT” ae 

261 yN PRINT” AG Diff, alt Neu” 

26209 FOR ip=1 10 "1=INT(RND#151)-75 

263 182 LOCATE 6+ip,2:PRINT Ak$(ip)TAB(18)r1;"F"TAB(27)x(ip)TAB(3 
4)x(ip)+INT(x(ip)#r1/100) 

26, 9a x(ip)=x(ip)+INT(x(1p)*r1/100):FOR t=1 TO 3000:NEXT t 


265 4g1 NEXT 1p:PRINT“ PLPRIN 
5 

266 32 PRINT:PRINT” Autonstische Durchführung! ":hpshp-3:G0SUB tas 
t:G070 kk 

267 220 "Manual 1 

268 Ta Mal: 


263 b&1 COLOR 1,14:C15 

270 52  PRINT:PRINT” Brokers Manual Activity 1”:GOSUB Wahl 
Ye so: 

212 J£ LOCATE 22,1:INPUT” Welche AG-Nummer soll steigen”;r1 
23 In IF r1<10R r1>13 THEN so 

ZABV 502: 

275 BY -LOCATE 23,1:INPUT“ Welche AG-Nummer soll fallen *;r2 
216 zu IF 72<1 OR r2>13 OR rler2 THEN so2 

277.6 COLOR 1,14:cI5 

Z78 UX  PRINT:PRIN?” Brokers Manual Activity 1”:13=INT(RND#50)+1 
272 LE  FRINT:PRIST” Es steigt” 

BO NK DRIN” nn 
282 AU PRINT” AG Dief. Alt Neu”:pRINT 

282 BE  FRINT TAB(2)Ax$(r1)TAB(18)73; ""TAB(27)x(r1)TAB(34)INT(x(r 


‚AMIGA-SONDERHEFT 9 


SPIELE 


283 5a 
284 RO 
285 F2 
286 TQ 
287 Ce 
288 na 


289 53 
290 XU 
290 


292 3t0 
293 a4 
294 OR 
295 0 
296 2t 
297 26 


298 u 
299 Nu 
300 u 
301 Ih 


302 70 
303 0y 
304 Kn 


305 mm 
306 Ft 
307 32 


308 ns 


309 Tad 
310 Kw 
311 gi 
312 01 
313 fl 
314 06 
315 uy 
316 w5 
317 a0 
218 8 
319 g0 
320 ne 


321 sr 
322 Wc2 


323 2R 
324 33 


325 ır1 
326 06 
327 116 
328 Te, 
329 ol 
330 Mm 
331 Wn 
332 88 


333 54 
334 0x0 
335 tK 
336 401 
337 J0 
338 Y2 
339 122 
340 ht 
341 01 
342 u43 
343 H12 
344 ok 
345 %a 
346 abi 
347 982 


348 2d 
349 je1 


1)+x(r1)#r3/100) 
x(r1)=IND(x(r1)+2(r1)873/100) 
PRINT” = 
PRINT: PRINT” Es fallt; 
PRINT” . 
PRINT” AG Diet. Alt Neu”:pRINT 
PRINT TAB(2)Ak$(r2)TAB(18)-r3; "S"TAB(27)x(r2)TAB(34) INT(x( 
r2)-x(r2)Xr3/100) 
x(r2)=INT(x(r2)-x! 
PRINT” — un = 
FRINT:PRINT:PRINT” Automatische Durchführung! ":hpehp-3:608 
UB tast:GOTO kk 
"Manual 2 
Maz: 
COLOR 1,14:018 
PRINT:PRINT” Brokers Manual Activity T 
PRINT“ RINT 
PRINT* <1> Dividende / Aufvertung”:PRINT” <2> Hausse 
/Raiase (1)> (12)<” 
PRINT" <3> Hausse/Baisse (1)> 
Hausse/Balsse (1)>> (1/2)<” 
PRINT" <3> Hausse/Baisse (1)>> (1/2)<<":PRINT" <6 
> Multiple Action Flood’ 
PRINT” <7> Hausse/Baisse (1/2)> 
Hausse/Baisse (1/2)> (1)<<” 
PRINT” <9> Hausse/Baisse (1/2)>> (1)<":PRINT” <10> 
Hausse/Baisse (1/2)>> (1)<<” 
PRINT“ <11> Manual Activity I”:PRINT” <12> Finansant” 
LOCATE 22,1:PRINT“ Erklärung: >= normal steigend” 
PRINT” >>» stark steigend”:PRINT” 
<= norasl fallend” 
PRINT” <<= stark fallend” 
at: 
LOCATE 18,1:INPUT” Börsenaktion-Nunmer”;ri:If rI<1 OR rl 
>12 THEN at- 
ON 1 6010 Divi,Haba,HaBa, Haba, HaSa, Plood,aBa, Haba, HaBe, 
Haba,Hal,Piskıs 
"Fiskus 
Fiskus: 
Mex=O:maxi=0 
COLOR 4,0:C15 
PRINT:PRINT” Der Fiskus bittet zur Kasse: ”:PRINT 
PRINT” Kapitalertragssteuer” 
PRINT“ SPRINT 
PRINT” (25% des Barkapitals, sofern dieses ” 
PRINT” größer ist als der Freibetrag)” 
PRINT:PRINT“ Startkapital: ";kapftal; "DN” 
PRINT” Freibetrag: ";INZ(kapital#1.5); DM” 
PRINT: PRINT:PRINT” Naze Bar DM Stnetto 
SPRINT 
FOR ipe1 TO s:LOCATE 15+1p,2 
IF kap(ip)>INT(kepitalt1.5) THEN max«kap(ip)-INZ(kepitel 
#1.5) ;maxismax/h 
PRINT sp$(1p)TAB(14)kap(ip)TAB(23) INT (max) TAB(33) INT(maxi 
) 
IF kap(ip)>INT(kapital*1.5) THEN kap(ip)=kep(ip)-INT(nax 
1) :max=O:maxi=0 
NEXT. 1p:PRINT+PRINT 
PRINT” Automatische Darchführung! ”:00SUB tast:GOTO k2 
!Nenüpunkt Börsenkurse 
Kurse: 
WINDOW 4, “Börsenkurse”, (0,10)-(360,175)‚0,2:00L0R 7,1:CLS 
PRINT:PRINT " AG Ekırs Kurs Stück” 
PRINT“ = 5 “ 
FOR 1sl TO 13:LOCATE 3+1,2:PRINT Ak$(1)TAB(20)2(1)TAB(30)x 
(A)TAB(39)v(4):: NEXT I 
PRINT:PRINT:PRINT“ Bitte Taste drücken”:G0T0 kkk 
"Yendpunkt. Charts 
Charts: 
WINDOW 4, "Char 
kre(p)=kre(p)+60 
ausy: 
COLOR 0,1:C15 
LOCATE 3,2:PRINT"Bitte wählen Sie:" 
FOR 4e1 TO 13:LOCATE 441,2 
PRINT Ak$(1)TAB(18) "< ";15">" 
NEXT 1:LOCATE 24,1 
PRINT” Zurück zum Menü: bei 1. < 0 > eingeben” 
PRINT” Einzeldarstellung: bei 2. < 0 > eingeben” 
eingl: 
LOCATE 20,2:INPUT“1. AG-Nunner (0-13) ";grl1):IF gell) <O 
OR gr(1)>13 TEEN eing 
IF gr(1)=0 THEN ik 
eing2: 


(172) <<":PRINT” <4> 


(M<":PRINT” <8> 


Steuer” 


(0,10)-(630,240) ‚0,2 


350 2 


35185 
352 72 


353 IL 


354 sh 
355 x0 


36 u 
357 1 


358 84 
359 an 


360 IU 
361 00 
362 ut3 
363 4G 


364 86 
365 Ol, 
366 622 
367 313 
368 YD4 


369 XM 
370% 
371 m} 
372 171 
373 113 
374 182 
375 92 


376 :v0 
a7 ın 
378 061 
379 88 
‚380 YB 
381 or 


382 kL 


383 Bu 
384 x8 
385 Xe2 


386 fi 
387 86 
388 D12 


389 13 
30 Er 


391 ir 
392 HL 


393 dK 
394 1L 
395 do 
396 au 
397 Us 
398 K 


3 


‚400 Di 
401 6x2 


402 77 
403 1X 
404 1x 
405 Er 


406 16 


407 79 
408 KT 
499 4a 
410 vi 
Ai Tei 
412 Na2 


LOCATE 21,2:INPUT"2. AG-Nunmer (0-13) *;gr(2):IF gr(2)<0 
OR gr(2)>13 TE eing2 

IF gr(2)=0 THEN ee=1:gr(2)=22 EISE ee=2 

COLOR 1,0:015:00LOR 4,0:PRINT TAB (2) "1.Aktie: "Hax$(gr(i 
» 

IF gr(2)<>22 THEN COLOR 3,0:PRINT TAB(2)"2.Aktie: "rakh 
(gr(2)) 

COLOR 1,0:d=4 

LOCATE 5,1:PRINT” Over”:PRINT” 2000”:PRINT” 1900”:PRINT” 
1800”:PRINT” 1700 INT” 1600” 

PRINT” 1500”: PRINT” 1400”:PRINT” 1300”:PRINT” 1200”: PRINT 


RINT” 900° 
700°:PRINT” 600”: PRINT” 500”:PRINT 
INT? 200” 


Flow ”:LINE(45,30)-(45,210) 
LOCATE 27,7:PRIN 2 3456 7 8 9wı 12131 
415 16 17 18 19 20 21 22” 
LINE(15,207)-(600,207) : 
FOR ip=1 TO ei 
41n«D: 11n«O: 11ve0:41b=0:11a=0:110«0 
Aln«VAL(NID$(st$(gr(ip)),5,4)) :11n»VAL(MIDS(atS(gr(ip)), 
9,4)) 
11vs207-(11m/12) :11b»207-(11n/12) 
LINE(45,11v)-(69, 110) ,8 
eng: 
FOR 1023 10 22 
Ala=VAL(NID$(st$(gr(ip)),i084+1,4)):IF Ila<20 THEN ein 
17 
116”207-(118/12) 
LINE -(10%24421,110),d 
NEXT 10 
eingk: 
äzd-1 
NEXT 1p 
LOCATE 1,30: PRINT "Bitte Taste drücken”:GOSUB tast2:0070 
ausw 
"Nenüpunkt Aktienkeuf 
Aktkauf: 
WINDOW 4, "aktienkauf”, (0,10)-(425,187) ,0,2:C0LOR 13,1:018 
IF hp<2 THEN GOTO Notg 
PRINT:PRINT” Name: "+sp$(p)+" Barkapital:”;kap(p); DM” 
PRINT:PRIND” Welche Aktie nöchten Sie kaufen? <o 
> Keine” 
PRINT:PRINT” ---- -— 
PRINT” Nr. [1 
FOR ie1 TO 13 
LOCATE 8+1,2:PRINT TAB(3) "< ";1;"> "TAB(IK)AKB(A) TAB(34)v 
a)TaB(A7)x(ı) 
Ex i 
ein: 
LOCATE 4,33:1NPUT anr: 
<O OR anr>13)THEN ein 
COLOR 13,1:C15 
PRINT:PRINT” Aktiennunmer: 


Vorrätig Kurs” 


F anr=0 THEN G0TO ein3 ELSE IF(anr 


INT:PRINT” = 


PRINT” AG. 


Brief Kurs Vorrätig” 
LOCATE 7,2:PRINT Ak$(anr)TAB(18)2(anr)TAB(28)x(anr)TAB(37 
)v(anr) 
PRINT” = 2 


miniev(anr) kap(p)/x(anr)) 

IF mini>naxi THEN asxinsmaxi ELSE maxin-nini 

PRINT:PRINT” Maximele Ankeufsmenge in Stück: ";maxim 

PRINT:INPUT " Ankaufsmenge in Stück";akts 

IF akts>v(anr) THEN note$(anr)»"BG” ELSE IF akts<1 THEN 

note$( "BBR” ELSE 0010 ein2 

PRINT:PRINT” Ankaufsmenge zu kleini ":00SUB tast:GOTO Aktk 

auf 

ein2: 

IF akts®x(anr)>kap(p)THEN PRINT:PRINT” Ihr Kapital reich 

t nicht aus! ”:C0SUB tast:G0TO Aktkauf 

ansanr:bnex(an) 

PRINT: PRINT:PRINT” Kaufpreis: "jakts*bn; "DM" 

PRINT” Maklergebühr: ";INT(akts#x(an)/50) ; "DN” 

PRINT” ’RINT” Effektivsumme: "; 

akts*bn+INT(akts#*x(an)/50) ; DM” 

w(p,an)=w(p,an)+akts:note$(en)="GELD”:kap(p)=kap(p)-akts* 

bn:v(an)=v(an)-akts 

IF kap(p)<O THEN kre(p)=kre(p)+ABS(kap(p)):kap(p)=0 

ka(p,an)=x(an) 

PRINT:PRINT” Anweisung ausgeführt! Bitte Taste drücken” 

hp=hp-2:kre(p)=kre(p)+INT( (ektssx(an))/50):G0TO Kr 

einz: | 
Listing 1. (Fortsetzung) 


C070 kk 


!Nenüpunkt Aktienverkauf 

Aktverk: 

‚401, WINDOW 4, "Aktienverkauf”, (0,10)-(425,187) ‚0,2:C0L0R 3,1:0L 
ns 

IF hp<2 THEN C0TO Notg 

PRINT:PRINT” Name: "+sp$(p)+” Barkapitel:";kap(p); DM” 

INT” Welche Aktie nöchten Sie verkaufen? < 


Nr. AG Besitz Kurs” 
FOR i=1 TO 13 
LOCATE 8+1,2:PRINT TAB(3) "< ";15"> "TAB(IA)AKS(L)TAB(34) u 
(PrA)TAB(47)x(1) 
NEXT i 


egl: 
LOCATE 4,36: INPUT anr:IF anr=O THEN GOTO ein3 ELSE IF(anr 
<O OR anr>13)THEN egı 
IF w(p,anr)=0 OR note$(anr)="GELD” THEN notv ELSE GOTO Ja 
ver 
noty: 
PRINT” Verkauf nicht möglich! Bitte Taste drücken”:GOSUB 
tast2:0070 kk 


Javer: 

COLOR 3,1:C15 

PRINT:PRINT” Aktiennuner: 

PRINT” AG Brie? Kurs  Besits” 
LOCATE 7,2:PRINT Ak$(anr)TAB(18)2(anr)TAB(28)x(anr)TAB(37 
Iw(p,anz) 

PRINT” —- = 
PRINT:PRINT” Kauf der Aktie b (p,anr); "für Insgesan 
t”;ka(p,anr)*w(p,anr) ; DM” 


PRINT:PRINT” Effektivkaufpreis pro Aktie: ";ka(p,anr)+INT( 
x(anr)/50) ; DM” 

PRINT:PRINT:INPUT” Verkaufsmenge in Stück”;aktv 

IF aktv<1 OR akty>w(p,anr)THEN PRINT:PRINT” Verkaufsnen 
ge zu klein/groß! ":G0SUB tast:G0T0 Aktverk 

IP aktvkx(anr) <1 THEN PRINT:PRINT” Totales Verlustgeschä 
ft 1NT:GOSUB tast:G0TO Aktverk 
p,an)=w(p,an)-aktv:note$(an)="BRIEF":kap(p)=kap( 
P)+aktvnx(an) :v(an)=v(an)+aktr 

PRINT:PRINT” Verkaufswert. 


(an) *aktv; "DM”:PRINT” Makle 

sgebühr: ";INT((x(an)#aktv)/50) ; "DM" 

kre(p)=kre(p)+INT((x(an)*aktv)/50):PRINT:PRINT ” Anveisun 

g susgeführt! Bitte Taste drücken” 

hpshp-2:6070 kkk 

Abk, 310 "Menüpunkt Kapitalliste 

449 19, Kaplist: 

A46QPL WINDOW 4, "Kapitalliste”, (0,10)-(200,165),0,2:C0LOR 12,5:CL 
5 


AT NL GOSUB Aktka 
448 No PRINT:PRINT” Name: 


449 Xu 

450 VE 

451 #3 PRINT:PRINT“ -——... 
i Kap(p)+Ak(p) Du” 

45210 | PRINT:PRINT” Schulden: ";kre(p);”DM” 

453 6R | PRINT:PRINT“ =: “ tz 


kap(p)+Ak(p)-kre(p); "DM" 
454 pl PRINT:PRINT:PRINT” Bitte Taste drücken”:0070 kkk 
#95 4vO, "Menüpunkt Kapitalvergleich 
456 IH Kapve 
WI wTL IF 
458 96 misp: 
469 pd2 IF s=2 THEN sp2 ELSE IF 5=3 THEN sp3 ELSE ap4 
460 EZ sp2: 
464 MW2 _WINDON 4,88, (0,10)-(580,90),0,2:C0L0R 5,12:015 
462 ms | CT bewe 
463 ini sp3: 
46h Bu2 WINDOW 4,88, (0,10)-(580,107),0,2:C0LOR 5,12:015 
465 PV GOTO bewe 


0 THEN kre(p)=kre(p)+30:g8="Kapitalvergleich” 


A66 Sp sp4: 

467 Cv2 WINDOW 4,88, (0,10)-(580,125),0,2:C0LOR 5,12:C15 
AB) bewe: 

469 4N3 PRINT:PRINT” Name Bargeld Aktienwert 


Brutto Schulden Netto” 


40 ie 


Ar GOSUB Aktie 

472.004 FOR ip=1 TO s 

43765 PRINT TAB(2)sp$(ip)TAB(20)kap(ip)TAB(31)Ak(1p)TAB(44)k 
ea 


Wh neh  PRINT:NEKT ip 

475 03 PRINT: PRINT” Bitte Taste drücken”:no=0 
476 Fr G0TO kkk 

ATI 930, 'Wenüpunkt Aktienliste 

ATB BA Aktlis 


479 eX1 WINDOW 4, "Aktienliste”, (0,10)-(420,235) ,0,2:C0L0R 2,0:015 
480 hs | GOSUB Aktka 

481 tk PRINT:PRINT” Nane: *;sp$(p) 

482 PM PRINT:PRINT” Unverbrieftes Kapital: ”;kap(p); "DM” 
"uhiclp) ; "DH" 


483 IN PRINT” Verbrieftes Kapitel 


ABA le PRINT” u N: 

485 po PRINT” AG Unsz. Habe  Kurs*:PRINT 

486 Gm | FOR i=1 10 13:10CATE 8+1,2:PRINT Ak$(1)TAB(22)notep(A)TAB( 
z1u(p,1)ranldo) ta) 

487 ps NEXT 1:PRINT* — 


488 10 Pan: PRINT” Gesantkapital: ";kap(p)+Ak(p); "DM" 
489 0a | PRINT:PRINT:PRINT” Bitte Taste drücken”:G0TO kkk 
490 1k0, "Menüpunkt Aktienvergleich 

A91 YK Aktver: 

492 231 kre(p)skre(p)+40 

493 IR | IF s=2 THEN s2 ELSE IP 8=3 THEN 53 EISE s4 


MROR 82: 

495 Gu2 WINDOW 4, "Aktienvergleich”,(0,10)-(360,170) ,0,2:C0L0R 0,2 
:cLS 

496.60  PRINT:PRINT” U RENTESTEREN 

4979 PRINT“ - 


ASBN6 FOR Apeı 10 13:10CATE 31pr2 
499 183 PRINT Ak$(ip)TAB(20)w(1,1p)TAB(34)w(2,1p) 
NEXT Ap:PRINT:PRINT:PRINT” Bitte Taste drücken”:00T0 kkk 


:CLS 


FOR ips1 TO 13:L0CATE 3+1p,2 

PRINT Ax$(ip)TAB(20)w(1,1p)TAB(34)w(2,1p)TAB(47)w(3,1p) 

507 X2 NEXT 1p:PRINT:PRINT:PRINT” Bitte Taste drücken”:COT0 kkk 

‚508 Wı sh: 

509 bK2 WINDOW 4, “Aktienvergleich”, (0,10)-(570,170),0,2:C0LOR 0,2 
:018 

510 5p PRINT:PRINT” AG"TAB(21)sp$(1)TAB(35)sp$(2)TAB(48)sp$(3)TA 

B(61)sp8(4) 


wa 

wi s3: 

Sh2 WINDOW 4, "äktienvergleich”, (0,10)-(470,170) ,0,2:C0L0R 0,2 
x? 

8 

6 

e13 


512 AK FOR ips1 10 13:L0CATE 3+1p,2 

513 »P3 PRINT Ak$(1p)TAB(20)w(1,1p)TAB(34)w(2,1p)TAB(47)w(3,1p)T 
AB(60)w(4,1p) 

514 e)2 NEXT ip:PRINT:FRINT:PRINT” Bitte Taste drücken’:0010 kık 

515 3RO Menüpunkt Nächster 

516 74 Nexte: 

517 #Ri CALL requester(” Spielerwechsel?”, "Ja", Nein”) 

518 yx  LOCATE 18,2 

519 xy IF rege2 THEN WINDOW OUTPUT 2:eg«0:G070 c 

520 28 IF regel THEN wech 

521 20 0010 Nexte 

522 DL wech: 

523 fe2 WINDOW 4, "Spielerwechsel”, (0,10)-(330,240),0,2:C0LOR 1,5: 
cıs 

524 IA PRINT:PRINT” Bitte warten Sie: ANIOA rechnet ":hp=3 

525 kP IF kre(p)>O AND kap(p)>kre(p) THEN GOSUB Schulden 

526 AU IF kre(p)>O AND kap(p)<kre(p) THEN GOSUB Zinsen 

527 16 0OSUB Aktka:krelinskapital/2 

528 18 FOR dsl 10 13 

529 3 IF x(i)<50 THEN GOSUB Low ELSE IF x(1)>2000 THEN GOSUB 

High 

530 au hS-STRS(X(A)):IF LENChS)=4 THEN h$=" "+h$ ELSE IF LENCh 
)=3 THEN h$=” "ınS 

531 nt st$(1)=MID8(st$(1),5,88)+K108(n3,2,4) 

532 PU IF note$(i)="GELD” THEN note$(1)="B2" 

533 212 NEXT 1 

534 0X IP (kap(p)+Ak(p))>=spielende AND kre(p)=O THEN endes=1 

535 fH IF ((kap(p)+Ak(p)-kre(p) <100)0R kre(p)>krelin)THEN ende 
s-1 

536 60 psp+1:IF p>s THEN pel 

537 1y IF endes IHEN Spielend 

INT“ Nächster Spieler ist: ";ap$(p) 


541 jR2 COSUB tast:WINDOW CLOSE 4:WINDOW OUTPUT 2 
Su2 El  g$="Schlußberechmung”:CLS:G0T0 misp 

543 BNO! 'Wenüpunkt Uebersicht 

54h WB: Vebers: 
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SPIELE 


545 gu 
546. WO 


547 Ih 
548 #L 


549 10 
550 510 
551 02 
552 £Di 


553 70 
554 Iv 
555 88 


556 at 
597 Fr 
558 Bv 
599 ap 
560 x 
561 41 
562 us 
563 Mr 
564 v7 
65 m 
566 HL 
567 36 
568 iv 
569 n6 
570 W2 
ST a 
572.%0 
373 17 
57h 6 
375 FRO 
516 je 
377 WA 
578 hu 
579 bn 
580 ht 
581 212 
582 391 
583 ıN 
584 h20 
585 ac. 
586 WRL 
587 99 
588 EN 
589 x? 
390 620 
591 +01 
592 Ki 
593 10 
394 WX 
595 mo 
5% Qj1 
597 gs 
598 nY 
599 RE 


‚600 912 
‚601 9n 


WINDOW 4, "üebersicht”, (0,10)-(250,140),0,2:C0L0R 5,6:C15 
PRINT:FOR 1=1 TO s:PRINT“ Spieler”;1;”: ”;sp$(1):PRINT:N 
mx 1 

PRINT:COLOR 6,5:LOCATE ‚2:PRINT "Startkapital : 
Dur 

LOCATE „2:PRINT”Spielende bei. 
RINT 

GOSUB tast:GOTO ku 

'Nenüpunkt Help 

Help: 


ital; 


spielende; "DM":COLOR 5,6:P 


WINDOW 4, "BROKER - Das Börsenspiel von Sebastian Pets”, (0 
»10)-(630,200) ‚0,2 
COLOR 5,15:615 
PRINT 

PRINT ” Menüpunkt. 


PRINT "Laden Zin Spiel wird von Disk gel 
aden 18 

PRINT “Speichern Ein Spiel wird abgespeicher 
+ Ir 

PRINT "Weues Spiel Es wird ein neues Spiel beg 
onnen j* 

PRINT “Quit Spielende ohne die Spielstä 
nde abzuspeichern 1” 

PRINT "Börsenaktion Der Spieler kann aktiv die 

Börsenkurse 2011-3” 

PRINT ” durch geschicktes Handeln b 
eeinflussen I” 

PRINT "Börsenkurse Es werden die aktuellen Bör 
senkurse angezeigt -] -” 

PRINT “Charts Aktienkurse können graphise 


h dargestellt werden 
PRINT "Aktienkauf 
gekauft werden 
PRINT "Aktienverk. 
verkauft werden 
PRINT "Kapitalliste 
tal und bar) 

PRINT *Kapitalvergl. 


Aktien können zum Tageskurs 
Aktien können zum Tageskurs 
Eigenes Kapital (Aktienkepi 


Kapital aller Spieler 


3 - 
PRINT "Aktienliste Auflistung der eigenen Akti 
en (Kurse,Stück) -]- 
PRINT *Aktienvergl. Aktien aller Spieler (Stück 
) so] =" 
PRINT Nächster Der nächste Spieler ist an 
der Reihe 1% 
PRINT "Uebersicht Alle wichtigen Daten zum Sp 
1el im überblick 1% 
PRINT "Info Diese Seite 


j- 
PRINT:PRINT "Bitte Taste drücken’;G0TO kkk 

"Unterprogranne 

"Subprogranne für Menüpunkt Börsenaktion/Hausse-Baisse 
Wahl: 

LOOATE A,1:PRINDT mm 


PRINT” Nr. AG 
FOR i=1 T0 13 
LOCATE 6+1,2:PRINT "<";i;"> "TAB(11)Ak$(i)TAB(28)w(p,i)T 
AB(36)x(1) 

NEXT i:PRINT” -- E 
RETURN 

!Subprogramne für Menüpunkt Nächster 

Schulden: 

PRINT: PRINT:PRINT“ Be 


Habe Kurs” 


Zinsen: 
PRINT:PRINT:PRINT” 


Schulden: 
"5CINT(kre(p)/10) ; "DM" 


";kre(p) ; "DM”:PRINT”+ Zinsen 


PRINT” ":PRINT:PRINT” Gesamt: ";kre(p 
)+CINT(kre(p)/10) ; Du” 

kre(p)=kre(p)+CINT(kre(p)/10) 

RETURN 

Low: 


PRINT: PRINT:PRINT” Aufwertung: ": PRINT” 
PRINT” Kurswert zu niedrig bei: "+Ak8(i)+" 17 
PRINT“ Aufwertung je Aktie :";(2(1)-x(1)); "DM”. 
FOR ip=1.70 s 

IF kap(ip) <w(ip,i)s(e(2)-x(2)) TEEN wert 

PRINT TaB(2)sp$(1p)TAB(13) "mb "TAB(17)w(ip,1)*(2(1)-x{1)) 


;"DM zahlen.” 
602xD xaplip)=kap(ip)-w(1p,1)*(z(1)-x(1)) 
603 MG 6070 weiter 
604 mil verl: 


605 s23 PRINT TAB(2)sp$(ip)TAB(13)“- AKTIENVERLUST - 

GEFX kaplip)=kap(ip)+w(ip,i)&e(i):v(t)sv(i)w(ip,i):w(ip,i)=0 
607 054 weiter: 

608. 772 NEXT ip 
Sir  xli)ez(i) 
610 07 PRINT:PRINT“ 


PRINT” —- 
aang(i)4” 1° 


615 75 PRINT” Auszahlung je Aktie : ";(x(1)-2000) ; "DM”:PRINT 

616 ix FOR ip-1 TO s 

647 Okz PRINT TAB(2)Sp$(ip)TAB(13) "erhält ’TaB(20) ;(w(ip,1)*(x(1)- 
2000) ) ; "DM" 

S8 #5 kaplip)=kaplip)+(s(ip,i)s(x(i)-2000)) 


626 02 Aklip 
7533 FR 1-1 10.13 

Ax(ip)=Ak(ip)+x(t)ew(ip,t) 

629 293 ar i 

630 wZ1 NEXT ip:RETURN 

631 90 Notg: 

632 hMi PRINT:PRINT:PRINT” Sie haben nicht genug Handlungspunktel ” 


633 a4 FRINT:PRINT“ Bitte Taste drücken“:G0TO kkk 

634 YRO Hpu: 

635 7£1 LOCATE 11,24:PRINT "Spieler: ";sp$(p) 

636 32 | LINE(175,90)-(460,125) ,3,BF 

637 50 LOCATE 14,23:C0L0R 8,3 

638 61 PRINT” Sie haben noch”;hp; "Handlungspunktei " 

639 44 | COLOR 1,0 

640 gl RETURN 

641 ka0 Nohpu: 

6h2 Bai LOCATE 11,24:PRINT “Spieler: *;sp$(p) 

643 Go | LINE(175,90)-(490,125),3,BF 

Ehh Ch  LOCATE 14,23:C0L0R 8,3 

645 EL PRINT” Sie haben keine Handlungspunkte mehr! ” 

646 BT COLOR 1,0 

ET np RETURN 

648 Na0 Fenler: 

649 byi WINDOW 5, "ERROR - ERROR - ERROR”, (310,10)-(610,80) ,0,2:00L 
OR 1,5:C18 

650 13 PRINT:PRINT” Es ist folgender Fehler aufgetreten: *:PRINT 

651 ke IF ERR=53 IHEN PRINT” DATEI NICHT GEFUNDEN 1*:G010 dudi 

652 41 IF ERR-61 THEN PRINT” DISKETTE IST VOLL 1":0070 dudi 

653 a9 IF ERA=6% THEN PRINT” FALSCHER DATEINAME 1”:G0T0 dudi 

654 39 | IF ERR=67 THEN PRINT“ ZUVIELE DATEIEN !:G0T0 dudi 

655 Wa IF.ERR=70 THEN PRINT” DISKETTE SCHREIBGESCHÜTZT !":G010 du 
a 

&56 Wi IF ZRR=74 THEN PRINT” UNBEKANNTE DISKETTE":GOTO dudi 

@57 Xx PRINT ” UNBEKANNTER FEHLERTYP! ” 

6 im Audi: 

659 QU2 PRINT:GOSUB tast:WINDOW CLOSE 5:RESUME Ic 


660. 5j0 "Häufig verwendete Sub-Progranne 
lg x: 
62 ZE1 WINDON CLOSE 4 


(663 CH WINDOW OUTPUT 2 
&4 Yo COTO Kurse 
665 beü 2: 


666 601 WINDOW CLOSE 4 
667 GE WINDOW OUTPUT 2 
663 Wi no=1:6070 Kapver 


677 0e IF endes THEN Ende 
Ta Te 
EI SED test: 


Listing 1. (Fortsetzung) 


Amon SONDERER 3. ON ECOMELTERWOR.D. COM 


83. 


680 ui PRINT 
6 j War 
682 RR WEND 

683 Nz RETURN 

684 bx0 tast2: 

(685 ni WHILE INKEIS="" 
686 VE WEND 


690 291 DATA Bauver 
‚Pharmazie 
691 Io Data { 


Hzität,Chenie 


omobil,Banken, Versi 


[A 1, "Neues $ 


709 re 
710 64, 
11 mm 
712 au 
m13 Dt 
714 fu 


| —— 


Listing 1. (Schluß) 


dung fällt nicht schwer: die kürzere Version ist besser. Ein 
kompletter Aztec-C-Compiler inklusive Source-Debugger 
mit 263388 oder mit 156292 Byte? Auch hier ist das Ergebnis klar. 
Wie diese Beispiele deutlich machen, können Sie erstaunlich viel 
Speicherplatz auf Ihren Disketten einsparen, wenn Sie unser Pro- 
gramm des Monats besitzen. In der Regel handelt es sich um 30 
bis 50 Prozent der Originallänge. Die Funktionsweise von »Ma- 
sterCruncher« ist im Prinzip einfach. Programme und Dateien ent- 
halten gleiche Bytefolgen. Wenn diese Sequenzen zu kürzeren zu- 
sammengefaßt werden, heißt dies »packen« oder »crunchen«, Da- 
bei muß man zwischen drei Typen von Dateien unterscheiden: 
- verschiebbare Programme, 
- Daten, 
= nicht verschiebbare Programme. 

Im Normalfall gehören die Programme auf dem Amiga zur ersten 
Kategorie. Nur wenige Ausnahmen fallen in die dritte Gruppe. Der 
Unterschied liegt darin, daß beiden nicht verschiebbaren Program- 
men ein bestimmter Speicherbereich verwendet wird. Gepackte 
Programme lassen sich genau wie vorher von der Workbench oder 
dem CLI aufrufen. Zu diesem Zweck muß die gepackte Datei im 
Speicher zuerst entpackt werden. Das erledigt MasterCruncher 
automatisch. Vor die komprimierten Daten wird ein Programm ge- 
schrieben, das diese Aufgabe übernimmt. Bei langen Program- 
men verringert sich sogar die Ladezeit von Diskette, trotz des not- 
wendigen Entpackens. 

Bei Daten ist eine andere Vorgehensweise nötig. Da hier keine 
Programmverzweigung auf die Daten erfolgt, können sie nicht im 


A migaBasic mit 103484 oder mit 71412 Byte? Die Entschei- 


BAWWW.HONESOMPUTERWORLB.SCM, 


Wollen Sie mehr Programme 
auf einer Diskette unter- 
bringen? Die Lösung heißt 
»Master- 

Cruncher«. 

Er packt alles. 


Speicher entpackt werden. Komprimierte Daten werden mit Ma- 
sterOruncher geladen und anschließend ungepackt auf Diskette 
gespeichert. Dann können Sie wiederverwendet werden. 

MasterCruncher liegt in Form eines DATA-Laders vor, damit ihn 
jeder Amiga-Besitzer abtippen kann. Das Amiga-Basic-Programm 
(siehe Listing) generiert auf der Diskette das lauffähige Programm. 
Vor dem Laden des Listings müssen Sie allerdings den Befehl 
»CLEAR ‚40000. eingeben. Der Aufruf 
MasterCruncher 
startet das Programm vom CLI aus. Vor der Benutzung von der 
Workbench aus muß noch ein passendes Programmsymbol (Icon) 
kopiert werden oder mit IconEd ein eigenes gezeichnet werden. 
Der Typ des Icons muß Tool sein. Dann kann man MasterCruncher 
durch Doppelklick auf das Programmsymbol starten. 

Da MasterCruncher selbst gepackt wurde (statt 14036 nur noch 
9328 Byte), flackert kurz der Bildschirm und dann erscheint das 
Bedienungsteld (siehe Bild). Betrachten wir nun die normale Vor- 
gehensweise. 


LOAD FILE/SAVE FILE 

Zunächst laden Sie die zu packende Datei. Dazu klicken Sie ein- 
mal auf den Schalter (Gadget) »LOAD FILE«. Nach Betätigung er- 
scheint ein Datei-Requester, mit dessen Hilfe Sie die Datei auswäh- 
len. Oberhalb der Einträge finden Sie ein Textfeld (Stringgadget) 
für den Pfad. Nach Anklicken erscheint ein Cursor zur Eingabe des 
neuen Pfads. Die Pfade »DFO:« und »DFi:« erreichen Sie durch An- 
klicken der entsprechenden Schalter. Unterhalb der Einträge se- 
hen Sie ein Stringgadget, in dem der Name der Datei eingegeben 
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BE MASTERTRUNCHER V329O8 


KODED BE ROBERT FRAHM & MICHAEL CREHER 
COPWRIGHT BY MARKT & TECHNIK 2 


NZHING MODE BS9BL1YF 


CH CONTROL 


Das übersichtliche Bedienungsfeld von »MasterCruncher« 


werden kann. Durch die zwei Pfeile können Sie in der Liste der Ein- 

träge auf- und abscrollen. Mit dem »CANCEL«-Schalter brechen 

ve den Ladevorgang ab. Durch Anklicken von »OK« starten Sie das 
den. 

Sollte ein Fehler auftreten, wird dies im Hauptmenü angezeigt. 
Ein möglicher Fehler ist, daß das Programm mit der Overlay-Tech- 
nik arbeitet. Solche Programme (Deluxe Paint Il, Butcher) können 
nicht gepackt werden. Zum Glück gibt es aber nicht viele davon. 

Wenn Sie eine gepackte Datei laden, flackert kurz der Bildschirm 
auf und die Datei wird entpackt. Dann benutzen Sie »SAVE FILE«, 
um die Datei ungepackt zu speichern. Sollte die Datei gegen Ent- 
packen geschützt sein (dazu später mehr), erscheint die Meldung: 


ERROR... UNABLE to REPACK FILE... 


»SAVE FILE« dient zum Speichern von gepackten oder unge- 
packten Daten. Die Bedienung ist dieselbe wie beim Laden. 


PACK FILE 

Die vorher geladene Datei wird komprimiert. Befinden sich keine 
Daten im Speicher, unterbricht MasterCruncher den Vorgang. Ver- 
läuft alles normal, erscheint die Meldung: 
PLEASE WAIT... PACKING... XXXXXX 

Die Zahl (XXXXXX) am Ende gibt die Länge des noch zu packen- 
den Bereichs an. Der Text verschwindet, sobald der Vorgang been- 
det ist. Ein Klick mit der linken Maustaste unterbricht jederzeit das 
Packen. Während der Arbeit ist das Multitasking des Amiga abge- 
schaltet. Es kann also kein anderes Programm laufen. 


koıs 


PREFERENCES 

In diesem Menü können einige Vorein- 
stellungen verändert werden, die den Pack- 
und Entpackvorgang betreffen. Der 
F »CRUNCHING MODE bestimmt die Län- 
TABL TR: ge des zu untersuchenden Speicherbe- 
reichs. Hier sind Werte von $20 bis $111F er- 
laubt. Je größer der Wert, um so länger dau- 
ert das Packen und um so kürzer wird die 
Datei. Die Voreinstellung ($111F) ist meist 
sinnvoll. 

Bei»DECRUNCH CONTROL «steht eine 
‚Adresse, die während des Entpackens ver- 
ändert wird. Mit dem eingetragenen Wert 
$DFF180 beeinflußt MasterCruncher die 
Hintergrundfarbe. Für die Interessierten 
hier die anderen möglichen Adressen: 


ARE 


$DFF182: Farbregister 1 
$DFF183: Farbregister 2 


$DFF1BE: Farbregister 31 

Bei Verwendung der höheren Farbregister istes möglich, daß auf 
dem Bildschirm nichts zu sehen ist. Es empfiehlt sich, den vorge- 
gebenen Wert zu übernehmen. 

»RECRUNCH TO: ist nur für nicht verschiebbare Programme in- 
teressant. Hier wird die absolute Adresse angegeben, an die das 
Programm entpackt wird. Für diese Programme ist auch »JUMP 
IN« wichtig. Es bestimmt die Adresse, an die MasterCruncher nach 
dem Entpacken verzweigt. Nach der Auswahl dieser zwei Schalter, 
schaltet sich »SAVE CONTROL« automatisch auf »ADRESS RE- 
CRUNCHER« um. Die zwei anderen Einstellungen sind »RELO- 
CABLE« (verschiebbare Programme) und »DATA + INFO HEA- 
DER« (Daten). Reine Daten sind natürlich nicht vom CLI aus aufruf- 
bar. Die verschiedenen Möglichkeiten erreichen Sie durch mehr- 
maliges Anklicken des Schalters SAVE CONTROL. 

Der Hexdump kann wahlweise mit »HEX« ein- und ausgeschaltet 
werden. Ohne diese Ausgabe erfolgt das Packen schneller. 

»RCA« steht für »repackable« (entpackbar). Steht dieser Schalter 
auf OFF, kann die gepackte Datei nicht mehr entpackt werden. 

»RESET« stellt den Ursprungszustand wieder her. 

Mit »OK« gelangen Sie ins Hauptmenü. 

Nach getaner Arbeit, bei der bei langen Dateien eine Tasse Kaf- 
fee angebracht ist, verlassen Sie MasterCruncher mit dem Schal- 
ter »EXIT TO ...«. Am Ende steht entweder »CLI« oder »WORK- 
BENCH«, je nachdem, wie das Programm aufgerufen wurde. 

Durch das Programm »MasterCruncher« verringert sich in der 
Regel die Ladezeit und Sie sparen wichtigen Speicherplatz auf Ih- 
ren Disketten. R. Frahm/M. Cremer/R. Beaupoil/kn 


IUNENS Gen HEN ertz=asc(RIckTg(h,1)) 32ER) Data 00,00,4e,ae,??,3a,2,40,00,00 
er Sup, IF wert2>64 THEN wert2ewert2-87 33 RK DATA 50,80,20,07,53,80,22,64,00,00 
Computer: A500, A1000, A2000 ELSE wert2=v. 8 3A EN DATA 22,16,58,89,54,81,22,01,51,08 
mit Kickstart 1.2 & 1.3 12Pi wvertswertimert2 35 AR DATA ff,f6,2f,06,20,07,53,86,26,64 
13% PRINT #1,CHRS(wert); 36 vO DATA 00,00,28,4b,4a,9b,22,30,00,01 
Sprache: Amiga-Basic 1.2 A4 200 next 37 Ak DATA 00,00,20,16,58,80,08,00,00,1e 
Bemerkung: x 3n| cıose ı 1 38.08 DATA 67,04,08,01,00,01,25,88,4e,ue 
gE KILL MasterCruncher. info” 39 24 DATA ff,38,28,00,58,80,51,ce,ff,e0 
Erzeugt fertiges Programm 17 16 END AO NG DATA 26,57,70,00,7a,00,00,66,03,09 
1 ad Werte: 41 BR DATA 00,02,67,00,00,90,00,6b,03,0n 
Progrannautor: Michael Orener / Robert Frahn 39 a8 DATA 9364 42 4$ DATA 00,02,67,00,00,90, 00,66, 03,eb 
a 20.3 DATA 00,00,03,£3,00,00,00,00,00,00 43 58 DATA 00,02,67,00,00,28,00,6b,03,e0 
@1 nt DATA 00,03,00,00,00,00,00,00,00,02 44 SA DATA 00,02,67,00,00,60,00,80,03,72 
@2 5m. DATA 00,00,00,48,00,00,08,38,00,00 45 1X, DATA 00,02,48,71,48,96,7a,00,52,86 
23 20 DATA 04,b1,00,00,03,69,00,00,00,48 6 EN) DATA be,86,68,06,20,07,43,fa,f?,18 
24. 60. DATA 48,07,ff,fe,4b,fa,03,38,41,fa 
29 24 DATA £f,72,22,50,03,09,03,09,24,51 
50a FOR 26. 5k DATA 58,89,26,49,00,14,85,08,d5,ca 
S 3n1 READ h$ ZU WE DATA 58,88,26,48,00,18,48,e7,ff,fe Listing. »MasterCruncher_Gen« 
2yB2 wertisASC(LEFTS(h$,1)) 28 dQ DATA 61,00,01,be,40,df,72,22,22,64 erzeugt den lauffähigen Packer 
&bE | IF werti>64 THEN wertis 29 ne DATA 00,14,51,89,20,11,20,78,00,04 »MasterCruncher« auf Diskette. 
ELSE wertiewert1-48 3031 Data e,ae,ff,2e,26,64,00,18,50,8b Mit dem Checksummer 
AL wertimwertixis 31 WU) Data 20,10,2e,00,e7,88,22,30,00,01 (Seite 143) eingeben. 
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20,64,00,02,20,10,58,80,e4,88 
22,80, 52,87,53,87,67,18,22,50 
20,28,00,04,25,88,22,80,20,28 
00,08, 58,80,04,88,23,40,00,04 
50,88,60,2,20,17,42,29,00,04 
43,28,00,24,20,64,00,00,20,50 
50,88, 22,88,22,68,00,00,20,07 
e7,88,4e,ae,f£,2e,22,64,00,18 
51,89,20,11,48,ae,£?,2e,6c,äf 
7t,£t,48,9,00,00,00,00,61,28 
48,9,20,10,85,88,20,40,47,c0 
22,64,00,00,22,06,87,89,22,71 
18,00,50,89,4e,ae,4,90,60,00 
1?,30,61,06,50,86,60,00,f£,36 
4a,85,67,02,52,86,78,01,48,75 
48,9% ,20,64,00,00,20,06,.7,88 
22,70,08,00,50,89,20,16,67,24 
22,1b,07,89,20,64,00,00,28,70 
18,00, 50,80,53,80,20,40,24,49 
22,1b,45,01,22,12,01,01,24,88 
51,08, 28,20,60,48,60,00,fe,20 
48,87,88,fe,4b,f8,01,80,41,18 
#2,82,22,50,43,09,d3,09,58,89 
26,49,00,14,26,70,00,07,00,00 
00,18,61,00,48,69,00,00,00,00 
40,äf,78,f£,48,75,20,68,00,14 
28,18,22,68,00,18,43,05,d1,d0 
91, 20,00,00,00,04,48,60,68,02 
53,88,10,20,83,08,66,04,10,20 
e3,10,64,58,42,41,03,08,66,04 
10,20,23,10,64,42,47,28,00,38 
76,03,42,41,14,33,30,00,48,82 
78,27,05,60,46,46,53,42,83,08 
66,04,10,20,83,10,3,51,51,ca 
#8,24,48,43,67,06,b8,41,56,cb 
?2,da,14,33,30,04,48,82,42,42 
‚60, 00,00, 05, 08,03,02,02,08,07 
04,01,13,20,33,08,00,48,£1,80 
31,09, £2,16,47,2,00,46,26,6b 
00,14,50,8b,b1,0b,62,00,00,c8 
47,28,00,38,74,03,23,08,66,04 
10,20,03,10,64,04,51,08,f8,24 
42,41,52,42,16,33,20,00,67,12 
48,83,53,43,83,08,66,04,10,20 
e3,10,83,51,51,0b,ff,L4,16,33 
20,05,48,83,42,43,60,00,00,0e 
0a,02,01,00,00,08,06,04,03,02 
06,41,00,02,67,42,47,18,00,34 
76,01,83,08,66,04,10,20,03,10 
64,04,51,0b,?%,24,52,43,42,42 
18,33,30,00,48,84,83,08,66,04 
10,20,83,10,03,52,51,00,£f,24 
03,40,04,73,30,04,60,00,00,32 
0b,04,07,00,01,20,00,00,00,20 
00,00,42,42,76,05,42,44,03,08 
66,04,10,20,83,10,64,04,76,08 
78,40,83,08,66,04,10,20,23,10 
03,92,51,cb,ff,24,06,44,45, 81 
20,00,48,01,45,01,53,41,13,22 
51,09, 2f,20,60,00,fe,08,48,75 
00,00, 00,00,00,00,00,00,00,00 
00, 00,00, 00,00,00,00,00,00,00 
00,00, 00,00,00,00,00,00,00,00 
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00,00,20,52,00,00,03,e2,00,00 
08,38,00,00,36,c4,00,00,20,de 
2, 13,18,00,09,e8,08,61,53,e0 
49,33,66,69,58,11,04,81,04,54 
b1,93,09,0e,51,da,28,40,db,2d 
1a,48,a0,00,ac,66,18,03,72,30 
87,e0,00,50,a4,4e,80,86,2e,02 
40,e0,82,65,20,66,49,2a,24,b2 
70,13,18,d4,28,45,e9,28,01,90 
97,80,28,37,89,98,50,38,70,93 
8e,d4,08,00,db,82,25,25,e0,da 
15,32,b0,ee,37,08,10,00,93,f1 
49, 0,24,44,91,02,02,26,85,35 
,76,28,30,64,11,00,00,02 
06,be,54,67,28,00,30,08,4,66 
fb,09,29,14,20,32,39,22,e,87 
06,48,31,40,00,02,48,40,40,33 
29,72,62,66,06,33,38,71,08,31 
b6,63,29,92,09,58,46,93,10,49 
74,da,20,ab,28,16,08,48,97,be 
bb, 05,88, 14,08,25,02,bo,d0,94 
&2,25,b0,62,04,01,a0,04,0e,68 
ea,8a, ?6,82,31,64,06,00,37,33 
46,70, £,42,81,17,20,33,d8,7 
„05,8 ,86,70,02,04,30,01,40 
33,28,00,6d,d0,31,38,97,33,7& 
69,94,52,94,78,76,60,44,89,80 
78,40,07,29,2d,a0,28,57,04,46 
20,20,8f,08,30,72,£2,05,be,4b 
28,02, 24,25,04,87,20,2b,98,b2 
1F,58,00,07,d£,88,18,08,6b,38 
06,30,97,87,66,24,08,82,bo,17 
9,44, 30,6,50,86,03,22,10,cc 
25,10,03,67, 70,5b,26,60,40,34 
14,50,51,80,01,94,87,47,02,99 
19,04,30,20,45,50,46,c7,c1,ea 
93,02,32,43,30,96,15,af,26,22 
91,71,60,ca,ff,b2,b2,09,30,82 
90,85,02,24,60,30,13,01,78,1e 
30,68,d0,06,45,60,62,6b,32,04 
48,69,20,67,62,70,56, fe,3«,97 
05,50, 79,18, 9,6, 02,6b,39,70 
22,39,44,fe,86,97,95,70,b0,8& 
ba,34,73,44,a4,de,66,00,78,20 
50,20,68,00,08,d1,£3,71,65,68 
96,30, 00,22,90,00,87,78,ba,20 
89, %,2f,f0,22,88,05,94,30,02 
04,45,80,24,29,46,45,40,40,72 
23,48,35,89,49,29,78,86,00,29 
06,20, 00,80,42,60,00,88,20,1f 
44,06, 56,43, fa,02,96,20,3e,04 
62,23,09,68,00,80,03,69,68,74 
75,69,74,69,6£,68,28,60,69,62 
72,61,08,00,7£,36,59,0a,23,fa 
Ob,bb,25,a0,60,20,70,20,ba,51 
16,20,2f,98,23,e2,21,27,91,90 
80,22, 78,2£,92,23,d0,58,54,10 
fe,26,74,94,75,67,47,0 
01,66,87,69, 10,58 ,0£,68,70,fe 
@0,81,70,38,10,de,40,06,38,38 
©0,40,06,80,a8,25,1, fe,61,0a 
da,43,98,45,9%,fe,82,99,67,76 
5a,04,40,89,73,00,26,61,08,76 
05,95, 7b, ab,b6,42,18,65,78,98 
23,58,42,83,24,08,52,43,48,18 
&6,18,19,83,13,40,79,48,68,74 
20,65,68,60,75,67,68,20,64,65 
64,62,72,79,20,66,72,65,65,07 
26,22,92,08,15,63,66,40,16,78 
66,49,12,26,73,51,64,96,22,64 
32,25,37,9%6,31,4b,01,88,97,00 
86,4d,e6,69,26,73,43,66,9%,ca 
63,33,04,67,9%,fa,96,23,80,07 
44,56,31,19,97,38,08,86,42,66 
73,48,00,98,39,99,20,5,48,44 
&4,08,06,63,b2,18,58,63,b6,c& 
64,d0,66,78,28,10,06,06,03,20 
ea,e0,03,d1,de,60,8e,c9,e4,60 
6,52,64,83,4,12,54,44,a0,e2 
88,02, 08,bo,60,88,09,11,28,01 
14,71,be,81,00, 78,40 ,26,04,05 
20,e5,68,61,02,30,39,98,09,2d 
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30,20,90,52,91,38,0a,20,80,82 
16,00,68,63,72,69, fe,f2,d1,01 
3f,26,b9,29,60,23,16,0d,b0,92 
20, f9,40,20,65,25,20,58,97,17 
01,b4,08,00,40,70,16,98,08,ae 
50,55,26,00,0f,26,b4,ab,a4,34 
3e,08,65,84,08,48,28,75,44,03 
eb,01,80,07,20,12,65,1e,d1,9c 
b8,08,52,58,45,30,a0,9b,75,d8 
52,25,e0,b2,10,20,7a,20,80,d8 
a7,20,20,32,6b,0c,02,3a,fe,aa 
20,b2,00,75,20,08,d4,87,10,20 
15,24,40,60,9b,b8,ad,93,20,15 
08,22,24,00,04,e0,bb,43,fa,2b 
a6,05,23,b6,0a,db,ec,8b,10,b3 
a9,b7,38,26,46,84,cb,9a,da,36 
26,e3,36,b2,49,42,do,60,ae,a9 
64,63,32,28,5b,u6,64,76,16,2d 
a0,29,64,63,32,20,59,9b,0d,62 
od,e6,90,da,a3,a9,04,18,24,65 
60,32, 72,37,28,39,98,04,04,38 
#3,29,43,46,32,56,07,86,57,10 
98,47,20,48,42,00,81,04,22,07 
4£,46,40,37,09,d0 12,6, 68,03 
4e,09,ab,42,58,52,2b,08,66,72 
42,00,58,20,0b,52,41,eb,a0,01 
04,48,55,44,90,20,54,41,08,dt 
05,61,£2,21,04,#1,96,49,54, 2 
01,0£,53,41,56,21,7,43,12,33 
54,52,4P,40,e4,40,2e,2e,2e,3a 
74,83,80,39,18,13,54,40,4£,43 
41,42,40,45,70,20,03,20,20,60 
14,13,44,41,54,41,20,26,20,49 
4e,46,42,20,20,2b,14,90, 20,08. 
41,44 ,41,03,53,53,20,52,45,43 
52,55,48,43,48,45,52,20, 28,03 
78,42 ,48,66,07,42,48,46,84,07 
22,81,00,30,30,80,4,e0,2%,dd 
9e,71,u1,eb,94,2?,80,25,19,3u 
07,??,cb,e5,68,01,e2,6f,88,57 
34,22,04,e2,61,36,d8,45,18,02 
20,7a,28,68,31,6b,1,44,4a,82 
07,86,08,98,67,88,87,03,67,57 
1f,98,09,14,b2,f2,72,21,75,79 
24,88,30,30,00,18,80,0f,0f,65 
06,85, 24,78,00,18,78,32,37,62 
52,50,88,86,03,66,08,03,42,64 
02,42,59,48,03,66, £t,L1,40,12 
bf,dd,08,b6,db,Oc,ad,91,fe,f9 
19,46,28,05,56,58, 18,30, 0b,12 
30,22,16,73,50,08,83,83,01,24 
22,6f,c9,07,64,e0,e2,95,00,88 
4e,27,00,88,18,08,01,58,12,16 
7A,fe,03,a2,5d,e8,5a,2e,14,b8 
49,b5,fe,66,03,16,80,72,69,20 
65,26,00,40,2e,21,62,e1,70,00 
02,28,87,00,69,07,04,28,58,00 
84,30,04,18,80,f8,9,07,26,09 
bb,18,01,72,98,90,04,09,36,58 
95,09,00,ta,62,43,11,a0,17,bb 
17,88,d0,64,94,97,2e,61,80,05 
13,66,30,38,09,b4, fe,4f,90,6b 
2a,09,b0,80,65,59,08,73,be,9e 
51,88,58,18,19,b0,28,95,48,02 
16,01,20,27,72,97,0b,d4,30,f0 
e4,97,0b,d0,a6,e8,68,09,60,92 
94,48,a2,18,17,12,e0,45,11,1e 
@7,31, ‚18,86,20,05,83,13,10 
13,49,56,07,b4,28,15,04,1%,18 
98,03,04,54,90,28,72,77,63,08 
14,83,03,01,b8,5e,6e,a1,a1,43 
15,2d,82,15,01,e7,00,76,70,e4 
15,eb,91,04,af,44,62,14,82,73 
43,19,74,92,10,46,19,16,80,59 
2e,f2,08,45,96,15,98,25,f4,65 
01,16,f9,12,68,06,47,be,b2,12 
=9,24,14,53,20,53,08,61,77,64 
c5,ca,a0,00,f2,7b,de,62,98, fo 
%6,54,98,98,fd,3e,19,f1,66,20 
34,56,90,80,75,44,96,b6, 8,04 
01,98,4f,ba,fd,1b,ec,25,06,f8 
46,04,24,0°,72,26,57,55,24,05 
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31,68,52,5,98,07,9%,40,64,8b 
ea,e1,16,55,03,67,b,38,40,03 
4,09, 08,68,85,b4,f,1,d0,95 
06,44,96,81,66,38,66,9e,b?,28 
fe,14,07,45,00,69,15,89,41,fc 
89, 58,de,68,03,f0,21,20,3a,fd 
2a,b7,af,e6,04,12,e0,14,60,1 
10,8b,b9,a2,60,20,6b,42,81,85 
0b,67,43,06,78,07,76,73,24,51 
ef,b6,d,67,to,6b,e6,25,82, 20 
63,09, f1,bd,04,e2,48,56,45,be 
ta,8e,d0,2c,70,62,03,16,79,54 
ea,15,80,4d,fd,26,56,3e,58,a1 
70,37,20,42,53,00,24,86,e6,23 
df,f1,90,42,24,78,20,0b,11,b& 
11,18,30,76,54,21,14,74,33,98 
eo, te,1,0c,88,f0,18,33,46,09 
?e,60,54,he,a1,05,54,29,63,24 
be, fd, 02,08,08,60,40,28,a8,51 
14,98,0f,56,0b,07,18,02,89,c5 
38,58,63,14,32,38,1b,03,fb,da 
9,18,14,98,08,45,04,05,20,20 
72,51,21,b1,28,08,50,9%%,d6,90 
70,09,45,09,22,20,48,60,37,6e 
91,19,26,4b,1a,18,28,ed,27,72 
52,fd,a4,e6,39,a8,e9,14,52,57 
76,00,82,39,38,2b,46,84,96,59 
49, 70,60,0,58,09,18,55,55,08 
06,31,06,24,3e,08,10,53,27,39 
85,56,b2,55,46,65,28,56,18,77 
56,60,55,08,08,29,56,22,55,63 
b4,85,05,ba,00,£7,37,27,25,ea 
18,53, 5b,be,14,73,00,95,18,76 
04,09,83,44,16,20,60,64,56,28 
08,68,20,07,03,22,6d,51,29,b2 
11,50,50,64,21,fe,e4,26,17,75 
08,05,38,0b,45,b0,06,61,03,9% 
60,40,34,08,58,56,30,99, 1,48 
69, 5,58,50,68,45,01,bf,41,53 
55,02,08,70,66,48,61,56,55,09 
76,76,14,90,83,49,11,18,98,00 
3e,40,29,be,4b,16,18,28,13,05 
89,89, 10,60, 9%,0b,db,44,64,55 
ba,0f,34,95,50,48,2e,32,28,08 
10,15,84,42,20,08,74,05,29,38 
25,24,96,00,83,01,07,70,32,80 
03,14,95,51,45,ba,ef,12,14,80 
30,10,32,11,20,10,28,70,a8,7b 
00,08,67,02,72,24,2,53,8b,00 
30,30,01,35,0°,02,08,25,68,04 
32,e1,40, 25,30,80,32,81,06,eb 
51,80,30,28,20,78,28,14,20,0f 
10,81, 23, ee, e,02,28,08,48,13 
33,26,03,88,82,48,25,02,01,06 
5d,16,06,30,70,02,08,97,04,08 
67,06,08,88,18,55,03,58,21,26 
29,16,00,53,e2,22,68,b8,20,55 
09,89,06,75,20,24,74,37,77,64 
95,52,06,38,00,68,89,24,68,e5 
50,10,22,10,89,06,01,89,54,51 
89,20,50,31,73,18,78,88,a?,82 


DATA 14,4e,1b,80,17,77,25,21,08,56 


DATA 31,18,24,38,67,61,98,85,de,d1 
DATA 22, 9a, ed, c4,bd, 0b, a2, 0d,aa,e5 
DATA £0,62,59,73,02,10,91,£5,de,00 
DATA 8a, 30,51,77,00,6,33,d4,84,1b 
DATA ab,15,75,67,61,9b,ba,35,66,53 
DATA 67,86, 6d,ea,d6,b0,44,d4,09,a0 
DATA 12,04,dd,60,12,db,0b,08,38,£3 


) DATA db,06,40,00,04,68,97,02,50,1e 


DATA b0,41,29,24,56,24,18,24,94,66 
DATA 8b,61,22,bd,84,aa,a3,6d,18,38 
DATA b4,a9,9,78,06,64,73,eb,26,nc 
DATA 28,63,8,00,06,00,05,58,44,77 
DATA 23,70,80,17,36,b1,61,36,27,23 
DATA 70,0b,06,34,74,80,95,00,fe,ea 
DATA 66,26, d0,78,01,99,87,e0,78,02 
DATA £6,08,78,50,06,81,05,34,44,d1 
DATA 86,83,46,00,18,72,53,29,b1,26 
DATA 62,60 ,26,52,34,88,98,96,b5,62 
DATA 04,46, a2,80,16,35,89,08,86,cb 
DATA 61,67,aB,ae,00,08,68,25, 12,48 
DATA 91,21, £7,22,51,60,05,24,49,43 
DATA 69,79, fe,aB,ad,a0,6n,04,42,19 
DATA 60,82,79,64,01,70,30,e0,30,04 
DATA ed,11,d9,07,26,06,32,82,48, 
DATA 00,22,50,24,70,40,66,66, 80,01 
DATA 40,d2,44,00,78,52,04,70,26,87 
DATA ©6,24,80,42,80,60,18,16,45,dd 
DATA 04,48, 99,2,86,62,00,24,69,b4 
DATA a8,45,10,24,68, a0, 57,b6,43,34 
DATA do,b0,4b,06,46,01,59,55,62,10 
DATA d6,20,20,49,70,18,23,87,98,e5 
DATA 08,21,34,84,52,25,20,96 ,98,43 
DATA 23,78,08,15,b1,9d,fc,37,48,53 
DATA 40,60, 8,08, 5b,dd,le,18,00,45 
DATA 30,76,16,12,48, £9,03,06, 50,16 
DATA 08, 84,52,46,48,07,7,05,00,46 
DATA 00,06,65,22,46,56,59,5b,50,0b 
DATA 0d,49,d0,a0,52,06,5d,54,65,38 
DATA 96,20,51,08,f?,?a,29,29,40,52 
DATA 30,07,06,51,ff,20,66,ce,83,3& 
DATA 39,24,57,92,25,ac, aa, 23,08,00 
DATA eb,14,£f,e6,20,38,db,81,50,87 
DATA 28,58,28,4a,9e,7e,66,0b,18,12 
DATA 56,43,13,2,0b,d5,00,d5, 2,92 
DATA f2,81,10,76,85,12,06,b6,d2,1e 
DATA 03,b0,b9,15,46,58,66,34,b6,16 
DATA 21,78,20,24,22,32,14,54,21,15 
DATA 26,33,11,00,17,0n,8d,81,06,17 
DATA a8,20,ba, f8,14,d8,9e, 72,14, 20 
DATA 60,14,06,2d,9e,24,68,10,90,85 
DATA 82, fb,2e,73,95,98,b6,8e,ab,ed 
DATA 92,74,49,01,5e,e°,02,24,78,b2 
DATA 02,15,66,10,08,04,ab,01,48,18 
DATA 21,70,67,84,18,45, La, 06,60,87 
DATA 85,00, 50,87,30,0d, 31,7, f6,5e 
DATA £5,21,24,08,76,08,39,93,45,36 
DATA 75,84,d8,12,20,82,88,41,80,15 
DATA 2, 46,15,22,20, fe,90,b4,2b,82 
DATA fb,18,49,15,03,67,22,5d,ed,c5 
DATA 18,08,60,bd,2a,do,dO, fB,Sb,e? 
Data 60,49,70,24,90,56,20,98,00,02 
DATA 50,24, 96,5,99, 08,14, 84, 58,50 
DATA 14,d0,00,00,53,00,68,78,82,d8 
DATA fd, ec,ea,3a,20,27,20,62,50,56 
DATA 83,43,82,02,46,22,70,20,13,03 
DATA bB,08,61,02,00,66,72,98,49,63 
DATA 4e,30,66,32,68,be,ae,25,14,58 
DATA 63,77,06,62,19,02,98,50,02, fa 
DATA &0,00,63,b0, 82, fa,0d,4,da,23 
DATA 88,85, £6,59,08,28,61,0,74,66 
DATA 68,2, 0b,44,01,da,31,03,?8,06 
DATA 77,08, 86,55,00,02,72,30,45,d1 
DATA 54,ee,42,81,e1,80,61,19,6d,48 
DATA 1P,da,04,b6,af,6e,44,db,28,04 
DATA 42,65,9,d0,52,06,80,B0,95,6b 
DATA 31,08,80,48,84,86,a0,1f,12,a8 
DATA 66,14,14,10,73,8b,10,98,96,64 
DATA a7, ab,c4,21,bc,22,08,59,07,91 


© DATA 03,ed,99,07,e2,da,21,eb,51,96 


DATA 22,88,05,4£,d8,22,00,24,db,05 
DATA 6e,26,30,1f,72,f8,27,46,de,6e 
DATA 50,01,99,13,00,99,66,22,06,2c 


418 ar 
419 05 
GO ER 
421 0X 
42 = 
423 e1 
an 
425 ck 
426 3x 
Aa 30 
423 00 
2343 
230 IF 
sr 
432 U 
433 2 
434 8X 
43m 
436 KZ 
Kara 
#38 
439 24 
0 08 
Ada 73 


SEBEESEEF 
SSSasEP3B88 


2 


3 


% 
452 I 
453 uC 
454 U1 
455 u2 
456 Te 
437 50 
458 28 
49 Du 
460 21 
dei cp 
462 po 
463 du 
4öe yt 
465 07 
466 a7 
467 ZR 
468 3x 
sur Fr 
470 5E 
471 OR 
472 Ko 
4m ar 
4m 2C 
475 x 
476 mu 
Ar Ds 
478 re 
Ara BB 
480 03 
“ei yı 
482 28 
483 KL 
ABA yD 
485 44 
486 SI 
dar mu 
428 HC 
489 9e 
490 On 
san 
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DATA 
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DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DaTa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


&0,43,08,50,28,8f,50,41,43,4b 
30,23,96,08,20,04,4e,29, 01,68 
79,98,4,28,01,60,51,7e,e5,96 
14,cä,ee,26,50,50,15,11,26,41 
©8,03,90,22,08,81,97,£4,44,e0 
40,02,20,58,26,27,08,2b,48,5b 
59,26,85,30,10,56,02,79,44,54 
22,02,%,5@,17,98,29,38,do,bf 
?a,20,80,2b,58,97,18,90,06,15 
©6,25,16,76,22,62,56,47,69,92 
00,04,90,38,00,88,56,31,28,32 
40,58,46,66,08,06,10,82,12,44 
53,01,1e,ba,06,19,71,2b,b9,1c 
99,05,a2,26,67,08,88,19, 19,04 
30,84,16,48,52,66,58,18,92,01 
18,9%,35,00,40,66,d5,85,b3,10 
©9,20,04,10,00,08,08,86,50,e0 
61,56,65,46,60,88,21,16,01,23 
09,00, 80,98,42,50,01,8,5n,af 
00,88,65,12,2e,f8,08,90,28,55 
29,98,59,01,4b,f&,16,00,22,00 
67,18, ce,28,18,28,42,b3,70,12 
58,24,87,70,68,99,b1,00,02,e3 
©8,20,16,15,96,90,1b,aa,60,b8 
48,41,05,05,08,82,f2,44,06,a0 
db,b2,66,48,79,15,18,16,87,27 
©4,14,56,68,03,b8,£3,63,70,7a 
41,87,38,30,38,13,62,83,48,30 
33,86,87,11,30,16,48,00,d2,80 
cb,4b,18,26,81,00,53,31,69,31 
21,11,16,72,27,86,54,51,29,24 
=0,44,03,20,00,08,01,22,24,b£ 
02,61,14,02,e6,31,b2,58,82,b6 
@1,82,18,3,07,20,87,b0,d1,6d 
36,15,87,1b,0b,48,67,06,£2,f1 
17,33,04,4,38,01,20,78,18,78 
00,98, 78,b£,e,13,66,60,db,43 
50,25,42,98,66,56,22,18,52,81 
62,80,66,4e,11,7£,1b,e0,29,28 
5,08, 26,en,a8,05,00, f6,eb,a8 
5,02, 26,ec,a8,05,be,£8,£2,28 
9e,31,00,c4,73,£1,51,86,14, 5a 
ef, 44,82,48,00,68,03,20,f0,17 
40,70,20,07,04,82,20,03,01,00 
14,64,09,80,40,fa,ed,10,c0,ea 
36,61,81,78,28,48,22,48,67,63 
08,02,80,74,47,00,14,00,40,60 
©2,20,26,11,8,90,88,24,48,95 
09,20,24,62,16,86,73,55,10,a2 
92,88,23,04,e?,20,32,82,b2,98 
&0,24,90, 20,44, 76,30,52,98,60 
a, 08,24,50,88,98,b1,67,06,20 
15,be,04,16,ab,e3,88,d1,00,60 
#2,98,88,b1,41,78,9,64,64,b1 
04,68,00,77,21,22,c1,ae,b4,da 
01,78,22,08,74,e,cb,67,a0,15 
28,67,55,32,20,80, fd,98,88,57 
28,25,06,33,68,99,n3,9a,1a,25 
1e,66,27,86,20,7a,60,2b,4d,u5 
0e,af,£3,b1,26,9e,16,24,52,97 
08,0, 1b,62,58,69,c0,1£,60,42 
90,12,29,bo,ab,ee,e6,01,93, es 
eb,fe,ef,58,63,65,15,84,8b,0u 
66,70,09,25,83,98,64,20,26,49 
62,62,01,16,54,db,08,8e,18,00 
52,40,45,75,38,70,19,6n,eb,4a 
1b,18,97,8b,36,58,02,98 
2e,00,97,°0,70,24,18,08,02,fa 
1e,fa,62,7£,68,43,5f,00,30,7e 
06,9,00,01,85,£3,06,72,18,09 
4a, 14,64,46,03,03, 7,34 ,f4,6b 
04,51,17,12,68,07,51,87,26,58 
14,44,29,24,08,65,40,2a,80,0! 
62,02,50,00,45,95,06,03,82,72 


Listing. »MasterCruncher__Gen« 
(Fortsetzung) 


DATA 02,51,83,00,69,e1,0c,de,60,08 
DATA 6e,30,08,17,44,01,52,00,44,fe 


| DATA 47,2b,b0,£2,88,70,7e,30,94,37 


DATA 60,60,06,79,74,42,50,68,2b,1e 
DATA 6e,4a,50,66,2a,24,62,14,32,53 
DATA 16, 36,96,81,b2,04,04,58,71,60 
DATA 06,58,00,4b,fa,e0,04,51,de,ed 
DATA e0,80,67,66,b1,00,09,40,29,37 
DATA 60,87,00,00,20,34,22,72,12,24 
DATA 72,00,32,00,04,48,e1,49,82,40 
DATA 41,20,68,00,2°,05,43,21,10,15 
DATA 72,07,10,18,12,80,46,00,10,80 
DATA d0,00, f8,1f,42,54,28,14,b3,68 
DATA ee,4e,92,56,30,61,38,66,0e,80 
DATA 44,65,28,86,90,60,00,07,1b,ce 
DATA £2,52,67,16,18,02,61,87,18,be 
DATA b1,27,de,0e,4£,00,61,02,60,48 
DATA 91,97,96,e8,32,80,31,57,02,60 
DATA 14,00,18,80,25,02,44,62,46,50 
DATA 63,30,d8,38,49,83,b4,ab,08,26 
DATA 5a,08,88,25,44,08,66,24,00,de 
DATA 99,32,61,40,66,28,98,68,01,44 
DATA 24,90,68,01,54,00,86,88,72,01 
DATA 34,28,80,62,01,24,01,26,78,42 
DATA 80,61,24,26,45,58,70,01,61,1c 
DATA £9,a2,20,04,60,14,16,48,70,03 
DATA 61,00,25,80,42,38,03,80,3e,67 
DATA 64,38,14,24,42,12,60,10,d6,48 
DATA 41,67,06,20,50,53,41,60,26,41 
DATA e8,5f,£1,80,64,14,01,67,22,48 
DATA 18,66,20,€7,7b,1b,8c,70,81,01 
DATA 32,de,a2,10,22,1b,74,30,08,08 
DATA 02,66,47,19,02,48,19,66,20,53 
DATA 49,00,29,a0,18,68,a0,60,12,56 
DATA 43,21,12,67,04,12,08,60, 18,42 
DATA 19,00,5f,13,27,01,17,de,95,19 
DATA 03,72,07,58,80,68,00,14,79,88 
DATA 14,46,02,ae,24,b2,8b,9e,6c,be 
DATA a2, 38,30,10,20,73,50,96,04,88 
DATA b6,04,36,86,42,90,22,0e,08,23 
DATA 10,30, 22,52,70,32,42,18,09,72 
DATA 06, f6,b3,39,da,67,16,28,51,70 
DATA 40,bd,24,af,22,4,bb,17,88,de 
DATA 66, 02,20,52,86,42,04,24,66,07 
DATA 10,40,48,90,e8,78,30,07,58,13 
DATA 40,53,50,de,83,25,80,65,10,36 
DATA 20, 26,4e,00,34,36,30,30,02,02 
DATA 72,08, fe,ab,a8,54,08,e0,18,ad 
DATA 10,00, db,89,00,28,65,07,22,0d 
DATA 06,20, 01,26,73,07,7e,e5,00,03 
DATA 00,80,01,03,27,76,20,24,96,53 
DATA ©4,02,36,58,35,45,23,68,06,62 
DATA ed, a8, 0,24,02,74,45,24,db,ee 
DATA 42,09, 18,3e,78,45,00,9b,22,ec 
DATA 77,08,61,08,68,23,24,48,37,35 
DATA ba,fe,0a,ec,fd,b2,10,88,8e,de 
DATA 12,55,01,36,24,74,10,00,10,01 
DATA 3e,£1,06,24,12,e9,12,f0,10,58 
DATA a0, 29,92, 4,12,25,6e,57,60,9e 
DATA 24,84,44,24,80,47,28,02,70,36 
DATA bo,od,£2,46,11,90,16,32,42,10 
DATA 66,08,e5,1d,18,28,11,70,00,38 
DATA 78,bf,c9,19,03,61,94,14,68,99 
DATA 05,62,18,01,80,14,58,b3,8£,06 
DATA 46,98,06,06,99,89, 30,30, 24,98 
DATA 82,61,27, 71, 26,44,96,53,02,0c 
DATA 90,76,39,05,65,28,20,32,12,b6 
DATA 50,80,00, 25,4, a0,67,20,92,05 
DATA ba,20,0f,22,52,90,64,34,11,20 
DATA ba,18,98,70,24,01,a,63,fe,66 
DATA 69, bo, 08,0,04,15,06,88,66,42 
DaTa 82,42,83,76,23,30,59,40,36,65 
DATA e6,12,80,40,98,00,d6,28,17,36 
DATA 64 ,e2,e8,38,17,30,65,de,8e,17 
DATA 20,64,06,83,38,17,26,65, 0,48 
DATA bo,d3,c0,da,68,60,30,61,68,38 
DATA 1F,0,48,85,20,66,38,23,2,64 
DATA 20,45, be, #6,65,22,da,57,72,64 
DATA e4,fb,e0,65,de,61,3a,2a,af,16 
DATA e2,64,ca,b2,24,9e,de,65,c4,b2 
DATA c0,09,d8,64,be,D6,50,&2,65,58 
DATA 25,ab,ea,de,60,02,5d,21,45,24 


DATA 10,48,52,67,02,61,02,82,91,8c 
DATA 06,42,cb,20,92,09,35,20,7a,16 
DATA 94,66,27,15,44,01,26,20,58,42 
DATA 28,02,22,03,54,40,69, 2e,eb,24 
DATA 00,26,01,98,80,98,81,55, 44,20 
DATA da,2#,82,50,53,05,bb,22,32,08 
DATA 63,65,01,24,66,80,43,95,43,52 
DATA 66,30,29,14,18,98,56,82,55,64 
DATA 25,05,00,03,99,93,11,92,54,30 
DATA 01,12,2e,26,08,20,49,04,79,95 
DATA 02,17,08,56,00,05,94,d2,00,5e 
DATA 00,e1,94,87,06,a1,4e,35,00,76 
DATA 01,34,00,83,#7,01,77,36,37,70 
DATA 91,43,57,65,39,46,56,49,19,38 
DATA e9,75,14,d9,28,30,0b,20,48,58 
DATA 26,65,00,91,8e,ea,18,05,06,0d 
DATA 5e,68,4b,68,73,00,0e,de,9e,fO 
DATA 26,55,89,85,50,78,18,84,67, fa 
DATA 3e,07,af,3b,f1,00,45,50,51,52 
DATA 53,54,55,56,57,58,59,00,46,5€ 
DATA 4c,44,4e,42,42,00,30,31,32,33 
DATA 34,35,36,37,38,39,61,41,62,42 
DATA 63,43,64,44,65,45,66,46,85,e0 
DATA 7£,01,08,11,39,82,11,36,d4,4b 
DATA e8,f2,88,90,40,53,21,42,84,38 
66,18,20,00,53,00,51,67,26,42 
53,e8,b2,26,21,37,80,30,64,18 
48,05,76,28,20,81,90,32,32,18 
00,72,13,f8,98,66,be,a0,b1,ce 
82,92,20,b8,60,43,51,30,22,96 
1,66,28,48,44,67,08,53,44,91 
,64,53,13,58,78,53,45,96 
2b, 07,57,83,4c,ab,80,03 
52,60, 78,de,50,18, fe, 44,64,76 
20,68,00,e0,09,67,17,28,00,17 
64,72,20,95,02,bB,de,e5,66,0b 
60,17,22,17,24,00,13,78,Be,4e 
80,45,14,42,53,67,18,19,b8,2a 
42,40,10,38,17,80,72,15,50,33 
10,52,?e,21,74,14,18,ab,43,bB 
06, 28,72,56,12,96,08,74,04,2d 
0e,10,b8,17,60,51,4,14,06,52 
93,e1,03,04,01,52,44,41,05,48 
b4,80,de,47,e0,60,52,13,d1,cä 
b2,b2,96,8,02,24,98,£0,c2,01 
1b,7e,db,99,ba,01,1a,c0,20 
22,14,fe,50,92,02,b6,2a,7a,fc 
DATA e5,31,15,26,96,40,17,22,48,50 
DATA 67,72,00,50,e0,28,92,60,b5,86 
DATA c0,46,41,35,22,26,00,62,ac,04 
DATA 42,42,40,67,40,40,17,94,40,02 
DATA 80,20,78,b6,00,14,02,24,88,11 
DATA 17,02,41,92,99,77,86,88,25,02 
DATA 01,53,e5,c8, Be,0d,e7,04,b8,ab 
DATA d9,02,59,ef,fa,£1,26,05,44,45 
DATA fa,eä,c0,34,be,ee,6f,Bc,ca,78 
DATA 92,04,04,10,42,39,38,29,49,18 
‚25,80, 20,60, 00, ee,00,79 
DATA 01,e9,05,38,17,%6,0,00,11,b9 
DATA 03,40,da,e7,e?,78,02,06,70,76 
DATA 80,44,b7,80,72,06,c8,12,25,c0 
DATA 01,24,50,9%,47,98,de,d8,0d,e0 
DATA 51,05,20,38,13,4e,20,41,17,10 
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DATA f,00,13,79,eb,98,00, 0,19, 5e 
DATA ©8,98,50,6b,b6,2b,13,98,65,44 
DATA a1,68,82,08,45,03,04,00,66,5c 
DATA 80,07,14,06,81,10,28,10,10,46 
DATA 00,02,08,65,26, £4,01,40,da,00 
DATA 40,01,77,90,0,32,80,60,28,94 
DATA Af,e6,e0,01,29,08,60,20,02,43 
DATA 67,62,18,00,94,59,60,08,96,93 
DATA 02,51,60,10,87,40,00,70,01,15 
DATA be,01,89,d,97,co,62,bf,08,19 
DATA 07,42,39,16,70,00,31,65,42,81 
DATA 78,04,d0,68,12,18,42,82,2e,2a 
DATA 05,58,89,ba,80,82,58,45,18,24 
DATA eo,1a,e8,98,71,de,82,20,05,45 
DATA 03, 3e,e0,41,00,12,14,19,16,19 
DATA 73,18,01,04,62,03,66,12,37,12 
DATA 4#,30,01,31,02,32,03,33,04,34 
DATA 05,35,06,36,07,37,08,38,09,3b 
DATA 00,72,49,30,08,41,08,61,21,75 
DATA 06,62,00,43,00,63,04,44,0d,64 
DATA 08,45,06,65,06,46,00,66,18,e0 
DATA bf,65,06,20,80,74,00,69,98,16 
DATA 7e,25,10,08,74,2,00,38,09,62 
DATA 06,41,02,30,60,04,06,03,00,37 
DATA 10,03,0d,78,74,e2,ab,80,01,08 
DATA 18,08,ae,1n,29,12,06,b4,e8, ff 
DATA 02,58,56,12,02,93,68,02,02,25 
DATA 10,12,04,28,80,8,0f,e7,62,4a 
DATA 55,66,38,22,78,11,de,20,09,f8 
DATA 77,00,30,68,35,45,47,24,96,20 
DATA 43,56,61,19,50,08,81,61,28,7a 
DATA a4,61,22,68,00,07,61,10,ed,al 
DATA e2,61,16,54, 3b,d4,a2,00,82,10 
DATA 40,69, 98,2u,e5,83, 7e,0b,42,80 
DATA 10,19, 80,98,63,17,98,31,54,56 
DATA 48,51,08,08,10,58,52,00,41,97 
DATA 90,00,d8,f0,06,66,16,29,36,52 
DATA 67,28,67,00,03,00,af,1e,43,08 
DATA 28,68,38,b8,a1,00,40,67,48, te 
DATA 26,40,65,42,01,03,40,00,40,93 
DATA ea,eb,52,49,24,5,b4,03,68,47 
DATA 70,e1,08,65,90,16,13,66,21,70 
DATA 00, 20,84,60,04,30,73,28,48,45 
DATA e1,46,60,24,11,bb,34,72,70,e1 
DATA 10,12,10,48,80,34,01,01,49,ed 
DATA 48,42,42,82,40,00, 28,0f,10,2e 
DATA 30,56,18,96,13,67,14,10,67,30 
DATA 00,02,3d,e3,67,da,94,28,be,75 
DATA e5,18,28,34,99,07,6d,66,48,26 
DATA 68,74,57,47,23,20,00,42,43,78 
DATA 07,18,13,46,05,11,85,2,4d,06 
DATA 43,00,28,46,88,47,77,4b,63,ee 
DATA 52,48,60,28,06,00,58,61,66,37 
DATA 43,74,cb,a3,48,ab,b6,33,22, 5b 
DATA 92,54,52,20,38,10,52,90,81,90 
DATA ba,10,48,84, 8d,47,26,72,19,91 
DATA fe,02,20,0d,22,03,11,94,3b,37 
DATA 06,43,28,2a,b9,80,10,36,28,8b 
DATA ?e,9e,3a,bc,b5,8,70,65,3b,ad 
DATA 31,26, bb,5b,de,54,44,00,19, 80 
DATA fe,88,00,08,13,70,42,55,ce,ef 
DATA 80,02,43, 24,04, 02,56, 01,08,24 
DATA 42,de,36,48,8, 06,6, 5b,02,08 
DATA 0f,04,42,95,68,£1,aa,4b,fa,e1 
DATA bO, 20, 3,e2,e0,70,00,38,5,14 
DATA 02,b5,be,a8,45,52,24,02,aa,f9 
DATA 0£,06,58,81,06,6,05,e2,40,d0 
DATA b6,b8,45,20,08,00,22,78,07,de 
DATA 50,89,42,45,#1,80,03,£°,20,08 
DATA @3,c6,1P,c7,bf,e0,31,82,98,68 
DATA 10,10,33,£0,89,b£,84,99,72,01 
DATA 24,32,86,20,00,30,08,7e,66,36 
DATA 48,87,80,10,42,40,43,85, 20,02 
DaTa 26,49,53,08,66,10,b3,ca,62,0c 
DATA b1,cb,62,08,52,40,0c,e0,£f,44 
DATA £7,66,ec,b0,a0,33,82,49,71,33 
DATA 59, 08,24,58,33,db,38,00,24,e2 
DATA 56,59,74,52,41,47,20,10,00,67 
DATA 02,57, ca,ff,ba,e2,32,62,32,41 
DATA 86,50,90,41,09,81,01,67,32,bd 
DATA 52,00,57,41,68,5d,a2,62,10,57 
DATA 63,18,65,41,56,04, 08,68,00,£2 
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KEEKES 
70 21 
721 0) 
722 8 
723 Ns 
T24 c5 
725 nt 
726 H3 
727 36 
728 vC 
mag BT 
730 1e 
KEN 
732 st 
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134 39 
795 6x 
738 uv. 
737.9 
738 e0 
739 ns 
TO 2x 
741.p3 
Tee va 
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Th PL. 
75 28 
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MT 
Tas 00 
EN 
750 1 
D51 07 
752 OF 
93 v8 
734 jo 
255 v2 
76 9% 
757 10 
KR 
759 38 
260 ap 
761 QE 
762 SD 
763 Ni. 
MOL Be. 
765 th 
766 N 
77 en 
768 Wi 
769 .0M 
TO PD 
qzı 26 
Tr ar 
773 v6 
TR VE 
775 3 
776 e5 
Tu7 me 
Mrs uU 
79 IL 
780 NP 
72 16 
782 sc 
783.34 
ak v5 
785 Da 
786 et 
mar ra 
AB mo 
789 ER 
200 
Ks 
792 0X 
am 
mas 3% 
793. D0 
706 8) 
mo7 De 
798 08 
79956 
O0 FT. 


DATA 7a,00,1b,56,a4,41,f0,06,?2,b0 
DATA 16,60,29,47,e2, 22, 22,b7,08,09 
DATA e?,89,48,12,48,52,45,e5,af,60 
DATA 28,04, 07, b,98,41,20,09,e2,88 
DaTa 64,06,52,49,19,53,65,02,32,e1 
DATA 20,98, 64, 7a,ba,00,f4,93,08,21 
DATA 49,eh,ob,oe,ee,7e,a0,22,b3,2& 
DATA 76,05,01,96,26,b2,71,39,16,9e 
DATA 30,77,80,02,06,48,82,6d,03,e5 
DATA 29,82,45,42,88,81,30,07,23,77 
DATA a2,50,05,05,08,0f,08,26,93,23 
DATA 02,05,03,08,0a,12,de,6f,0f,20 
DATA 76,02,66,38,83,äb,b3,e2,4b,5e 
DATA 44,55,b4,40,83,46,36,33,30,06 
DATA 38,03, 0,4d,a4, 5£,44,07,69,60 
DATA 02,44,00,0f,22,22,20,07,16,b2 
DATA 01,20,06,06,09,08,06,08, 28, f1 
DATA 02,32,62,45,20,44,32,00,ea,14 
DATA 31,6,00,04,41,58,1e,66,78,09 
DATA 09,01,38,38,78,06,54,73,67,34 
DATA 26,04,06,08,01,01,02,03,02,47 
DATA fa, ff,t4,e0,37,42,38,78,04,&b 
DATA 46,65, 40,50,44,5e,08,22,26,90 
DATA 44,18,33,50,05,48,84,72,20,63 
DaTn 69,08,45,53,44,82,40,02,89,e2 
DATA 17,51,08,00,08,12,07,42,47,7e 
DATA 07,58,00,38,82,20,66,44,18,59 
DATA 13,£?,18,b6,00,06,18,£0,02,16 
DATA 41,50,37,09,34,a2,22,08,24,12 
DATA 78,03, ee,e4,18,e2,48,80,67,5 

DATA £2,05,de,b6,92,a8,c1,52,56,49 
DATA 7a,58,30,70,14,99,32,04,48,41 
DATA 84,56,00,99,72,23,fa,e4,26,31 
DATA 29, 58,33, fa, 82,0, da,be,9e,40 
DATA 08,09, 28,b8,18,43,51,01,56,22 
DATA 85,58,de,d8,64,dc,42,80,56,70 
DATA 80,7?,b2,43,02,54,28,18,24,d2 
DATA 86,23,19,50,66,04,26,82,23,07 
DATA 74,21,53,76,25,26,92,cb,c8,28 
DATA 06,63,03,22,00,38,03,66, 4,81 
DATA 13,06,20,08,25,b4,88,04,08,00 
DATA d0,85,b8,8e,ab,08,16,e9,66,28 
DATA 28,58,08,eb,00,35,02,68,bb,1e 
DATA 9, a0,60,20,40,20,39,29,a2,02 
DATA 72,4e,60,60,42,47,68,e2,66,28 
DATA 60,bb,01,18,20,24,8,06,05,23 
DATA 00,00,73,de,24,40,40,20,58,58 
DATA 84,20, 87,00,28,00,62,22,41,c0 
DATA 30,60, 18,00,40,30,93,66,14, 28 
DATA &8,20,14,56,a2,47,03,21,be,08 
DATA 70,08,0b,4d,14,65,66,94,61,82 
DATA 52,57,00,08,70,04,48,24,03,b0 
DATA 75,25,96,00,24,08,26,00,22,38 
DATA 00,00,b4,20, 85,40, 24,5d,68,26 
DATA 33,66, 88,80,28,b4,ce,22,b3,68 
DATA 67,74,07,78,11,14,00,89,83,21 
DATA 00,26,96,16,03,e6,69,22,20,02 
DATA b6,13,03,£3,be,08,38,00,2,98 
DATA 38,78,02,98,35,8%,83,14,18,39 
DATA 80,64,62,07,76,10,80,64,66,31 
DATA 3,68,73,e1,03,68,26,09,83,03 
DATA 38, 00,08,03,20,24,51,00,09,e3 
DATA 00,3,c2,58,84,2b,4a,7a,0f,70 
DATA 30,61, 36,be,a2,3b,46,14,40,bä 
DATA 20,78,31,03,82,33,36,18,41,87 
DATA 15, 2,00, 16,05,ac,06,04,03, 2b 
DATA 20, 00,27,51,85,51,fc,e5,39,#3 
DATA 89,54,81,22,01,e0,32,60,16,22 
DATA 06,20,07,53,86,26,#1,eb,4b,63 
DATA 31,22,30,04,41,30,33,58,8b,14 
DATA 53,09,1e,67,04,08,01,00,01,T& 
DATA 2a,72,38,28,00,58,80,51,ce,ff 
DATA e0,26,52,07,24,e4,22,23,e9,28 
DATA 05,98, f6,ee,a8,c5,90,16,eb,a8 
DATA 05,28, f6,ec,a8,d3,b0,6€,b0,De 
DATA 6,04, 23,0d,02,4e,71,24,72,00 
DATA 23,06, be,86,62,08,22,07,52,4t 
DATA £f,18,03,11,10,58,20,73,52,87 
DATA 53,87,67,18,08,15,85,04,=8,0e 
DATA 22,92,40,28,00,08,58,20,e4,88 
DATA 23,40,19,11,48,60,e2,28,17,42 
DATA 29, 24,20,43,42,57,22,26,50,50 


DATA 68,06,e0,21,34,07,58,0b,41,. 
DATA 46,51,20,84,11,34,88,22,e1,3e 
DATA 29, 28,18,61,28,06,07,1b,e5,88 
DATA 20,45,7,c0,2,75,00,22,64,89 
DaTa 22,71,94,08,89,4e,2e,24,90,20 
DATA 57,38,61,06,54,81,85,40, 2,36 
DaTa 48,85,67,02,52,86,72,01,78,51 
DaTa 4a,9,04,52,20,06,27,58,22,70 
DATA 08,6,21,18,15,67,24,54,87,89 
DATA 04,b#,00,28,70,18,00,50,80,53 
DATA 80,20,40,24,49,22,16,10,80, 7% 
DATA 46,22,12,81,01,24,88,51,c8,£? 
DATA £0,60,8,03,18,06,0,48,e7,£% 
DATA fe,&b,fa,01,80,41,£8,f2,12,22 
DATA 50,06, 00,7£,43,09,58,89,26,49 
DATA 80,18,26,76,00,83,cb,25,18,61 
DaTa 00,4e,9,80,57,81,40,82,7£,£2 
DATA d9,24,20,26,14,22,18,22,68,00 
DATA 18,43,05,41,40,91,01,£7,95,b1 
DATA 04,48,60,62,02,53,88,90,38,14 
DATA 51,58,17,42,91,98,21,38,76,03 
DATA 62,15,19,20,30,82,78,27,e5,6c 
DATA 46,44,53,42,e5, 2211,00, 5b,4a 
DATA 43,67,06,b8,41,56,a1,ef,d8,14 
DATA 21,96,04,48,82,42,42,12,df,08 
DATA 02,43,28,02,08,07,04,01,13,20 
DATA 33,08,00,df,f1,80,51,#2,57,26 
DATA da,86,26,65,00,14,50,8,b1,cb 
DATA 6f,54,bf,08,86,29,38,74,03,ec. 
DATA 10,01,08,b,18,42,41,52,42,58 
00,67,12,55,29,53,43,18,03,51 
22,03,16,33,20,05,48,83,42,43 
©6,3£,00,08,02,02,fe,d4,02,06 
04,03,02,00,41,25,69,67,42,47 
6,67,34,76,01,68,00,00,30,16 
52,43,02,28,18,33,d0,48,84,28 
68,10,00,00,6b,e3,46,44,73,30 
04,3, 06,00,32,06,04,07,88,42 
5,00,98,42,42,76,05,42,44,52 
37,e2,64,04,76,08,78,40,23,08 
66,04,10,20,3,10,3,52,51,cb 
1£,14,84,44,45,21,09,f0,£,48 
01,45,01,53,41,13,22,51,09,17 
26,60,52,7£,08,48,75,95,76,b3 
A 24,20,58,38,28,06,00,20,00,fe 
00,82, e8,87,80,00,14,00,86,00 
28,00,93,00,24,00,69,80,6€,80 
04,00,07,40,02,60,03,20,01,40 
01,c0,44,c0,72,00,00,07,28,24 
a8,41,26,04,28,68,28,50,83,2c 
18,28,4,20,38,66,01,32,39,34 
@8,41,b5,e2,01,88,41,40,b8,01 
30,24,07,15,85,01,ab,cf,58,18 
11,92, 00,38,00,9,00,40,00,8e 
29,81,00,90,29,01,00,80,21,c0 
1f,a0,08,75,e4,b6,3b,56,84,2e 

‚02,00,45,06,00,24,01,38 

da,50,07,82,05,79,01,84 
09,b4,01,86,02,46,01,22,0?,ca 
01,a4,04,22,01,26,18,20,47,29 
<0,68,31,69,05,39, 72,6b,e5, 41 
96,08,49,2,94,51,15,28,59,37 
de ,61,62,98,69,46,24,71,59,39 
79,72,53,84,51,66,08,89,44,% 
91,9,08,99,4d,e6,21,02,07,b1 
71,16,82,08,59,20,04,08,01,59 
88,00,c9,53,10,0b,61,67,21,0a 
49, 00,42,09,81,9,99,08,24,38 
13,00,22,00,09,89,85,07,21,38 
0,06,29,71,36,22,05,22,42,16 
94,10,04,09,67,21,03,11,08,42 
02,19,90,35,01,21,09,78,17,80 
55,71,12,22,72,7,01,01,b8,6b 
c0,01,07,30,18,6£,£0,12,12,30 
65,23,09,44,46,31,32,27,21,0b 
42,40,78,60,17,04,43,21,36,07 
40,56,97,03,19,80,20,03,04,46 
10,06, 06,23,00,78,87,0£,30,01 
04,29,00,43, 20,05, 28,57,77,25 
45,26,83,24,2£,08,00,45,58,%0 
17.18, 00,98,43,40,29,36,13,c6 
94,01,20,60,57, 12, 3e,3e,80,43 
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DATA 
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DaTa 
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DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
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DaTa 
DATA 
DATA 
DATA 
DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
Data 
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DATA 
DATA 
DATA 
Data 
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DaTa 
Data 
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DATA 
DATA 
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76,62,80,39,06,79,20,56,33,2e 
68,23, 30,30,34,34,2d,2d,24,20 
26,28,03,13,59,08,88,82, 30,50 
#a,42,04,30,16,52,41,48,44, eb 
08,44,49, 4 ,41,45,40,94,68,20 
20,14,52,32,49,05,f8,00,43,42 
50,59,52,49,47,48,8d,17,42,c0 
71,44,39,46,22,45,26,64,19,45 
43,48 ‚48,49, 46, 72,08, 40, 42,80 
@6,10,23,19,08,0e,44,31,33,e2 
05,24, 38,80, %,18,08,50,75,17 
46,70,6f,,08,84,53,11,83,23,07 
05,11,88,22,00,e2,85,02,12,6f 
55,80, £7,42,81,13,b7,04,62,50 
73,b1,00,14,50,15,e0,55,40,1b 
02,99,12,10,15,56,05,78,20,16 
87,44,b8,44,e5,65,53,53,58,9b 
16,26,53,3e,09,24,54,49,4t,4e 
20,88,£2,21,54,48,25,06,b2,35 
48,12,8?,22,01,18,94,0b,e3,20 
44,55,44,50,60,98,48,00,62,52 
43,17,5£,50,54,20,80,20,b4,24 
b0,0b,00,e8,09,72,41,08,60,3a 
53,59,61,83,91,00,3b,01,00,6b 
90,83,b6,00,24,bb,60,1,08,67 
22,78,67,40,18,58,20,01,42,08 
54 ,22,20,02,9e,05,09,49,53,20 
41,40 ,98,78,41,44,59,52,7£,5b 
13,14,77,80,07,02,00,0e,90,02 
b1,0d,00,0£,09,00,42,00,46,2e 
96,00,4,14,02,58,01,46,52,4e 
©3,06,72,38,20,48,4,b8,65,53 
41,04,68,44,92,89,00,a?,00,43 
43,52,61,43,48,16,28,47,91,4b 
50,96,41,53,84,43,57,41,49,54 
70,44,00,68,44,01,41,42,02,04 
20,54,40,20,52,45,50,41,43,29 
14,64,40,40,45,a0,04,71,07,40 
55,54,28,96,46,20,Ad,45,4d,el 
22,59, 84,32,60,03,20,20,0n,27 
01,08,20,bd,52,e1,2e,2e,2e,20 
84 ,27,46,45,46,49,48,20,48,48 
55,48,46,34,52,20,42,56,45,52 
42,41,59,45,44,20,00,10,14,00 
80,22,43,£2,10,18,bd,81,00,00 
28 ,67,44,70,68,69,63,73,28,60 
69,62,72,61,72,79,68,70,18,37 
03,06,39,16,30,43,18,18,72,20 
10,31,38,34,e4,80,1d,32,34,bb 
a8,01,££,01,16,33,3b,b5,04,08 
78,c0,14,50,40,20,30,30,00,74 
61,70,61,7a,28,66,62,68,74,24 
13,31,46,00,69,93,66,05,7a,e6 
07,44 ,46,30,38,79,20,32,07,80 
28,01,58,05,02,a0,96,40,98,f3 
83,63,61,68,73,62,60,65,28,64 
65,76,69,63,65,£7,18,04,81,19 
©0,02,e2,20,80,18,30,00,01,08 
68, 8b, 02,94,88,00,49,48,50,55 
26,69,80,34,10,28,58,15,92,70 
08,9e,68,d2,30,05,15,00,16,50 
20,07,06,35,ce,28,02,22,46,10 
06,d4,a0, 38, 08,23, 44,70,40,50 
83,e6,18,20,84,20,26,08,24, fe 
70,08,50,83,08,18,16,d4,a0,1e 
06,30,35,45,28,41,52,08,58,68 
5e,50,83,9,1a,a0,54,25,c0,01 
0e,36,22,26,62,00,0b,31,e2,30 
50,46,29,25,eD, aa, 00,01,00,00 
03,£2,40,28,00,00,00,50,00,00 
03,e0,00,00,04,51,00,00,03,f2 
00,00,03,8,00,00,00,03,50,49 
55,33,00,00,24,7e,07,23,1b,0e 
00,00,03,2 


men, doch jedes hat seine Schwächen. Eines findet nur be- 

stimmte Viren, ein anderes hilft nicht gegen Link-Viren 
(dazu später). Mit »VirusControl« bieten wir Ihnen ein optimales 
Werkzeug gegen Viren jeder Art an. VirusControl ist trotz seiner 
Leistungsvielfalt einfach zu bedienen, denn gerade für Einsteiger 
sind Viren auf dem Amiga gefährlich. Erstens weiß er die Anzei- 
chen nicht zu deuten, und zweitens ist er meist nicht in der Lage, 
sie zu beseitigen. 

Damit Sie die einzelnen Erklärungen richtig verfolgen können, 
sollten Sie zuerst das Programm besitzen. Folgende Schritte sind 
erforderlich, um VirusControl zu installieren: 

— Stellen Sie sicher, daß auf der Zieldiskette mindestens 35 Blocks 
frei sind. Die Anzahl der freien Blocks erfahren Sie, wenn Sie in ei- 
nem CLI-Fenster den Befehl INFO eingeben. Wenn nötig, müssen 
Sie unbenötigte Dateien von der Diskette löschen. 

— Starten Sie den Amiga-Basic-Interpreter durch Doppelklick. Ge- 
ben Sie folgende Kommandos ein: 


E: existiert bereits eine Vielzahl von Anti-Virus-Program- 


CLEAR „50000 
LOAD "VirusControl_Gen” 
— Starten Sie das Programm mit dem Kommando: 


— Wenn das Programm den Text »Bitte Workbench-Diskette in 
DFO: einlegen!« ausgibt, legen Sie Ihre Workbench-Diskette ein, 
mit der Sie normalerweise den Amiga starten. 

‚Auf dieser Diskette befindet sich nun im Verzeichnis C dasfertige 
Programm. Außerdem ist die »Startup-Sequence« verändert wor- 
den, so daß VirusControl automatisch gestartet wird. 

Um sicherzugehen, daß bei Ihnen nicht schon ein Virus im Sy- 
stern ist, schalten Sie Ihren Amiga nach Beendigung des Pro- 
gramms für 20 Sekunden aus. Booten Sie anschließend mit der be- 
handelten Workbench-Diskette. Sollte nun etwas Außergewöhnli- 
ches passieren, lesen Sie weiter, denn es folgt die Erläuterung der 
Funktionen von VirusControl. 

VirusControl wird im CLI oder in der »Startup-Sequence« gestar- 
tet. Auch ein Start von der Workbench ist möglich. Die Parameter 
werden entweder beim Start im CLI angegeben oder in die ».info«- 
Datei im Feld »TOOL TYPES« eingetragen. 

Beim Versuch, VirusControl zu starten, kontrolliert das Pro- 
gramm, ob der Amiga bereits infiziert ist. Hierzu werden einige 
‚System-Vektoren überprüft. Wenn diese verändert sind, wird Virus- 
Control nicht installiert. Statt dessen erscheint die Aufforderung, 
den Amiga auszuschalten, wieder einzuschalten und möglichst 
frühzeitig VirusControl zu starten. Nun kann kein Virus mehr uner- 
kannt indas System eindringen. Bei Veränderungen an einigen be- 
stimmten System-Vektoren gibt VirusControl nur eine Warnmel- 
dung aus, da diese auch von »seriösen« Programmen (Face Il, XO- 
per etc.) verbogen werden. Ferner prüft VirusControl, ob es bereits 
installiert wurde, und gibt eine entsprechende Meldung aus. 
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Bei einem Reset wird geprüft, ob die linke Maustaste gedrückt 
ist. Ist dies der Fall, wird VirusControl entfernt. Ansonsten zeigt ein 
weiß-blaues Farbsignal an, daß VirusControl weiterhin das System 
kontrolliert. Ab jetzt prüft das Programm, ob ein Zugriff auf eine Dis- 
kette ab Track 0 (erster Teil der Bootsektoren) erfolgt. Dies ist beim 
gleich folgenden Booten und auch beim normalen Einlegen einer 
Diskette der Fall. Auch der Befehl LOADWEB greift auf die Bootsek- 
toren zu. Wird VirusControl ohne »-t« aufgerufen, erfolgt auch hier 
eine Überprüfung durch VirusControl. 

Der Amiga bootet nur dann von einer Diskette, wenn folgende 
zwei Bedingungen erfüllt sind: Die Diskette muß die DOS-Kennung 
besitzen und die Bootblock-Checksumme muß stimmen. Ist der 
Bootblock der Diskette kein Standard-Bootblock, handelt es sich 
um eine »verdächtige Disk«, da es ein Bootblock-Virus sein kann. 
Es kann sich aber auch um ein harmloses Boot-Intro (z. B. eine 
Grafik von Bootgirl, AMIGA-Magazin, Ausgabe 3/88) oder ein 
selbststartendes Spiel handeln. . 


entdeckt 


Wenn der Amiga von einer Diskette booten will, prüft Virus 
Control, ob die eingelegte Boot-Diskette verdächtig ist. Wenn ja, er- 
scheint ein Dialogfeld (Requester), das eine gefahrlose Bootsimu- 
lation anbietet, oder aber die echte Disk-Boot-Routine. Im ersten 
Fall wird das Programm in den Bootsektoren nicht durchgeführt. 
Wird die zweite Möglichkeit gewählt, erscheint ein weiteres Dialog- 
feld, das auf die Gefahr des Aktivierens von Bootblock-Viren durch 
das »echte« Booten hinweist. Es gibt Spiele, bei denen der Boot- 
block unbedingt abgearbeitet werden muß, damit das Spiel läuft. 
In diesem Fall ist es nötig, das Programm in den Bootblocks laufen 
zu lassen. Wählen Sie diese Möglichkeit jedoch nur, wenn Sie si- 
cher sind, daß es sich nicht um einen Virus handelt! 

Wird während der Arbeit mit dem Amiga eine verdächtige Disket- 
te eingelegt, wird dieses durch das Erscheinen eines Kontrollfen- 
sters (siehe Bild 1) deutlich gemacht. Hält man während des Disk- 
Einlegens die rechte Alt-Taste gedrückt, wird die Diskette nicht 
durch VirusControl überprüft. Drückt man während des Disk- 
Einlegens die linke Alt-Taste, erscheint auch bei nicht verdächtigen 
Disketten das Kontrollfenster. 

Falls Sie nur über ein Laufwerk verfügen, ist es notwendig, das 
Kontrollfenster auf andere Art zu öffnen. Rufen Sie VirusControl im 
CL! oder von der Workbench auf und drücken Sie sofort danach die 
linke Alt-Taste. Dadurch ist die Diskette im Laufwerk nicht blockiert 
und Sie können mit VirusControl diese Diskette behandeln. 

Kann aufgrund von Speichermangel das Kontrollfenster nicht 
geöffnet werden, zeigt VirusControl dies durch eine kurze 
Schwarzfärbung des Bildschirms an. Das Kontrolifenster bietet ei- 
ne Vielzahl nützlicher Fähigkeiten an, die durch Anklicken des ent- 
sprechenden Schalters (Gadgets) ausgewählt werden. 
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Das Anklicken des Schließschalters (Close Gadget, links oben 
im Kontrollfenster) beendet die Arbeit mit der eingelegten Disk. Erst 
danach darf eine andere Diskette eingelegt werden. Solange der 
Schließschalter nicht betätigt wurde, darf die Diskette lediglich zum 
Ändern des Schreibschutzes entnommen werden. Mit den beiden 
Schaltern rechts oben, können Sie das Kontrollfenster vor oder hin- 
ter die anderen Fenster auf der Workbench legen. 

Beende VirusControl 

Das Anklicken von »Beende VirusControl« entfernt VirusControl 
aus dem Speicher. Danach kann die Diskette entnommen werden. 
Kill System-Virus 

Dieser Programmteil versucht, einen aktiven Virus zu eliminie- 
ren, indem unter anderem verschiedene Systemvektoren restau- 


Sie auch schon 
Ärger mit Viren? Mit 
Enusconkol ist die Zeit 
Sorgen vorbei. Sowohl 
block- als auch Link-Viren 
das Programm. 


riert werden. Es ist allerdings nicht garantiert, daß der Amiga nach 
dem Versuch richtig weiterarbeitet. 
Bootblock -> Schirm 

Ein Anklicken von »Bootblock -> Schirm« zeigt den gesamten 
Bootblock (1024 Byte) als ASCII-Text an. An verräterischen Texten 
können Sie die meisten Viren erkennen. 
Bootblock -> File 

Schreibt den gesamten Bootblock(1024 Byte) in eine Datei, de- 
ren Name im Texteingabefeld (Stringgadget, ganz unten im Kon- 
trollfenster) eingegeben wird. 
File -> Bootblock 

Ein Anklicken von »File -> Bootblock« überschreibt den Boot- 
block mit einer Datei, deren Name im Texteingabefeld eingetragen 
ist. Mit dieser Möglichkeit, den Bootblock in ein File zu speichern, 
und dieses File auch wieder auf den Bootblock zu schreiben, kön- 
nen Sie von allen wichtigen Disketten.eine Kopie des Bootblocks 
anfertigen, und somit notfalls den Original-Bootblock wiederher- 
stellen und wieder mit der Diskette arbeiten. 
Standard-Bootblock 

Haben Sie einen Virus entdeckt, wollen Sie ihn auch beseitigen. 
Durch das Anklicken von »Standard-Bootblock« wird der Original- 
‚Amiga-Bootblock auf Diskette geschrieben. Das entspricht dem 
Befehl INSTALL. 
NoFastMem-Bootblock 

Durch Anwählen dieses Schalters schreibt VirusControl eine 
Bootblock-Routine auf Diskette, die das Fast-Memory schon zu Be- 
ginn des Boot-Vorgangs abschaltet. Der Rechner verhält sich so, 
als ob er nur Chip-Memory besitzen würde. Ein blaues Farbsignal 
zeigt die NoFastMem-Routine an. Hält man während des Resets 
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die linke Maustaste gedrückt, wird die 
NoFastMem-Routine nicht ausgeführt. 
f.Checksum ->NoBoot 

‚Schreibt eine falsche Bootblock-Checksumme auf die Diskette, 
wodurch von der Diskette nicht mehr gebootet werden kann. Ein 
eventueller Bootblock-Virus ist dadurch (vorübergehend) unschäd- 
lich gemacht. 
r.Checksum ->NoBoot 

Ist das Gegenstück zu »f.Checksum ->NoBoot«, es korrigiert die 
Checksumme wieder. Dadurch kann mit der Diskette wieder ge- 
bootet werden, und somit auch ein eventueller Virus aktiviert wer- 
den. Die beiden Routinen ändern nur die Bootblock-Checksumme. 
Der Bootblock-Inhalt bleibt erhalten. 
in S:NoWarning-File 

Wie schon erwähnt, gibt es ungefährliche Bootblöcke, die Virus- 
Control als »verdächtig« einstuft. VirusControl wäre unkomfortabel, 
wenn in diesem Fall jedesmal das Kontrollfenster erscheinen wür- 
de. Mit diesem Schalter können Sie diesen Vorgang verhindern. 
Wenn Sie eine Diskette einlegen, von der Sie GARANTIERT wis- 
sen, daß sich kein Virus darauf befindet, sondern ein ungefährli- 
cher Bootblock, klicken Sie diesen Schalter an. Der verdächtige 
Bootblock wird nun in der Datei »s:NoWarning« gespeichert. Exi- 
stiert s:NoWarning, hängt VirusControl den Bootblock an das Da- 
teiende an. Andernfalls wird S:NoWarning zuerst erstellt. Sollte der 


Wichtige Hinweise 


Beim Starten folgender Programme öffnet VirusControl ein Warn- 
Gadget. Sie können esignorieren, da diese Programme die folgenden 
Vektoren legal nutzen: 
Programm: Vektoren: 
Setpatch Alert 
AllocEntry 
UserState ab V 34,27 
‚Xoper Switch 
CPr AddTask 
Remiask 
OpenDevice 
NoFastMem AllocMem 
AvailMern 
ALF KickMemPtr 
‚Autoboot- KickfagPtr 
Controller KickCheckSum 
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= — —j 
»VirusControl« erscheint bei 


Bild 1. Das Kontrollfenster von 
»verdächtigen« Disketten 


zu speichernde Bootblock bereits in s:NoWarning vorhanden sein, 
erscheint ein Requester, der die Möglichkeit anbietet, den Boot- 
block aus der Datei zu entfernen. Legen Sie nun später eine ver- 
dächtige Diskette ein, deren Bootblock in s:NoWarning vorhanden 
ist, blitzt der Bildschirm nur kurz rot auf. Das Kontrollfenster wird 
nicht geöffnet. Noch eine Warnung: Übernehmen Sie diese Datei 
NIE von jemand anderem. Vielleicht will er Sie ärgern! 

in S:VirusName-File 

Haben Sie einen Virus identifiziert, können Sie in die 
Datei »s:VirusName« eintragen lassen. Es wird zusätzlich ein Na- 
me für den Bootblock gespeichert. Dieser Name wird wieder mit- 
tels des String-Gadgets eingegeben. Existiert s:VirusName, wird 
der Name und der Bootblock an das Dateiende angehängt, an- 
dernfalls wird s:VirusName zuerst erstellt. Sollte der abzuspei- 
chernde Bootblock bereits in s:VirusName vorhanden sein, er- 
scheinen Requester, die folgende Möglichkeiten anbieten: Man 
kann den Bootblock und Namen aus s:VirusName entfernen. Man 
kann den alten Namen durch den neuen Namen ersetzen. Legen 
Sie nun eine Diskette ein, deren Bootblock in S:VirusName gespei- 
chert ist, wird im Kontrollfenster der Virusname ausgegeben. Mit 
dieser Methode sind Sie in der Lage, VirusControl ständig auf den 
neuesten Stand zu bringen. 

Wenn eine verdächtige Disk eingelegt wird, durchsucht Virus- 
Control S:NoWarning und danach S:VirusName. Legen Sie eine 
Diskette bei gedrückter linker Alt-Taste ein, wird nur s:VirusName 
durchsucht, da dann immer das Kontrollfenster erscheint. Man 
kann »s:« mittels ASSIGN auf ein schnelleres Medium umlenken, 
da das Durchsuchen von 100 KByte (100 Bootblöcke) auf Diskette 
ca. 10 Sekunden dauert. In RAM:, VDO: oder DHO: benötigt Virus- 
Control dafür nur noch ca. 2 Sekunden. Wenn Sie s: auf die RAM- 
Disk legen, vergessen Sie nicht, die Dateien am Ende wieder dau- 
erhaft zu speichern. Das Durchsuchen der Files unterbleibt, wenn 
Sie VirusControl mit dem Parameter »-f« starten. Sind die Dateien 


Den Dateizugriff im Griff 


in s: nicht vorhanden, unterbleibt zwangsläufig ein Durchsuchen. 
Alle tiefergehenden Funktionen wie Bootblock beschreiben, 
VirusControl entfernen oder System-Virus entfernen, sind zusätz- 
lich durch weitere Requester gegen unabsichtliche Ausführung ge- 
sichert. Weiterhin zeigen Requester schreibgeschützte Disketten 
an. Ein Fehler beim Öffnen einer Datei wird ebenfalls durch Reque- 
ster angezeigt. Da bis zu vier Laufwerke möglich sind, kann Virus- 
Control bis zu vier Kontrollfenster gleichzeitig bearbeiten. Diese 
sind daher mit dem dazugehörigen Laufwerk gekennzeichnet. 

Ein weiß-blaues Farbsignal signalisiert bei jeder neu eingelegten 
Diskette (oder beim LOADWB-Befehl oder beim erneuten Starten 
von VirusControl) das korrekte Arbeiten von VirusControl. Dieses 
optische Zeichen kann jedoch abgeschaltet werden, indem man 
VirusControl zusätzlich mit »-c« aufruft. Um das Kontrolifenster 
besser zur Geltung zu bringen, werden vorübergehend neue 
Workbench-Farben gesetzt und am oberen und unteren Bild- 
schirmrand ein blauer Rahmen verwendet. 

Beim Starten von VirusControl überprüft das Programm die ein- 
gelegten Disketten. Bei Angabe von »-t« wird dieses unterlassen. 
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Geben Sie den Parameter »-o« ein, bewirkt dies, daß vor jedem 
Filezugriff ein Requester erscheint. Mit ihm können Sie den Zugriff 
erlauben oder verbieten. Hält man jedoch die Ctrl-Taste gedrückt, 
wird direkt zur Original-Routine gesprungen. Diese Dateizugriffs- 
kontrolle kann sehr nützlich für das Erkennen von Link-Viren sein. 
Link-Viren breiten sich nicht über den Bootblock aus, sondern sie 
hängen sich an bestehende Dateien. Sie verlängern also diese Da- 
teien und werden durch das Aufrufen derselben aktiviert. Wenn 
sich nun ein Link-Virus an ein Programm hängen will, kann der 
Filezugriff mittels des Requesters erkannt und verhindert werden. 
Diese Option ist nur zum Suchen gedacht, wenn Sie vermuten, daß 
sich ein Link-Virus eingeschlichen hat. 


Link-Virus-Schutz 

VirusControl bietet einen weiteren äußerst wirksamen Schutz vor 
Link-Viren. Das Datei-Schutz-System wird mit dem Gadget »Link- 
Virus-Schutz« aufgerufen. Es wird die im String-Gadget angegebe- 
ne Datei nach der VirusControl-Schutz-Kennung, durchsucht. 
Weist das File noch keine Schutz-Kennung auf, schützt Virus 
Control (sofern es sich um ein Programm handelt) die Datei auto- 
matisch. Die Schutzfunktion läßt sich auch auf ganze Unterver- 
zeichnisse anwenden. Wenn man VirusControl mit »-s« aufruft, 
‘oder wenn man »Schützen An«durch Anklicken setzt, wird eine Da- 
tei erst nach Rückfrage geschützt. Dateien, die nur Daten enthal- 
ten, werden generell nur nach Rückfrage geschützt, da es nicht 
sinnvoll ist, z. B. eine Textdatei zu schützen. Anstatt eines einzel- 
nen Dateinamens sind auch Verzeichnis-Angaben erlaubt. Man 
kann also komfortabel das komplette C-Verzeichnis schützen las- 
sen. Das automatische Durcharbeiten eines kompletten Verzeich- 
nisses kann jedoch jederzeit durch das gleichzeitige Drücken von 
linker und rechter Shift-Taste gestoppt werden. 

Weist eine Datei bereits die Schutzkennung auf, wird nun ge- 
prüft, ob die Datei verändert wurde. Ist dies der Fall, erscheint ein 
Requester, der auf den vermutlichen Link-Virus-Befall hinweist. 
Mittels des Requesters ist es nun möglich, den Schutz der Datei 
wieder zu entfernen. Beim nächsten Durchgang wird diese Datei 
mit einer neuen Kennung versehen. Mit File-Entschützen kann 
aber ein Link-Virus meist nicht entfernt werden. Leider sind wegen 
des flexiblen Aufbaus für Programmdatteien viele Link-Viren-Typen 
denkbar, Es ist also unmöglich, ein generelles Programm zum Ent- 
fernen von Link-Viren zu schreiben. Vielmehr muß man für jeden 
Link-Virus gezielt ein spezielles Programm erstellen. 

Es empfiehlt sich also folgende Vorgehensweise, um sich vor 
Link-Viren zu schützen: 

— Sicherheitskopien der Originaldateien anfertigen 

— Originaldateien schützen ( mit »Link-Virus-Schutz«) 

— Regelmäßig prüfen, ob die Dateien noch unverändert sind. 
— Wird eine Veränderung festgestellt, deutet dies auf einen Link- 
Virus hin. Man entfernt nun diesen Link-Virus einfach dadurch, in- 
dem man das verdächtige Programm mit dem Original-Programm 
überschreibt. Dieses neue Programm sollte nun sofort wieder ge- 
schützt werden. 

Durch das Anklicken von »Link-Virus-Schutz« veranlassen Sie 
VirusControl, noch ungeschützte Dateien zu schützen und bereits 
geschützte auf Veränderung zu überprüfen. Dies geschieht weitge- 
hend automatisch. Wird jedoch »Schützen An« gesetzt, muß das £ 
»File schützen« extra bestätigt werden. Es empfiehlt sich, beim er- 
stenmal die Verzeichnisse automatisch schützen zu lassen. Da- 
nach sollte man aber »Schützen An« setzen, denn dadurch wird 
man in Zukunft extra mittels Requester darauf aufmerksam ge- 
macht, wenn eine neue Datei im Verzeichnis vorliegt. Ein Virus 
könnte durchaus ein gefährliches Programm erstellen, bzw. ein 
vorliegendes Programm einfach überschreiben. Dieses kann nun 
nicht mehr übersehen werden. Wenn eine Veränderung festgestellt 
wird, muß auch diese wegen eines möglichen Link-Virus-Befalls 
extra bestätigt werden. Wenn Sie VirusControl mit »-e« aufrufen 
oder »Entschützen An« durch Anklicken setzen, bietet VirusControl 
die Möglichkeit, die Datei zu entschützen, wodurch das Original- 
Programm wieder zur Verfügung steht. VirusControl zeigt alle File- 
Schutz-Vorgänge am Bildschirm an. Ferner wird ein dauerhaftes 
Protokoll in der Datei »s:VCprotokoll« angelegt. 

Man sollte die Verzeichnisse »C:«, »L:«, »LIBS:«, und »DEVS:« 
schützen, da hier ausführbare Programme enthalten sind, die ent- 
weder von Benutzer selbst oder vom Betriebssystem aufgerufen 
werden. Bei diesem Aufruf könnte dann ein Link-Virus aktiviert wer- 
den. Info-Dateien werden generell nicht geschützt. 

Die Kurzanleitung zu VirusControl kann durch erneutes Starten 
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von VirusControl abgerufen werden. Hierbei können auch die Para- 
meter (»-C«, »-f«, »-t«, »-O«, »-M«, »-@« und »-S«) neu gesetzt werden. 
Geben Sie keine Parameter an, verwendet VirusControl die 
Standard-Einstellung: 


— Farbe AN — ChipMemfFirst AUS 
— FileSuche AN — Entschützen AUS 
— Kein Test bei Datei öffnen — Schützen AUS 


Die Parameter können auch mittels der entsprechenden Gad- 
's (FarbSignal, CheckOpen, FileSuche, ChipMemfFirst, Ent- 
schützen, Schützen) neu gesetzt werden. 


Kontrolle der Systemvektoren 


VirusControl kann also mit Sicherheit das Eindringen von 
Bootblock-Viren verhindern, da es verdächtige Disketten anzeigt 
und eine gefahrlose Bootsimulation anbietet. Ferner zeigt Virus- 
Control mittels des Dateischutz-Systems Link-Viren an. 

Außer allen bisher genannten Maßnahmen installiert Virus 
Control einen separaten Task zur Überprüfung der System- 
Vektoren. Wird eine Veränderung festgestellt, zeigt VirusControl 
mittels Requester die jeweilige Veränderung an. Nach Anklicken 
von »ENDE« wird normal weitergearbeitet. Ein Anklicken von 
»VIRUS-ENTFERN-VERSUCH« bewirkt, daß einige Vektoren auf 
den Standardwert gesetzt werden. Diese Option kann jedoch zu ei- 
nem Absturz führen, da VirusControl mit dem Virus kollidiert. Es ist 
daher ratsam, den Virus durch Ausschalten des Amiga zu entfer- 


Tooıs 


nen, denn nur diese Methode kann wirklich sicher sein. Sollte man 
es einem Virus erlaubt haben, sich im System zu installieren, in- 
dem man im »KILL SYSTEM VIRUS«-Requester »ENDE« anklickt, 
kann man dennoch später jederzeit versuchen, den Virus zu entfer- 
nen, bzw. VirusControl wieder voll zu installieren. Dieses ist durch 
den separat laufenden VirusControl-Task möglich. Durch gleich- 
zeitiges Drücken von linker und rechter Alt-Taste wird der »KILL SY- 
STEM VIRUS«-Requester aufgerufen. 

Änderungen an den Vektoren können aber auch von seriösen 
Programmen herrühren. So »verbiegt« das Disketten-Cache- 
Programm FACC ebenfalls den BeginIO-Vektor der track- 
disk.device-Struktur. Die resetfeste RAM-Disk RAD: benutzt die 
KICK-Vektoren. Der Setpatch-Befehl verbiegt den Alert-Vektor und 
AllocEntry-Vektor. 

Um herauszufinden, ob es sich bei einem verdächtigen Boot- 
block wirklich um einen Virus handelt, kann man folgendermaßen 
vorgehen: Man bootet mit installiertem VirusControl von der ver- 
dächtigen Disk, aktiviert also bewußt einen eventuellen Virus, Alle 
eingelegten Disketten sollten schreibgeschützt sein, damitssich der 
eventuelle Virus nicht verbreiten kann. Handelt es sich um einen 
Virus, kann man dies an folgenden Umständen erkennen: 

— Der Vektor-Kontroll-Task weist mittels Requester auf veränderte 
Vektoren hin. 

— Ein Schreibzugriff auf den Bootblock wird durch einen Reque- 
ster angezeigt. 

— Kein weiß-blaues Farb-Signal beim Einlegen einer neuen Disk, 
obwohl das Farb-Signal eingestellt ist. 

— Beim Disk-Einlegen erscheint trotz ge- 


'verlässigkeit. Das kann nicht im Interesse der 
Amiga-Benutzer sein. Es hat sich schon ge- 
zeigt, daß Viren-Programmierer auch in der La- 
ge sind, »vernünftige« Programme zu ent- 
wickeln. 


Viren bringen Computer in den Ruf der Unzu- Es wäre schade, wenn folgender Ausspruch 


von Jim Mackraz (Amiga Software-Entwickler, 
arbeitet zur Zeit am Intuition-Teil der Kickstart 
1.4) noch lange Gültigkeit besitzt: "Die beste 
Software aus Deutschland kommt meistens im 
Bootblock!” 


Programmname: VirusControl_Gen x 
Computer: A500, A1000, A2000 mit Kickstart 1.2 und 1.3 
Sprache: Amiga-Basic 1.2 


Bemerkung: Erzeugt lauffähiges Programm 


Progrannaut 


: Pius Nipi 


OND REN Generiert lauffähiges Progr 
ann 

ALE ON ERROR GOTO Fehler 

ah cLs 

AV PRINT "Bitte Workbench-Diskette 
in DPO; einlegen!” 

ba aj="" 

ER 

Far 


UTPUT AS 1 
A FW READ anz 
O\8@ FOR 1=1 TO anz 
10 7r2 READ h$ 


AN 2R2 wertisASc(LEFTS(h$,1)) 

WAT, IP werti>64 THEN wertisverti- 
87 ELSE wertiswerti-48 

WEM wertiswertixie 

BR wert2=ASc(RICHTE(hS,1)) 

35 DE IF vert2>64 H2evert2- 
87 ELSE wert2swert2-48 

6 Im wertswertimert2 

IM DK\ PRINT #1,CHRS(wert); 

23 NS0 NEXT 

19 7e\ LOSE 1 

20 KU KILL "DFO:E/Viruscontrol. info” 


2 ca NAME "DFO:s/startup-sequence” 4 
S "DFO:s/0läss” 

AR ZU OFEN "DFO:6/01dss” FOR INPUT AS 
“1 

OPEN “DFO:s/startup-sequence” F 
OR OUTPUT AS #2 

4 ip PRINT #2, “VirusControl” 

25 0q | WAILE NOT EOF(1) 

26 M82 LINE INPUT #1,2$ 

27m PRINT #2,0$ 

‚28\th0: WEND 


23 ut 


ZB |cLosz 
30. Ns KILL "DFO:s/startup-sequence. in 

fo” 
3 N KILL 'DFO:s/Oldss” 
32 KU. PRINT “Booten Sie 

iakette in DFO: | 
33 H6 End 
34 18 Fehler: 
PRINT "Fehler: "ERR 
ON ERROR 0070 0 
37 160 zo 
38 7% Werte: 
39 ad DATA 13592 
#0 0Q DATA 00,00,03,23,00,00,00,00,00 
42 xY | DATA 00,00,03,00,00,00,00,00,00 
42 @# DATA 00,02,00,00,00,48,00,00,06 
43 BB DATA 5£,00,00,18,34,00,00,03,e9 
Au RO DATA 00,00,00,48,48,07,2?,2e,4b 
45 NO DATA £a,03,38,41, fa,f£,22,22,50 
h@ OK DATA 83,09,43,09,24,51,58,89,2b 
AR 30 DATA 49,00,14,45,02,45,02, 58,80 
#8 %D DATA 2b,48,00,18,48,67,f1,?e,61 
A9 La DATA 00,01,bo,40,äf,7£,17,22,64 
SO u2 DATA 00,14,51,89,20,11,20,78,00 
SL 34 DATA 04,4e,ne,2?,2e,26,64,00,18 
52 uf DATA 50,86,20,1b,26,00,07,88,22 
53 KO DATA 30,00,01,00,00,4e,ae,£f,38 
54 cm DATA 26,40,00,00,50,86,20,07,53 
55 GL DATA 80,22,64,00,00,22,1b,58,89 
56 EW DATA 54,81,22,01,51,08, ff, 6,22 
37 54 DATA 06,20,07,53,86,28,64,00,0c 
SB Re DATA 28,4b,48,9b,22,30,00,01,00 
58 32 DATA 00,20,1b,58,8b,08,00,00,1e 
60.2 DATA 67,04,08,01,00,01,e5,88,4e 


in von der D 


Listing. »VirusControl« macht 
Schluß mit Viren aller Art $> 


AMIGA-SONDERHERT BU ON ECOMF TERWOR.D.OOM 


drückter linker Alt-Taste kein Kontrollfen- 
ster. 

— Bei einem Reset tritt kein weiß-blaues 
Farb-Signal auf. 

— Beim Aufruf des VirusControl-Program- 
mes wird eine Meldung ausgegeben, die 
auf die vermutliche Virus-Infektion hin- 
weist. 

Da sich der Amiga flexibel programmie- 
ren läßt, gibt es auch für ein Virus- 
Programm viele Möglichkeiten. Es werden 
daher nicht alle eben genannten Effekte 
auftreten. Es kann auch zu Kollisionen zwi- 
schen VirusControl und dem Virus kom- 
men, die zum Absturz führen. Anschlie- 
Bend muß der Amiga ausgeschaltet wer- 
den, da dies die einzig sichere Methode ist, 
um einen aktiven Virus zu entfernen. 

Die einzige sichere Methode, um einen 
Bootblock-Virus zu identifizieren, ist zu- 
gleich auch die gefährlichste. Man bootet 
ohne VirusControl von der verdächtigen 
Disk, und legt eine nicht schreibgeschütz- 
te, nicht infizierte Diskette ein. Nun schaltet 
man den Amiga aus, wartet ca. 20 Sekun- 
den, schaltet den Amiga wieder ein, bootet 
von einer sauberen Disk, startet VirusCon- 
trol und legt die nicht schreibgeschützte 
Diskette ein. Wenn die Diskette nun ver- 
dächtig geworden ist, handelt es sich um ei- 
nen Virus. Die Diskette sollte sofort »über- 
schrieben« werden, damit man später nicht 
versehentlich von dieser Diskette bootet, 
und somit den Virus aktiviert und dadurch 
weiterverbreitet. 

Da VirusControl nur wenig Rechenzeit in 
Anspruch nimmt, ist es empfehlenswert, 
das Programm immer laufen zu lassen. Es 
beeinträchtigt Ihre Arbeit am Computer 
nicht, bringt Ihnen aber eine hohe Sicher- 
heit gegen Viren jeglicher Art. 

Die Gefahr der »Infektion« ist auf PC- und 
Macintosh-Systemen höher als auf dem 
‚Amiga. Damit dies so bleibt und die Gefahr 
noch geringer wird, sollten Sie VirusControl 
unbedingt einsetzen. Denn auf keinem an- 
deren Computer gibt es ein so leistungsfä- 
higes Programm zum Aufspüren dieser lä- 
stigen Viren. P Nippgen/R. Beaupoil/ikn 
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ae,2£,3a,28,00,58,80,51,0e 
£8,60,26,57,70,00,78,00,0e 
66,03,e9,00,02,67,00,00,98 
0e, 66,03, e8,00,02,67,00,00 
90,06,&b, 03, eb,00,02,67,00 
00,8, 00, 66,03,80,00,02,67 
00,00,50,06,66,03,12,00,02 
4e,71,h8,9b,72,00,52,86,be 
86,6e,06,28,07,43,fa,?,18 
20,64,00,00,20,10,58,80,e4 
88,22,80,52,87,53,87,67, 1a 
22,50,20,28,00,04,e3,88,22 
80,20,28,00,08,58,80,e4,88 
23,40,00,04,50,88,60,02,2e 
18,42,29,00,04,43,£a,00,28 
20,64,00,00,20,50,50,88,22 
88, 22,6, 00,06,20,07,e7,88 
be,ae, £f,28,22,64,00,18,51 
89,20,11,4e,ae,ft,2e,4c,df 
7£,£8,46,£9,00,00,00,00,61 
28, 42,9, 20, 1b, e5,88,20,4b 
d7,00,22,64,00, 00,22,06,©7 
89,22,71,18,00,50,89,4e,ae 
28,90,60,00,f2,3e,61,06,50 
&b,60,00, 22,36,4a,83,67,02 
52,86, 7a,01,48,75,48,90,20 
63,00,00,20,06,e7,88,22,70 
08,00,50,89,20,1b,67,24,22 
1b,e7,89,20,64,00,00,28,70 
18,00,50,80,53,80,20,40,24 
49,22,16,45,01,22,12,41,01 
24,88,51,08,f7,0,60,48,60 
00,f8,20,48,07,1%,fe,4b,fa 
01,80,41, fa, ff, 22,22,50,43 
69,43, 09,58,89,26,49,00,14 
20,76, 00,07,00,00,00,18,61 
De,4e,b9,00,00,00,00,40,äf 
78,18,48,75,20,64,00,14,2a 
18,22,64,00,18,43,05,d1,40 
91,£0,00,00,00,04,48,60,62 
02,53,88,10,20,03,08,66,04 
10,20,83,10,64,58,42,41,e3 
08,66,04,10,20,23,10,64,42 
47,28,00,38,76,03,42,41,14 
33,30,00,48,82,78,£2,e5,60 
46,44.,53,42,83,08,66,04,10 
20,03,10,83,51,51,02, 27,24 
43,43,67,06,08,41,56,cb,2% 
da,14,33,30,04,48,82,d2,42 
60,00,00,08,08,03,02,02,0e 
07,04,01,13,20,33, 08,00, 
21,80,51,09,87,16,47,28,00 
&6,26,6b,00,14,50,&b,b1,cb 
6£,00,00,08,47,2,00,38,74 
03,83, 08,66,04,10,20,23,10 
64,04,51,02,87,24,42,41,52 
42,16,33,20,00,67,12,48,83 
53,43,e3,08,66,04,10,20,e3 
10,83,51,51,0b, f2,24,16,33 
20,05,48,83,2,43,60,00,00 
06,08, 02,01,00,00,08,06,04 
03,02,00,41,00,02,67,42,47 
8,00,34,76,01,03,08,66,04 
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24,52,43,42,42,18,33,30,00 
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23,26, 86, 16,de,40,4a,a9,00 
a0,66,4e,2£,00,79, fe,61,80 
22,5% ,41,69,00,5e,ee,£7,8c 
41,04,be,24,40,24,62,00, dd 
13,12,23,ea,88,03,70,31,ba 
b8,1e,5,26,82,46,90,d0,83 
68,35,03,e4,73,e2,54,97,20 
60,12, Tb,1P, ?a,d0,ab,c4,d6 
47,b6,ed,14,20,a4,£9, £0,9b 
00,84,33, 8,34 ,c,66,28,75 
98,d0,aa,01,09,1e,d8,64,92 
9,00, 38,2e,17,c4,48,94,17 
&0,b3,01,38,23,44,73, 38,40 
69,00,08,07,19,72,59,0e,07 
@0,67,10,99,31,02,86,63,46 
64,75,0,77,85,6e,10,72,6e 
22,b5,79,00,30,7b,cd,a8,ad 
26,62,23,80,50,17,98,8a,cb 
02,28,67,a4,46,60,00,88, 1b 
21,60,41,ee,01,58,43, 8,08 
78,0£,1£,30,e0,20,40,41,eb 
€5,b1,23,08,60,,34,80,00,90 
©0,26,64,18,98,7b,e7,20,46 
72,46,10,54,59,73,66,a9,be 
34,42,10,08,26,78,16, 48,4 
ed,10,96,54,66,4a,0f,8e,26 
ea,08,70,78,b1,&b,5b,df,a6 
ea,a4,fB,ae,2a,de,00,25,06 
48,99,00,18,49,76,04,86,4a 
66,23, 70,66,74,88,91,08,98 
67,52,01,05,67,66,08,90,0d 
30,06,60,00,16,ac, fa,a5,88 
22,38,07,46,67,04,3e,£9,80 
24,9a,b3,2?,ec,03,83,fa,20 
8f,0e,14,64,48,62,16,00,20 
24,360, 58,26,61,00,24,76 
94,92,90,70,45,07,a8,80,bf 
60,86,22,7a,32,be,20,09,7d 
33,74,52,28,03,77,41,28,35 
e8,64,00,5,00,4d,ab,00,69 
18,02, 20,b9,0,02,06,10,54 
01,52,db,60,00,64,86,00,35 
83,00,ba,10,b6,44,a0,ee,26 
ea,35,28,0,01,58,eb,60,00 
44,80,00,35,84,01,56,10,54 
2a,01,a0,91,b0,01,ae,10,54 
15,02,e4,02,82,25,02,b4,9e 
02,86,02,d0,48,03,92,04,03 
60,35,03,a4,03,22,04,03,b4 
8e,03,46,04,d0,ba,04,32,58 
0e,22,98,05,06,05,83,4e,05 
9a,06,42,40,06,69,06,04,82 
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50,83,48,18,52,d4,20,00,06 
1e,55,08,26,80,83,e0,1a,f2 
d4,a0,fa,06,55,04,45,ab,0d 
ce,c8,41,85,04,d0,04,0d,a2 
72,50,50,83,48,04,76,20,07 
30,55,04,04,80,83,ä8,1a,ac 
d4,20,58,00,92,c8,41,9a,0d 
54,62,66,50,83,68,1a,3a,54 
00,42,01,08,64,68,68,50,83 
74,12,84,04,20,88,06,94,35 
98,88,41,26,04,28,68,4,90 
05,11,06,38,60,88,02,12,80 
1c,26,d4,20,da,06,46,55,1d 
d2,80,83,1a,15,22,d4,80,36 
a1,28,24,70,d6,0b,42,cb,62 
56,97,12,ea,e8,be,05,78,50 
48,00,60,f8,d?,20,09,22,4e 
20,f0,22,fe,38,20,28,50,52 
e6,99,44,00,68,68,27,56,3£ 
ae,ee,90,68,31,68,99,61,75 
02,98 ,26,88,4?,38,00,66,2e 
99,40,20,49,6b,07,75,ea,d2 
78,06, 88,24, c8,40,10,06,38 
13,87, 54,47,ea,22,20,06,58 
47,11,67,06,55,88,24,08,60 
00,30,18,50,00,72,09,24,40 
31,95,58,88,b5,cb,65,e4,30 
3c,12,6b,20,49, £9,03,10,44 
20,42,18,e0,26,3d,23,2e,ce 
18,57,05,34,58,15,49,ab,6f 
20,43,d0,e0,b0,09,00,97,cb 
b3,87,c6,e6,a2,41,81,60,68 
67,44,42,49,42,06,8f,62,98 
2b,86,97,84,00,09,00,02,02 
56,74,36,00,40,08,32,e4,03 
60,42,04,20,64,20,36, 04,04 
32,1f,a2,15,01,72,52,07,28 
a2,31,96,14,9,15,41,54,ce 
8e,98,23,£0,36,08,20,a4,06 
0a,a2,13,f0,4e,1f,33,61,02 
60,66,08,cf,ac,a0,5d,fa,67 
32,9,56,00,00,60,a1,d0,ab 
11,02,67,46,ba,ed,e8,9a,da 
48,08,39,92,76,01,b3,cb,f2 
22,32, 02,02,e0,75,d0,14,28 
90,85,97,86,bb,60,70,03,7b 
7c,d4,1f,00,11,72,79,0b,fa 
da,b0,bd,28,68,f8,58,18,57 
06,00,86,74,60,ff,ff,32,5e 
80,1b,09,00,48,06,28,73,.3 
46,b9,42,90,96,40,08,26,35 
83,03,25,02,48,73,29,86,15- 
85, fd,be,67,38,76,57,0c,15 
76,01,67,45,45,36,03,76,b2 
98,00,b2,b7,1e,27,f2,90,01 
b2,07,44,6,20,7a,02,12,19 
70,36,20,50,de,c6,e1,00,d6 
99,13,29,57,84,60,06,40, fa 
01,01,01,ec,f9,bd,01,f0,53 
d5,a0,3b,be,6b,f0,66,04,33 
6f,76,35,88,04,87,57,67,14 
63,06,76,68,dd,e0,32,56,de 
8,44,26,74,66, 08,42, 7e,a7 
»d,08,75,6f,aa,49,75) 58,28 
2e,69,08,b2,68,01,6d,66,22 
bb,80,74,06,08,55,04,£R, te 
?2,06,82,05,21,44,10,63,08 
08,00,26,88,58,63,45,69,73 
1b,cd,fe,94,74,b6,79,be,73 
66,12,54,72,d5,an,20,4e,22 
46,52,88,18,a9,50,00,18,00 
66,66,10,42,29,23,77,23,7c 
£d,09,60,30,26,86,4b,46,22 
0a,24,72,01,28,45,ea,1b,8e 
48,92, 24,58 ,5e,00,fe,0f,f4 
32,c5,b1,80,e0,05,08,72,32 
al,a1,61,20,91,de,30,c5,01 
75,40,82,38,d4,79,5e,54,4a 
70,90,61,46,47,01,61,24,6d 
61,20,70,03,61,10,48,69,23 
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DATA f0,53,b0,c6,67,f0,89,eb,e8 
DATA a,32,37,02,52,73,ce,2e,ad 
DATA 2e,fe,1e,21,00,93,09,eb,a1 
DATA 60,16,0e,54,38,b8,13,10,3a 
DATA 9e,85,ab,be,52,71,01,be,b6 
DATA 72,00,20,1#,70,05,44,38,b8 
DATA 66,35,82,22,32,00,24,98,47 
DATA e5,1f,ad,06,26,28,6b,82,23 
DATA 46,00,28,70,02,33,e0,27,10 
DATA e1,88,23,40,0,54,24,20,40 
DATA 66,68,.8,72,04,77,25,97,14 


| DATA 58,57,88,bb,85,09,00,10,42 


DATA 89,05,47,79,31,38,b8,42,d4 
DATA 64,&b,f3,2e,3e,22,78,00,34 
DATA 83,25,97,68,02,30,4e,02,te 
DATA 98, 7,60,02,07,08,00,03,56 
DATA fo,bf,ff,05,ed,19,65,04,50 
DATA 64,06,64,76,3,89,a2, 70,86 
DATA 68,67,00,04,36,34,58,32,40 
DATA 47,21,69,2d,ef,20,28,00,32 
DATA 8b, 66,46, bo,as, ch, 59, 0,64 
DATA 60,67,24,73,29,4b,58,46,24 
DATA 24,96, 75,0b,84,20,53,56,65 
DATA 62,59,66,20,24,20,54,86,77 
DATA £,00,61,26,67,12,24,40,20 
DATA 2a, 00,38,04,04,3°,20,54,68 
DATA 97,37,77,28,00,00,09,82,22 
DATA 68,00,28,3,00,66,02,£6,63 
DATA 58,8£,60,00,10,88,14,26,36 
DATA 43,88, 0f,30, 7b, 01,da,4a,80 
DATA 68,23, 00,38,44,59,82,07,e0 
DATA 07,20,62,66,66,74,13,31,29 
DATA 02,86, e2,02,de,ed,cc,ee,67 
DATA 25,04,73,71,64,41,18,29,90 
DATA 24,86,71,46,13,82,40,35,66 
DATA fo,e4,18,88,63,70,24,81,73 
DATA 66,45,68,45,6b,2o,40,60,2e 
DATA 53,79,29,77,64,82,70,73,08 
DATA 80,00,63,31,61,6b,88,bf,a4 
DATA Be,36,e8,40,64,22,52,70,29 
DazA 42,73,66,69,32,23,01,76,65 
DATA 36,08,63,4b,6,79,98,65,42 
DATA 62,7a,b2,93,80,26,92,28,39 
DATA 97,47,07,70,66,74,08,80,0e 
DATA 14,56,46,00,68,65,58,62,02 
DATA 72,ee,8d,ba,e7,59,74,2b,40 
DATA 38,56, £1,£4,22,08,83,37,12 


| DATA 50,76,00,32,28,64,e4,cb,23 
) DATA 58,58,80,9b,82,19,94,dc,24 


DATA 34,07,78,88,70,03,00,28,52 
DATA 02,24,67,18,67,80,6b,2b,11 
DATA 0f,68,26,82,2b,20,5€,05,10 
DATA 22,30,18,58,19,62,05,34,03 
DATA d2,21,62,28,b4,68,64,35,4e 
DATA 64,20,14,Ob,02,7f,20,83,85 
DATA 59,68,40,61,75,40,38,02,58 
DATA 98,00,56,33,15,09,25,20,af 
DATA 30,60,be,c5,e2,6b,2e,60,27 
DATA 01,65,61,09,95,72,39,04,53 
DATA 26,01,28,91,07,29,70,ad,ac 
DATA 04,46,21,28,98,e9,68,72,f1 
DATA 73,86,40,34,05,87,50,23,66 
DATA 21,83,08,60,06,30,52,b0,00 
DATA 05,98,73,69,64,75,60,00,03 
DATA £0,42,18,09,02,30,a2,40,b4 
DATA 18,78,80,07,23,37,04,00,45 
DATA 20,96,0b,34,00,30,60,30,38 
DATA 07,03,70,62,60,62,07,16,85 
DATA 85,08,20,ab,93,09,88,36,dc 
DATA 16,0,00,98,10,69,00,98,70 
DATA 84,22,40,17,9,53,03,9,df 
DATA ne, 15,20,44,34,57,64,32,71 
DATA ae,04,08,53,44,75,91,34,24 
DATA 4b,e2,27,75,58,74,24,86,£7 
DATA 10,26,49,24,41,08,de,11,60 
DATA 72,48,07,40,98,28,61,20,4b 
DATA e6,60,60, 29,30,91,71,d6,07 
DATA 00,23,91,1e,82,0n,58,88,03 
DATA 66,90,42,52,46,42,72,09,43 
DATA 48,71,97,40,°0,64,26,67,2b 
DATA c9,18,76,6f,c8,02,78,20,«b 
DATA e4,48,62,79,15,34,72,71,03 
DATA 89,68,c9,7b,b2,27,03,19,20 


DATA 54,20,47,01,54,59,50,45, a 
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DATA de,a0,2e,ce,75,40,49,71,7e 
DATA a0, 18, 50,4d,eb,a2,98,32,29 
DATA d2,64,64,65,62,b8,b1,o1,8d 
DaTn de,fa,e9,53,44,57,b£,6b,89 
DATA 6e,2e,24,5e,a4,62,b8,03,90 
DATA 11,89,46,6£,50,09,2b,68,02 
DATA a0,53,3n,58,16,83,48,61,6d 
DATA bb,69,48,1e,66,04,06,73,75 
DATA 09,08,96,83,63,46,89,53,a0 
DATA a,24,53,40,30,48,60,92,66 
DATA 78,18, 00,08,d1,65,b5,85,a4 
DATA 57,14,64,68,77,66,95, 86,48 
DATA 99,38,61,68,35,80,2d,50,75 
DATA 67,72,69,66,66,20,£9,21,74 
DATA 66,60,82,28,52,65,71,75,9e 
DATA 01,03, 6b, 8b, 50,82,61,32,1d 
DATA 35,18,38,a8,4e,f4,96,15,67 
Data 64,75,00,69,65,b2,00,d2,24 
DATA 53,19,80,0b,86,45,80,11,8c 
DATA 69,80, 38,06,72,64,8b,02,61 
DATA 79,52,20,47,96,66,72,16,27 
DATA 06,97,54,20,74,7a,b1,bd,4c 
DATA 47,70,60,55,69,70,80,91,40 
DATA 05,86,46,40,00,05,40,9b,bO 


Ü DATA 60,9e,40,2d,66,8b,34,84,0e 


DATA ba,bf,21,09,71,34,86,60,03 
DATA 74,20,98,49,39,29,98,02,30 
DATA eb,a7,63,08,45,86,0b,82,62 
DATA 62,67,54,94,26,88,64,75,72 
DATA 8d,94,8b,09,66,20,de,48,78 
DATA 26, 04,66, 78,80,72,20,31,30 
DATA 30,20,25,78,06,01,87,06,58 
DATA 4u,24,45,60,74,66,70,18,43 
DATA 6e,24,80,74,68,61,20,9e,90 
DATA 60,69, 38,08,41,44,49,47,41 
DATA #1,78,78,66,57,20,67,21,41 
DATA 64,69,67,78,2d,61,6e,d8,55 
DATA 34,11, £0,64,89,65,60,83,6b 
DATA 00,25,01,14,4f,08,88,18,3c 
DATA 01,94,49, 84, 80,69,61,13,49 
DATA 19, 82,08,60,53,75,64,5e,ae 
DATA 6b,fa,00,33,33,64,61,50,94 
DATA ed,en,24,56,65,6b,74,60,72 
DATA 20,76,86,12,e4,6e,60,63,81 
DATA 2d,36,21,63,69,72,75, 24,32 
DATA 0n,96,33,31,6d,4d,ef,78,27 
DATA £0,b0,6f,50,15,80,62,61,72 
DATA 20,20,64,61,#7,b£,68,72,65 
DATA 69,74,73,79,08,10,69,68,87 
DATA d9,60,60,69,65,72,74,20,21 
DATA On, db, 0,5, b6,48,03,58,00 
DATA 34,04,09,22,78,23,a0,bb,3d 
DATA 0d,97,24,00,04,33,43,99,65 
DATA 52,50,14,39,8b,48,35,18,c0 
DATA 03,02,00,00,98,42,58,34,32 
DATA 52,0°,87,60,45,92,d7, 16,20 
DATA 62,26,da,76,17,19,10,22,67 
DATA 66,05,16,31,10,84, 7b,81,77 
DATA 70,13,43,30,60,06,ba,30,0b 
DATA 2,22, 2,38, 17,38,43,83,be 
DATA £4,51,68,24,98,74,72,61,63 
DATA 66,24,12,1,60,86,64,69,73 


) DATA 66,10,bd,ob,6b,2e,64,65,66 
\ DATA 14,40,70,20,06,03,61,09,40 


DATA 00,58,24,b4,36,69,29,06,68 
DATA £0,18,10,00,b8,3b,08,30,6b 
DATA 1P,bo,aa, £b,07,07,a2,2e,01 
DATA 01,96,b0,43,09,42,13,2b,82 
DATA 79,48,13,14,05,86,16,0b,83 
DATA 36,42,90,4d,3f,06,45,30,5d 
DATA 00, 92,67, 08,82,04,20,92,26 
DATA 92,58, 88, 58,8b,3b,72,29,de 
DATA 00,66, 03,08,58,14,43,91,22 
DATA 80,45,08, 2%,64,26,88,00,79 
DATA 06,70,42,52,66,16,63,15,7e 
DATA 98,83,97,43,18,43,06,23,09 
DATA 20,08,58,25,1f,02,66,0e,ae 
DATA 62,14,92,20,08,31,10,46,43 
DATA 10,00,96,07,46,75,40,64,28 


r DATA 68,da,48,86,48,06,d1,08,54 


DATA 3f,0,46,18,80,30,58,04,c5 
DATA 52,10,7a,34,47,04,44,96,9b 
DATA 60,30,25,84,67, fb,62,22,13 
DATA 10,10,42,10,4a,eb,93,58,60 
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DATA 64, 3a,80,05,19,75,21,80,cb 
DATA 66,37,03,88,08,46,37,44,36 
DATA bb,98,46,84,b1,35,15,c6,66 
DATA 00,66, 78,85,83,66,18,50,05 
DATA 10,58,02,82,00,40,ac,a8,2d 
DATA 04,68,56,76,05,08,20,44,90 
DATA fD,da,60,87,01,19,99,66,2e 
DATA b9,ab,17,66,26,59,36,20,3e 
DATA 63,50,98,59,04,67,66,6,76 
DATA 98,82,0f,66,08,00,98,e0,f8 
DATA 32,66,06,00,37,09,60,0?,ba 
DATA 83, 20,3£,00,00,29,65,59,65 
DATA do,c2,20,6£,00,3e,b1,d4,1e 
DATA 40,98,65,a0,06,b4,00,50,äd 
DATA 13,2b,a0,17,de,20,14,b0,ba 
DATA 76,98,57, 81,20, 10,99,43,95 
DATA 87,67,73,14,36,6b,c0,ae,ch 
DATA 23,90,96, 44,28, 50,09, 20,06 
DATA e5,02,88,82,02,82,5,66,00 
DATA ef,ae,96,24,0,04,5b,97,2b 
DATA 30,cb,90,2a,de,63,ce,2b,02 
DATA £1,1F,58,a0,08,30,0°,00,0e 
DATA 44,10,84,09,14,88,69, 08,84 
DATA 07,b1,08,56,e3,14,b2,32,22 
DATA 10,83,20,28,24,48,d8,1e,be 
DATA @1,10,04,18,40,04,03,20,1b 
DATA 36,80,86,09,00,44,df,c0,2c 
DATA 03,82,50,33,85,59,58,4,1b 
DATA 48,64,18,08,99,05,b7,10,58 
DATA 04,20,20,e5,35,01,b2,bo,cd 
DATA 60,66,00,01,4e,a£,30,81,40 
DATA 04,73,2b,1f,01,22,8b,87,25 
DATA a?,66,02,0d,e3,18,86,20,1e 
DATA @0,02,64,39,01,06,33,24,03 
DATA 60,9,87,90,68,87,12,8e,c9 
DATA 07,06,12,be,19,38,90,56,03 
DATA 98,09,42,99,63,07,19, fd,1a 
DATA 50,27,02,07,66,82,00,03,f0 
DATA 19,10,d0,68,60,15,76,02,de 
DATA 94,50,a0,b0,42,32,83, 50,44 
DATA 85,92,60,£3,10,28,b0,07,02 
DATA 54,98,07,05,24,16,00,88,36 
DATA 09,0f,£2,£0,67,c4,48,f0,b4 
DATA 14,66,be,ba,43,14,6f,24,62 
DATA 66,18,88,64,1e,@c,60,ca,c5 
DATA 60,19, 82,02, ff,20,09,87,72 
DATA 23,15,e0,28,05,e2,02,12,52 
DATA fd,0e,2b,0d,ce,46,50,38,80 
DATA 06,61,08,66,77,05,61,b1,01 
Data 24,60,98,10,00,20,cb,45,30 
DATA de,b1,86,45,58,16,00,47,60 
DATA 02,68,49,14,64,20,be,91,2b 
DATA be,02,14, 
DATA ee,1e,30,41,24,06, 
DATA 06,58,82,77,10,08,e0,65,e8 
DATA 14,48,39,0f,63,58,22,12,0c 
DATA 01,98, f9,0f,c2,71,f0,08,87 
DATA 44,24,08,76,01,85,04,74,01 
DATA 9e,19,16,01,60,62,29,be,94 
DATA 53,08,60,00,84,bd,cb, 70,98 
DATA 0,91,08,55,35,08,00,98,84 
DATA 66,20,39,02,80,76,64, 10,68 
DATA a4,2,20,50,20,18,0e,20,1f 
DATA ba,28,66,28,24,51,70,14,06 
DATA 20,08,20,5f,76,10,98,21,do 
DATA 32,78,68,81,23,00,67,72,d8 
DATA 83,17,56,55,76,98,82,27,18 
DATA 68,02,12,b1,ee,83,00,06,24 
DATA 22,29,64,18,18,3n,00,6b,21 
DATA 55,67,16,99,12,88,66,08,df 
DATA 86,97,84,00,09,80,00,56,75 
DATA e0,08,47,38,05,04,36,73,c0 
DATA 06,41,00,28,48,23,48,c0,af 
DATA 45,9e,a0,13,18,40,60,56,51 
DATA ea,eb,08,90,33,92,70,49,a0 
DATA 28,23,52,00,24,70,06,69,15 
DATA 08,28,15,23,40,67,90,83,68 
DATA fe,3e,66,e0,54,18,3b,03,2a 
DATA 02,36,27,78,71,47,20,62,10 
DATA 29,81,06,22,56,44,40,98,64 
DATA 02,52,80,5,30,50,28,46,be 
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DATA 46,06,42,88,70,18,e4,26,26 
DATA 70, 26,62,75,99,70,b8, 30,30 
DATA 03,20,00,09,00,94,52,41,57 
DATA 38,66,10,03,37,20,65,06,b4 
DATA 67,62,72,65,59,41,be,00,2e 
DATA 52,88, fo,cd,e4,ac, 74,76, 08 
DATA 50,67,00,75,10,06,08,29,00 
DATA 30,31,18,81,69,32,26,36,9% 
DATA 7, 62,64,b1,ch,15,18,98,32 
DATA 06,20, 1,99,85,21,b0,00,42 
DATA 22,04,66,21,25,40,33,81,84 


1 DATA 90,10,80,49,76,61,00,17,34 


DATA 71,68,00,28,06,39,60,44,02 
DATA 19,63,07,00,15,07,44,42,53 
DATA 00,54,80,16,be,8f,bf,£2,70 
DATA 46, 16,ba,d1,06,28,80,39,25 
DATA 67,85,56,43,02,88,58,92,c0 
DATA 31,87,20,02,68,48,75,02,99 
DATA d7,d8,25,87,99,10,87,43,3 
DATA 81,66, 18,66,0d,38,05,00,20 
DATA 23,08,69,03,04,32,30,00,28 
DATA 14,98,02,04,06,22,83,05,67 
DATA £8,51,09, ff,20,e1,67,60,40 
DATA 13,ae,2d,d8,20,40,72,14,00 
DATA 46,23,e8,96,47,67,80,42,28 
DATA 07,88,88,33,20,80,81,3b,d? 
DATA £0,96,22,08,65,24,8d,1e,62 
DATA 6e,b6,58,43,f2,00,18,75,c? 
DATA 80,20,55,03,08,20,96,e9,68 
DATA 16,70,66,93,75,70,22,60, 28 
DATA 64,67,29,47,00,67,de,70,68 
DATA 04,58,73,28,11,56,62,72,61 
DATA 72,79,88,22,83,80,00,0f,ed 
DATA 9b,5,08,93,©6,80,34,77,49 
DATA 09,77,62,00,60,69,68,66,18 
DATA 47,48,30,45,61,73,00,72,20 
DATA 68,69, 4,74,20,09,03,64,72 
DATA 75,65,63,66,74,28,16,77,69 
DATA 72,64,20,62,e2,71,42,6f,68 
DATA 70,72,b8,61,75,74,62,64,61 
DATA 74,69,01,40,20,46,41,53,54 
DATA 44,45,4d,14,22,87,62,67,65 
DATA 73,63,68,61,60,74,65,74,26 
DATA 47,56,49,52,82,29,24,43,48 
DATA 4e,54,52,fa,12,56,31,26,33 
DATA 20,76,61,68,20,89, f0,d4, 3b 
DATA 20,48,49,50,50,47,45,42,23 
DATA 78,36,36,35,37,20,47,65,72 
DATA 73,68,65,63,64,20,38,20,20 
DATA 30,36,38,34,33,22,31,35,32 
DATA 32,00,00,70,80,32,39,00,bf 
DATA e0,01,67,54,80,0£,78,20,41 
DATA 00,10,00,22,73,0f,78,67,44 
DATA 33,46,74,f8,99,87,66,f5,92 
DATA 07,20,00,22,55,32,7a,1,50 
DATA od,a1,eb,30,69,19,03,52,10 
DATA do,41,11,08,53, f,15,56,5e 
DATA d4,20,00, fd,ac,47,02,44,04 
DATA c8,06,00,28,23,96,78,67,26 
DATA 64,19,18,12,20,f8,5b,14,80 
DATA 97,0b,ae,69,09,9e,24,00,a1 
DATA 69,18,b9,e0,03,d2,b2,2e,ce 
DATA 56,16,30,28,70,e4,20,16,1f 
DATA 26,d4,b8,58,79,£1,ee,20,9 
DATA 16,62,58,2e,ae,82,87,10,20 
DATA 85, 1,0d,70,31,60,42,90,77 
DATA 28,31,06,93,48,20,78,19,b4 
DATA 18,83, 28,b1,00,e4,67,38,d0 
DATA 24,20,70,30,58,4e,49,66,48 
DATA ee,ff,e6,21,40,80,1e,21,68 
DATA 81,35,08,dd,02,87,99,94,85 
DATA 75,60, fe,f8,38,70,he,f9, 22 
DATA 02,24,48, 22 ,04,08,4c,e1,5£ 
DATA 06,67,24,32,60,£2,68,53,19 
DATA b1,16,66,09,03,58,05, 18,24 
DATA cb,b0,30,00,92,42,37,85,2e 
DATA ec,c1,38, fo,a4,22,4e,20,bb 
DaTa 3£,14,85,22,0£,50,14,40, 


) DATA 16,64,18,0b,24,17,02,95,18 
"DATA 09,85,83,68,02,84,84,05,db 


DATA e4,09,e2,23,0?,26,54,47,16 
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DATA b6,e0,£3,eb,42,60,00,13,03 
DATA £0,19,18,20,60,74,7e,94,42 
DATA 50,02, 5f,10,15,08,07,18,5a 
DATA £9, 87, 08,08, 15, 29,42,02,75 
DATA 06,78,42,28,71,16,f2,60,59 
DATA 20,90, 29, e8,07,49,5f,1a,18 
DATA 53,48,98,66,08,eb,95,68,42 
DATA 12,60,10,48,12,66,06,14,0e 
DATA af,49,86,23,07,92,02,30,20 
DATA 49,56,62,50,26,0?,14,18,62 
DATA 91,37, 5,26,90,65,40,67,26 
DATA 68,61,96,40,27,65,67,69,ät 
DATA 66,66,49,42,69,55,02,04,60 
DATA Oa,bb,2£,c7,30,da, 30,50,eb 
DATA 60,a8,98,5,08,22,58,18,20 
DATA 18,86,18,28,61,04,58,bb,0a 
DATA 44,65,64,14,46,00,00,60,f& 
DATA 26,40,16,26,64,08,74,41,17 
DATA fa,cb,08,23,26,74,56,00, 4b 
DATA 67,50,18,93,74,72,30,10,15 
DATA 2e,66,18,04,10,02,b0,0e,d0 
DATA d8,07,00,98,60, 24,97,46,69 
DATA 63,60,00,13,68,69,63, 8,24 
DATA 60,73,75,98,99,14,Fo,4n,db 
DATA b5,be,67,20,do,23,40,0b,a2 
DATA 68,04,9e,54,b0,c2,0b,81,4c 
DATA 44,9,00,01,01,30,08,49,5e 
DATA 14,24,26,75,28,24,78,17,72 
DATA 29,42,17,66,26,88,05,08,67 
DATA 1n,2e,20,31,86,9,43,48,48 
DATA 20,34, f0,a3,90,20,b0,19,20 
DATA 00,90, 58,27,02,20,30,70,64 
DATA 63,56,41,32,81,62,12,68,90 
DATA 00, 58,80,66,84,90,24,44,66 
DATA e8,60,30,70,12,40,41,09,b6 
DATA 45,20,82,01,50,07,16,08,00 
DATA 67,06, f1,06,22,38,88,25,2e 
DATA 02,38,a8,40,12,18,31,en,b2 
DATA 18,38,09,00,na,96,1b,be,41 
DATA 08,23,78,72,30,52,81,76,07 
DATA 06,95,06,60,28,99,47,18,54 
DATA 18,18,76,4b,86,88,81,21,16 
DATA 28,06,15,41,00,08,29,02,20 
DATA da,20,92,00,07,bd,68,da,32 
DATA 00,£0,a1,a£,04,72,00,50,9e 
DATA 9a,08,50,88,06,81,05,93,20 
DATA 18,24, 22,60,26,db,01,76,3e 
DATA 26,52,24,80,95,17,18,35,30 
DATA 67,8,67,d8,13,82,33,08,62 
DATA 49,79,40,20, fe,00,26,98,5ä 
DATA 0f,b0,b8,2a,61,18,66,37,16 
DATA 4a,11,e8,10,ae,59,09,1d,7a 
DATA 61,08,b0,46,06,42,11,67,67 
DATA 64,98,05,21,66,60,03,21,ae 
DATA 47,ta,18,£1,93,58,87,b8,70 
DATA 08,2, 50,56,29,48,75,18,32 
DATA 20,87,d,07,b9,00,20,67, ee 
DATA e4,ee,fe,38,13,b6,24,05,78 
DATA 44,72,34,5b,ee,20,45,66,05 
DATA 08,48,06,d4,09,76,16,98,03 
DATA 14,25,b8,7b,00,95,08,48,e0 
DATA fa, 53,09, 00,06,70, 08,08, ab 
DATA 86,29,30,25,49,00,12,28,69 
DATA 00,22,28,54,18,76,18,d0,70 
DATA be,ös, a0, 30,70,34,68,04,62 
DATA 75,80,93,02,71,47,46,66,04 
DATA 28,00,66,12,f4,18,58,49,65 
DATA 14,50,20,74,06,17,36,0b,51 
DATA b2,42,68,09,28,04,14,35,ed 
DATA 3e,56,70,30,18,32,18,b8,23 
DATA 08,58,0,00,58,8b,32,76,81 
DATA 30,b2,£5,d3,c0,00,1f,71,2a 
DATA 72,37,37,56,07,£4,eb,08,05 
DATA 00,1f,67,12,58,95,72,45,99 
DATA 52,18, 58,e4,ba,84,28,db,äc 
DATA 36,80, ££,2f,06,6£,19,20,08 
DATA 00,62,76,6e,36,04,20,40,78 
DATA 16,91,15, 10, 32,28,00, 72,46 
DATA 90,53,81,15,09,67,04,d8,59 
DATA 13,68, 16, 3b,1a,00,ce,ab,80 
DATA 41,02,60,88,c0,51,14,66,10 
DATA 20,57, 04,21,00,9e,ba,82,85 
DATA 24,26,16,7e,56,38,6,82,eo 
DATA 86,84,22,b4,1d,25,81,fe,86 
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DATA 69, 44,da,20,5,20,47,13,18 
DATA 32,14,38,00,48,24,47,20,aa 
DATA de,67,65,42,18,72,04,02,06 
DATA d1,01,46,37,21,71,98,b8,72 
DATA 65, e1,06,6,d0,08,42,b3,28 
DATA 83,10,08,f1,20,88,£7,96,96 
DATA 53,88, 00,18,06,64,48,58,54 
DATA 2e,27,94,80,13,04,b3,d4,0d 
DATA 22,90,00,78,eb,08,68, 66,76 
DATA eb,86,60,be,15,93,39, 22,20 
DATA 74,08,74,98,49,fa,14,a4,ed 
DATA 57,66,4,02,66,14,da,41,00 
DATA e2,de,a0,b4,b6,00,40,29,6a 
DATA 87,00,70,65,48,18,80,08,c6 
DATA e7,52,98,16,fa,d1,22,90,08 
DATA 22,83, 08,12,00,25,03, 20,00 
DATA e2,bo,44,4,73,33,47,00,09 
DATA 08,73,d9,1e,a,f1,74,18, ef 
DATA be, 16,66, 88,£2,45,80,f5,24 
DATA 75,66,80,23,22,99,08,04,66 
DATA 24,48,03,92,72,51,2d,do,b9 
DATA 00,35,00,26,20,70,31,46,29 
DATA 76,10,25,08,04,0b,24,10,0 
DATA 05,57,09,84,80,08,68, 13,07 
DATA 01,00,20,20,26,b4,96,a7,fa 
DATA a0,60,20,08,a7,06,26,aa,77 
DATA 9f,do,2a,07,66,94,86,35,3 
DATA D6,06,48,60,08,5,08,66,10 
DATA 6b,bb,c3,80,48,f0,c0,a0,52 
DATA e3,12,78,80,59,83,08,92,a0 
DATA 16,26,21,78,0b,a4,19,b0,3a 
DATA e3,86,09,12,b2,67,44,0d,18 
DATA 00,04,13,22,82,49,01,e4,be 
DATA 71,46, 16,78,29,23,08,04,45 
DATA 65,4d,52,32,08,ad,52,69,f0 
DATA 00,0f,13,00,2£,b1,01,68,96 
DATA 44,31,51,00,09,56,30,2,66 
DATA c8,86,93,18,69,01,40,35,f2 
DATA 71,04,09,42,96,61,65,5d,ce 
DATA 40,00,24,00,58,03,61,66,95 
DATA 83,75,24,00,54,50, fb,de,4o 
DATA 9f,e3,11,20,42,90,7e,14,58 
DATA eb,80,12,70,78,0d, 08,05, 0b 
DATA 26,91,37,61,bd,ea,64,19,c0 
DATA 1e,4,06,03,26,80,02,50,34 
DATA 07,80,05,b4,22,40,80,37,27 
DATA D8,4,23,35,28,24,08,66,78 
DATA 45, 00,89, fa,e4,00,76,46, db 
DATA 49,80,55,43,16,de,c0,02,b8 
DATA 32,47,08,24,44,00,90,4e,84 
DATA 66,15,a2,88,b5,88,67,d9,a£ 
DATA 68,89,66,52,8,93,66, 22,79 
DATA 87,00,46,68, 5,88, 88,91,03 
DATA 00,88,63,60, da, ?d,02,28,b7 
DATA £1,62,38,56,29,44,33,43,81 
DATA 32,17,62,14,29,17,00,66,4e 
DATA @6,87,07,02,96,24,06,49,42 
DATA 60,90,50,08,20,2n,b0,46,52 
DATA 45,45,60,16,20,40,0b, 78,80 
DATA 2e,82,11,02,20,36,57,42,08 
DATA 28,24,00,76,20,db,6b,05,60 
DATA 10,24, 32, 10,80,67,08,04,82 
DATA 78,1d,48,16,03,06,24,0d,db 
DATA 08,30,48,50,16,80, 71,02, f2 
DATA ba,d4,63,20,f1,42,28,04,66 
DATA 00,69, ef,cf,be,88,fa,50,03 
DATA 90, fa,70,e2,8f,06,59,19,04 
DATA f0,58,76,06,10,58,19,50,f0 
DATA 80,66,46,87,99,28,04,12,88 
DATA 28,53,20,00,98,03,28,40,b3 
DATA 81,08,30,76,08,00,66,88,18 
DATA 11,42,e7,67,ed,ee,33,10,97 
DATA 42,84,22,53,56,93,60,79,17 
DATA 06, 08,2b,8f,8d,03,85,2b,9a 
DATA 68,75,40,3e, 7b, a8,80,47,38 
DATA a1,98,74,34,9,80,75,99,72 
DATA 01,16,94,14,70,0b,26,01,1e 
DATA 10,80,53,84,73,83,71,87,72 
DATA 66,70,03,16,93,98,06,34,aa 
DATA 00,86, 28,02,06,85,07,61,01 
DATA 04,24,40,58,ca,a2,9a,b9,8£ 
DATA 70,86,07,c8,22,61,27,08,00 
DATA 39,78,94,77,1b,0£,08,20,42 
DaTa 41,28, 29,00,44,b3,b6,51,0b 
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BOT IP DATA Ff,de,3e,ä3,50,ab,e4,2f,08 91 Yu DATA 97,22,60,22,74,00,e0,dc,74 975 si DATA 10,b7,ca,65,b5,88,86,33,b0 
808 70 DATA 78,fF,04,0£,77,95,51,72,71 892 iu DATA a4,60,10,48,00,74,21,02,% TE va DATA 4e,04,50,36,00,14,60,98,67 
‚809 TU DATA 69,2e,28,06,97,60,97,00,20 893 0d DATA 13,06,85,41,14,22,58,40,14 ST7 18 DATA 26,&b,76,06,22,75,1e,36,20 
810 BD DATA 28,57,20,57,12,23,b0,18,96 &94 jÜ DATA be,c6,ec,16,b2,07,02,50,0e 978 PD DATA 28,62,72,0e,3e,d0,67,26,ee 
BLU R| DATA 07,ec,b9,06,72,20,b1,62,60 895 yV DATA fO,ba,84,12,48,74,4e,be,a4 979 ge DATA 00,88,14,6e,20,08,20,40,98 
812 JO DATA dO,de,00,32,0b,57,.5,b,04 896 85 DATA 14,12,32,60,d0,de,2d,=0,86 360 Eb DATA 51,00,84,06,42,94,07,84,44 
813 54 DATA 58,16,85,11,78,05,82,d4,42 897 Is DATA 55,0e,3e,e1,a1,02,59,34,0e Se1 LJ| DATA 36,04,18,60,08,4,4d,f0,16 
Aid vG DATA bB,35,02,24,94,26,£2,01,00 898 TD DATA be,o4,1a,eb,12,d9,80,27,00 982 Sk DATA e0,28,68,03,e1,51,48,58,8a 
815 PN DATA e4,99,42,d6,f1,18,99,42,46 899 6X DATA 4a,66,be,91,b5,20,e0,5a,bd 983 0y DATA 04,28,34,1b,e7,16,02,60,10 
816 g3 DATA,25,7e,35,87,6n,04,58,c8,28 300 gr DATA 12,02,48,60,42,45,5e,16,20 924 56 DATA 65,89, 02,30,60,12,b8,13,05 
Biq ot DATA 6£,72,22,2d,44,27,ab,4a,0b 301 ©0 DATA 40,5,52,15,aa,60,b8,6a,4b 985 J2 DATA 04,60,08,71,87,01,74,89,22 
819 KO DATA @0,00,55,83,22,02,18,30,09 S02 FC DATA 05,78,34,ed,26,70,38,44,97 96 nK, DATA 70,44,37,b1,rd,48,40,02,33 
Big 8 DATA e8,10,76,90,40,db,65,10,5e 903 Be DATA 14,29,02,84,92,9e,32,41,01 987 mM DATA 40,98 ‚20,5b,5d,80,63 
820 pG DATA 20,04,02,02,65,08,00,95,f2 904 qN DATA d6,60,1n,df,65,06,78,38,u2 98 pr DATA do,22,4e,0e,0n,ee,fe,62,dd 
821 Ab DATA 86,13,67,23,76,69,59,95,18 905 Xu DATA d8,50,12,59,b3,86, fa, 989 89 DATA 43,11,65,17,05,00,d1,06,42 
822 4 DATA 17,03,64,03,04,68,00,06,04 906 20 DATA 29,13,60,06,f1,b4,68,18,29 uy DATA 19,3e,35,16,16,94,37,80,23 
23 D9 DATA oc,a0,3b,22,d8,26,47,28,14 307 d3 DATA e0,98,95,13,64,60,09,32,58 %2 DATA 95,20,04,59,3f,e9,b6,09,ab 
24 US DATA 33,43,58,08,25,67,07,80,03 908 YO DATA 17,06,28,60,78,4e,27,65,64 Ka DATA 80,35,02,04,80,52,10,00,10 
825 LE DATA de,a6,10,00,28,50,46,82,0b ‚909 DU DATA 67,83,24,33,17, 9m DATA be,77,66,10,62,41,58,04,04 
826 YL DATA 8e,71,56,bd,01,06,99,69,40 910 CD DATA eb,92,11,46, Kl) DATA 71,97,a0,42,22,01,76,10,13 
BT m? DATA d3,64,e1,01,48,20,27,74,02 HiL QA DATA 41,bf,ed,06,76,08,60,90,68 Fn DATA 05,28,88,83,66,18,70,d4,a0 
828 0B DATA b7,38,1a,an,29,23,b2,ca,72 Si2 32 DATA 3b,10,b8,60,96,08,8d,04,10 ap DATA 72,32,e8,6d,81,09,bf,80,4b 
829 P9 DATA 02,10,44,24,bb,21,86,02,3c 913 dP DATA 50,30,47,en,b5,58,00,84,1b ZB DATA 89,08,00,75,82,63,99,b2,7c 
830 eP DATA 73,20,80,53,02,05,81,03,24 914 et DATA d6,55,03,02,30, ‚De,de 1P DATA 02,b8,46,ae,25,20,20,60,#8 
915.RL 


831.96 DATA 00,69,87,60,14,10,80, 20,04 DATA 02,5, 12,00,02,41,bb,26,07 


DATA 28,96,35,03,d2,26,49, 05,00 
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832 IV DATA 38,26,28,06,44,96,82,04,48 916 6V DATA 47,82, 50,48, 5n,16,40,06,60 DATA 00,42,96,38,61,94,26,ce,61 
833 #7 DATA 83,06,06,20,26,57,07,03,24 7 BE DATA 68,0b,a0,40,3b,e9,11,87,20 DATA 00,26,00,32,02,12,67,08,04 
834 QU DATA 37,24,00,00,20,be,29,1e,7a 918 w8 DATA fc,42,41,44,20,09,df,81,18 DATA 38,09,60,10,80,36,2,14,47 
839 2P DATA 78,20,30,91,76,42,20,fb,48 919 wa DATA 3,83,04,56,0£,b0,60,00,2e DATA 96,78,92,9b,20,03,80,20,97 
636 IS DATA da,40,59,85,44,48,03,88,66 920 24 DATA 70,99,f8,98,56,98,dc, DATA 09,84,c9,62,12,01,27,10,cc 
837 10 DATA 10,16,25,32,32,b8,e9,19,be 921 1A DATA 84,48,20,80, 1005 Yn DATA 56,32,01,02,63,00,7e,di,ff 
&38 2) DATA 07,82,78,24,00,98,69,23,d9 922 1P DATA 5b,18,be,b5,98,75,16,38,28 1006 1G DATA 00,60,36,07,16,be,7b,1n,6n 
839 De DATA 6c,ed,08,46,27,16, 40,2, ff 923 Nx DATA 2e,98,73,06,98,97,cb,de,s6 1007 w DATA o0,d8,06,62,21,48,50,15,84 
840 6) DATA fo,5b,be,09,02,58,80,00,d0 924 KL DATA 54,18,00,30,12,50,32,37,7e 1008 16 DATA 06,00,2e,40,0f,4f,76,25,88 
B4ı Jo DATA d1,90,42,90,66,02,56,90,60 925 WX DATA 46,e8,08,02,94,93,06,88,34 1009 pO DATA 01,78,70,98,20,46,48,53,10 
842 Se DATA ba,16,80,22,45,28,04,80,08 926 LG DATA 26,34,6,ba,ab,06,31,e6,8c 1010 24 DATA 66,e2,40,9e,04,30,80,22,0b 
843 9Q DATA b5,55,88,45,52,94,44,.1,d5 927 Sk DATA 42,33,36,07,24,71,08,28,33 1011 fn DATA 22,96,49,e,a0,20,10,06,11 
B44 au DATA 08,64,8,66,44,60,88,2%,04 928 YK DATA 76,00,09,00,10,8d,01,81,15 2012 £v DATA 66,06,04,40,60,04,20,68,6£ 
845 80 DATA 03,dn,66,30,78,80,50,de,02 923 20 DATA 90,95,84,06,31,04,39,80,98 1013 yE DATA 40,45,31,81,08,65,08,98,00 
B46 Qu DATA an,22,20,49,22,5,20,17,e5 930 ew DATA 68,08,00,30,20,58,97,98,41 1014 ja DATA 66,54,23,08,54,45,04,06,13 
eu Fo DATA 3e,d4,08,e0,2e,18,d1,48,5b 931.08 DATA 81,62,16,10,e0,da,08,0e,20 1015 IB DATA 07,66,35,70,88,41,72,31,59 
848 KO DATA 42,08,99,38,97,50,bä,de,14 932 70 DATA d0,12,01,78,97,06,42,90,67 1016 zn DATA 00,74,79,35,09,90,b0,4b,80 
@49 Q0 DATA 01,52,04,88,58,83,04,21,40 933 Y6 DATA 06,20,50,14,60,38,29,02,86 1017 Dh Data 64,c8,2e,20,40,48,80,19,82 
890. NS DATA 64,81,85,78,00,20,76,25,de 94 DA DATA 05,42,02,69,74,22,40,92,71 1018 a6 DATA 78,20,28,68,67,20,70,42,a8 
‚851 QK DATA 18,02,33,e0,00,80,9,62,67 935 is DATA 9a,e9,80,05,07,25,29,02,26 1019 Je DATA 00,40,05,0£,00,28,7a,67,01 
852 23 DATA a4,03,81,15,64,99,63,32,57 936 03 DATA 0n,02,2,42,80,00,28,14,17 1020 cu DATA e0,12,26,56,55,16,58,81,37 
853 00 DATA 15,42,09,8e,38,22,06,03,80 937 03 DATA b0,32,46,09,da,9a,b8,d4,98 1021 GK DATA fc,70,76,20,4°,91,e2,07,03 
854 38 DATA 37,27,88,58,56,08,71,16,06 938 YR DATA 59,52,65,08,20,78,07,a4,20 1022 ia DATA e8,08,17,70,72,19,e0,u4,2a 
853 nq DATA 26,96, 98,e1,f1,7a,dc,08,45 939 01 DATA ba,07,28,25,23,00,0,88,07 1083 73 DATA 40,20,78,b1,1,8,co,20,6d 
856. KR DATA cb,ba,18,0d,a0,24,b5,0d,de MMO Mb DATA 7a,e8,00,92,45,28,20,70,06 1024 AX DATA da,57,61,32,49,67,12,ne, fd 
557 40 DATA ee,1o,?2,9d,ae,a3,5?,fa,b5 941 eo DATA 80,b£,08,59,24,64,86,80,04 1025 BN DATA de,22,55,bb,fo,cd,df,fä,e6 
958 14 DATA a0,02,88,66,2,71,21,82,48 942 #g DATA 24,d0,84,52,81,08,08,23,98 1026 1x DATA 50,2b,fd,e2,f1,b6,75,93,09 
899 00 DATA 20,32,00,7a,60,92,66,d4,.d 943 ZE DATA 47,10,23,64,45,18,38,58,70 1027 W5 DATA ee,a4,da,36,68,23,40,0d,46 
360 au DATA f2,27,n4,37,80,ba,eb,96,23 4 W6 DATA 02,00,90,02,23,06,64,40,88 1028 Yr DATA 72,9e,40,03,78,87,9,30,70 
86100 DATA 55,04,a2,%,26,82,27,90,fa 945 ak DATA 03,91,58,8b,60,08,24,90,26 1029 aM DATA 01,72,00,12,01,44,47,64,40 
862 56 DATA 78,18,74,06,37,67,03,42,22 946 DK DATA d8,45,78,7e,68,99,00,8d,e0 1030 #7 DATA 01,8b,20,23,4b,b6,£7,08,08 
863 Qu DATA 49,15,69,76,€8,32,69,d1,25 947 fa DATA n2,08,01,00,33,f0,00,82,2f 1031 Xp DATA 35,00,97,24,22,78,02,fa,7d 
@64 OP DATA e1,04,8,00,af,82,5a,0n,08 948 mL DATA df,£0,9a,78,30,58,38,96,30 1032 Ih DATA 28,20,24,08,62,33,38,43, a 
865 54 DATA 43,de,00,24,70,65,03,ee,cb 949 ca DATA 28,90,01,80,20,be,10,67,01 1033 WW DATA 20,28,20,26,f6,98,28,7a,03 
866 NO DATA 16,04,76,63,04,66,28,5a,16 950 90 DATA 53,14,18,83,00,20,08,77,be 1034 8b DATA 08,a7,fe,7e,b1,e0,68,4b,66 
867 ZW DATA a7,14,08,75,36,05,80,7a,14 91 dg DATA 20,69,45,2e,38,cb,b3,b0,50 1039 PZ DATA 16,30,83,08,42,98,07,39,50 
868 12 DATA 04,96,10,64,58,97,91,00,22 92 ma DATA 12,10,02,88,83,10,41,04,61 1036 aP DATA £f,e2,29,13,24,08,10,04,0n 
869 04 DATA 10,24,8b,e,b5,0e,58,07,a0 953 Q1 DATA b2,01,60,42,90,2e,8b,2d,7a 1037 15 DATA 87,90,75,26,04,91,60,04,00 
870 Ub DATA 22,00,24,17,26,48,4?,44,44 954 DO DATA 06,5b,2e,41,ee,a0,59,42,40 1038 Tu DATA 24,04,7e,2a,67,04,75,97,08 
871 09 DATA 14,27,00,08,24,59,08,32,85 955 ht DATA 72,17,40,58,44,87,20,46,40 1039 AV DATA 20,9,10,74,00,90,55, 88,19 
892 Sn DATA b5,2e,86,4n,84,67,10,78,1£ 956 UK DATA 30,80,91,57,30,40,74, 22,42 1040 In DATA 12,07,40,20,10,90,03,63,86 
873 Ku DATA e8,40,17,e4,32,21,01,9e,fc 997 12 DATA 98,84,00,20,44,24,48,60,ee 1041 2D DATA e0,58,27,06,04,d0,13,1b,c0 
87a 5m DATA 50,09,23,09,28,30,78,80,5b 958.02 DATA ef,05,60,96,34,61,40,20,84 1042 30 DATA e3,59,40,21,70,98,86,67,10 
875.6) DATA de,od,4b,1f,a5,&4b,E£,4£,02 959 Gy DATA 16,03,48,09,be,70,34, 00,06 1043 wm DATA 22,29,0d,15,16,10,£8,56,01 
876 My DATA 09,66,10,10,42,10,4a,00,66 960 ya DATA d9,00,61,02,69,47,70,12,14 1044 8M DATA 4e,ee,f?,82,f6,88,57,ad,20 
77 ml DATA 88,52,38,40,ec,2e,16,5e,0f 961 8X DATA dB,51,08,fL,10,00,af,15,e3 1045 uk DATA 6e,c0,20,24,48,22,ed, 02,20 
&78 98 DATA 66,28,60,23,00,06,29,39,41 962.67 DATA 28,41,20,41,4e,04,33,02,52 1046 35 DATA 50,00,91,31,38,90,66, 10,22 
879 bl DATA ee,bb,d4,4e,82,00,68,68,27 963 24 DATA 30,00,46,33,80,84,01,30,00 1047 F% DATA 4a,67,42,06,04,1e,17,41,08 
RO NO DATA 6e,23,88,99,58,13,ba,08,56 964 Bu DATA 18,36,66,26,20,68,00,22,4e 1048 Mu DATA 01,42,90,77,20,29,57,02,60 
881 06 DATA 62,69, 10,aa,0f,fd,c4,69,98 965 k2 DATA 5f,18,64,61,04,26,40,de,06 1049 t% DATA bo,7e,34,64,02,7e,20,68,64 
882 DH DATA 66,27,36,01,59,15,7d,ee,e1 966 ya DATA e0,e5,1f,28,65,88,24,40,12 1050. IR DaTa 42,e0,67,00,Tb,40,de,ae,97 
883 EG DATA de,58,&b,aa,b8,56,16,66,e5 967 B) DATA 18,48,81,53,41,76,b£,66,12 1051 54 DATA 05,02,67,34,48,87,67,20,d1 
B84 90 DATA 34,91,e2,08,58,10,17,18,e1 9ER CE DATA 51,09,70,06,42,13,00,38,a5 1052 KT DATA ef,56,81,4e,02,be,9e,a3,11 
885 ss DATA 00,20,00,45,00,17,66,1e,fa 969 ET DATA 56,1e,40,60,20,70,£2,39,94 1053 B2 DATA 08,44,87,04,06,68,87,24,d6 
886 #3 DATA be, 34,08,62,46,de,4d,08,86 MO Fx DATA 40,59,01,e4,04,19,40,53,81 1054 OL DATA b9,09,26,de,20,35,01,82,42 
887 UQ DATA 12,98,87,08,74,58,06,16,0e Mi lg DATA 69,02,67,02,06,23,78,b£,5a 1055 #m DaTa 10,e4,08,00,36,70,78, 16,60 
BBB K6 DATA e1,09,70,58,e1,£4,&0,05,38 972 #7 DATA de,43,28,e4,70,45,70,ee,da 5 

869 BB DATA 04,02,28,78,88,98,55,30,0& 973 0 DATA a6,00,22,d4,02,66,60,65,15 Listing. »VirusControl« macht Schluß 


890.08 DATA fo,cb,53,e4,60,30,60,23,ee ITAOE DATA 00,92,98,25,66,b6,f8,76,62 mit Viren aller Art (Fortsetzung) 


DATA 06,61,05,96,cb,00,21,00,4a 
DATA 10,67,06,52,83,52,88,60,16 
DATA do, 78,66,04,62,12,22,38,01 
DATA 60,67,04,0,96,42,27,04,70 
DATA 34,70,56,b6,20,90,61,b0, dd 
DATA a4, 88,45,41,60,62,10,24,08 
{ DATA 76,01,82,79,28,40,98,04,ce 
DATA 52,ba,f2,78, f2,b0,09,b£,47 
DATA 0f,74,48,02,08,71,08,88,4c 
DATA 0f,01,18,39,£8,20,14,77,01 
DATA 80,65,62,80,28,92,35,92,73 
£ DATA a1,00,48,22,30,80,08,48,07 
DATA b4,04,4e,ne,fe,86,40,d8,72 
DATA fe,60,de,f4,b7,11,80,00,b5 
DATA 01,00,04,66,56,80,86,64,58 
u DATA 20,87,24,28,10,16,08,30,4d 
DATA 30,66,38,60,18,60,68,08, 0 
DATA 60,28, 5,60,54,67,08,00,68 
DATA 00,61,00,06,66,18,30,28,00 
DATA 08,02,03,00,28,07,00,40,.5 
f DATA 76,66,00,22,08,45,23,00,83 
DATA 14,b0,00,£1,24,52,20,08,4e 
DATA 75,04, 20,b£,52,8,40,02,56 
DATA 25,00, 71,62,13,23,37,66,22 
DATA e0,97,81,02, £,27,60,60,0c 
| DATA Of,48,01,5b,ef,17,78,68,76 
DATA 27,90,01,be,ae,74,75,80,26 
DATA e8,b8,2e,60,69,&d,22,03,73 
DATA 00,74,69,f2,06,72,59,dc,d1 
| DATA 70,18,2e,64,65,76,27,87,98 
DATA 16,55, 21,05,ef,6b,0e,e0,21 
DATA 19,e0,a0,00,4,65,80,17,.8 
DATA 64,97,48,e0,38,20,25,18,80 
DATA 03, 82,67,03,02,31,37,30,% 
DATA 42,42,42,54,42,40,42,43,46 
DATA e4,07,90,71,e4,44,00,76,9 
DATA 08,54,56,75,87,03,28,be,57 
DATA 38,31,00,36,34,01,18,32,30 
DATA 30,28,70,41,98,98,06,24,50 
DATA 19,09,23,e1,38,56,43,70,72 
DATA 99,e?,6£,60,62,58,03,22,62 
DATA 20,28, 62,50,38,05,85,56,85 
DATA cc,40,08,20,20,52,13,76,48 
DATA 49,46,54,9,0f,20,44,98,12 
DATA 88,10, 72,60,31,43,a2,05,05 
DATA 81,75,28,78,00,00,78,04,66 
DATA 6f,e2,49,12,#7,09,06,79,a4 
DATA 72,74,07,32,66,50,66,06,9e 
DATA 77,65,06,37,98,82,45,30,38 
DATA 84,64,61,39,58,90,60,15,8e 
DATA 06,91,85,07,be,b6,58,e4,55 
DATA 04,62,55,48,49,31,04,46,98 
DATA 52,58,09,b0,66,ae,0b,c0,8b 
DATA 73,68,65,4a,11,36,fb,88,85 
© DATA d4,a1,48,e0,80,eb,10,1d,d0 
DATA 54,58,54,59,87,82,29,00,37 
DATA £7,94,40,96,26,62,24,37,05 
DATA 36,76,10,67,08,e,31,32,23 
DATA 38,83,69,98,38,65,62,26,76 
DATA 97,33,50,52,48,47,52,41,44 
DATA 44,30,78,50,49,08,56,82,35 
DATA 50,50,47,42,53,b1,18,08,43 
DATA 48,50,59,92,49,47,48, 54,89 
DATA db,4d,41,52,46,54,26,54,45 
DATA 85,98,77,48,49,46,48, 00,80 
DATA 02,57,88,02,26,26,73,30,85 
| DATA 2u,37,98,02,5e,ab,22,6b, 20 
DATA 44,18,90,51,07,92,da,2a,be 
DATA 20,40,39,50,67,77,00,64,24 
DATA 55,68, 74,03,e2,d1,69,65,0& 
DATA 95,62,04,67,02,27,de,64,04 
DATA 18,24,57,23,64,62,77,42,42 
DATA 00,44,4,24,45,72,72,6,72 
) DATA do,e?,2,e0,27,88,99,12,07 

DATA 59,68, be,47,61,64,64,20,29 
DATA 49,68,68,08,74,74,24,51,%0 
DATA 72,16,33,69,66,21,37,25,b8 
DATA 10,96, 26,28,46,©6,45,44,45 
DATA 39,9,62,07,28,be,&b,73,7b 


DATA 89,07,69,78,31,60,21,ce,69 
3) DATA de,d1,8,71,38,b2,50,18,f0 
| DATA 04,67,90,88,94,52,20,82,25 
DATA 6b, 58,13,50,00,28,bb,04,37 
DATA 10,10, 30,72,70,47,3b,48,08 
DATA 28,78,b7,e£,16,25,80,87,ca 
DATA 80,67,08,67,51,69,80,27,04 
DATA 60,78, 56,97,44,00,1b,60,73 
DATA 14,53, B,10,be,38,78,29,67 
DATA 03,62,62,83,4b,e3,a2,6f,08 
DATA 4e,55,03,9e,08,do,18,bd,29 
DATA 6b,64,20,55,45,77,18,52,28 
DATA 20,87,45,4e,20,64,69,fo,a2 
DATA Ob,de,94,02,29,de,64, 
DATA 06,bb,dc,58,80,47,03,84,67 

DATA 8d,b3,0f,43,42 46,54 ,bB,ab 


DATA 18,63, 01,00,04,28,72,30,db 
DATA d8,60,b8,08,67, 16,75, 60,88 
DATA 5£,60,00,1e,1f,80,01,23,40 
DATA 00,28, be,£3,97,25,07,20,28 
DATA de,19,01,b8,17,73,69,04,33 
DATA 20,59,05,02,25,de,51,ba,c1 
DATA 03,04,30,33,18,37,24,60,69 
5 DATA 0£,38,46,59,80,87,35,e0,38 
DATA 24,40,00,e0,18,08,0,20,61 
DATA 02,2d,64,98,27,6b,b4, 98,23 
DATA 61,68,61,64,24,66,08,20,20 
DATA 44,86, ?b,68,55,66, fe,06,69 
DATA de,d1,12,e0,09,2,90,99,8b 
DATA e3,00,5e,8b,02,2b,de,6d,ba 
DATA 38,4, 38, bo, 38,80,47,28,0b 
DATA 40,89, 57,46,53,27,ce,31,8d 
DATA 90,95,48,63,08,14,b0,10,05 
DATA bo, 46,bb,74,38,e0,25,00,e1 
DATA 00,01,03,36,40,16,08,00,5e 
DATA a5,dd, oe, 76,52,52,42,52,94 
DATA 16, 68,66, 12,69,10,16,8?,a0 
DATA 62,8b,35,06,b0,05,e1,14,2e 
DATA e0,20,08,39,04,41,76,54,55 
DATA 4e,47,e0,20,53,43,48,52,38 
DATA 42,58,55,47,52,49,46,46,20 
DATA 61,75,66,26,28,24,98,04,dc 
DATA 85,26,80,40,65,73,b,84,77 
DATA 0e,ce,a2,97,0e,a0,4e,01,24 
DATA 22,0?,28,33,01,20,21,92,44 
D DATA 46,30,60,83,77,69,72,6b,ca 
f DATA 56,45,08,20,47,72,03,1f,63 

DATA 72,65,69,00,74,46,e4,02,ce 

DATA 49,01,62,78,39,60,4a,50,04 

DATA 51,22, 10,7e,58,4e,45,49,4e 
| DATA db,eb,66,45,28,00,98,65,84 
t DATA 31,26,33,£1,62,84,73,46,02 
DATA 66,25,01,65,47,80,03,26,de 
ae,b9,69,09,2d,da,78,1e,d0 
7,00, £0,52,68,75,48,68,22 
4,70,00,01,bc,00,2d,da,6e 
17,72,24,53,69,68,75,60,61 
10,96,70,93,60,00,28, fb,80 
60,15,88,73,38,20,ed, 70,61 
#9,65,20,17,65,24,80,48,75 
65,60,ad,35,a7,69,84,78,91 
of, 74,00,84,84,42,43,25,6b 
b3,2e,68,33,29,4e,00,8b,90 
DATA 55,26,0b,80,02,0f,02,ce,dd 
68, 84,20, 48,40,b8,01,19,78 
18,04,78,08,10,78,53,02,e0 
80,67,02,0f,00,1e,ef,2,39 
a7,23,37,00,58,57,88,31,65 
66,88,5,78,20,15,e3,e4,15 
18,56, 27,28,11,38,d0,20,3f 
80,03,04,00,22,ad,06,49,c8 
&2,a0,17,04,03,66,12,56,49 
52,08,24,45,48,54,46,19,7e 
DATA 4e,c0,68,45,52,53,55,43,48 
DATA 15,48,46,05,74,75,72,78,67 
65,66,61,68,9%,1f,01,29,62 
65,73,60,73,08,22,44,49,47 
41,20,17,20,21,21,20,e0,58 
03,5e,00,8,69,70,69,26,85 
15,72,22,57,65,08,02,20,08 
02,03,18,22,08,40,49,19,2£ 
78, 30,e7,86,52,74,73,0b,28 
20,£8,48,88,96,22,b7,16,e0 


BESEERSEESSE 
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BEBSSERSESS 
BESRBERKRRERUNG 


DATA ed,69,24,19,53,75,68,9e,d2 
DATA 55,06, 87,12,62,69,03,04,30 
DATA be, 71,55,08,88,59,4b,e8,d9 
DATA 38,80,59,53,£3,25,80,68,77 
DaTa 40,40,eb,6b,20,13,0,24,5a 
DATA 02,75,74,7a,26,25,80,17,00 
DATA 20,46,37,43,0,53,79,1b,ab 
DATA 88,32,68,1b,15,98,£3,02,20 
DATA b8,78,77,24,98,e1,08,a8,08 
DATA 30,80,30,57,59,02,84,3,09 
DATA 57,23,07,66,69,66,67,24,05 
DATA 97,46,e0,31,14,96,42,5b,3e 
DATA b£,20,56,49,56,75,73,43,74 
DATA 67,72,68,60,db,58,03,5, 5b 
DATA ad, 72,08,b9,02,bo,2a,a1,2a 
DATA £0,b4,87,66,2,2u,87, 11,73 
DATA 75,64,4d,51,94,e1,cb,b0,06 
DATA be,68,58,15,48,6,50,73,74 
DATA 28,46,d1,69,84,00,28, 74,05 
DATA 74,61,68,64,46,67,64,24,89 
DATA @7,03,0f,50,a8,9a,00,10,08 
DATA 81,38,00,b2,05,31,£8,30,03 
DATA 40,62,05,20, ab, 06,60,65,9 
DATA 7£,e1,bc,00,be,1a,b8,42,6f 
DATA 6f,74,42,79,67,66,20,2d,3e 
DATA 5e,18,02,69,72,68,59,23,e0 
DATA 07,82,09,38,80,00,25,48,54 
DATA 08,20,46,61,72,62,30,94,1e 
DATA 00,41,48,33,86,90,93,97,41 
DATA 78,81,28,47,70,66,41,17,de 
DATA 02,50,69,09,34,64,81,28,b4 
DATA €7,01,16,bb,05,88,72,23,60 
DATA 44, 5b,e0,2£,d0,#9,ba,63,60 
DATA 00,04,02,25,e8,85,05,40,5£ 
DATA 00,63,e0,02,90,65,15,b1,0% 
DATA 84,80,81,d1,00,13,b0,05,00 
DATA 72,2b,68,52,b4,73,26,07,98 
DATA £3,af,bb,12,£0,12,16,08,38 
DATA 00,23, 1b,82,08,00,58,3d,13 
DATA 46,05,77,60,00,11,56,20,64 
DATA 37,81,06,81,05,30,d8,63,38 
DATA 17,54,08,98,33,90,73,04,a0 
DATA 41,78,81,30,20,7,01,3b,ab 
DATA 12,87,02,72,54,00,02,06,30 
DATA bo,e2,38,00,06,27,15,33,e8 
DATA e7,04,42,03,00,70,36,60,87 
DATA 2a,63,54,14,40,20,34,06,30 
DATA a4,30,07,48,14,02,34,40,00 
DATA &0,09,eb,61,e0,30,85,99,01 _ 
DATA 0b,b8,05,72,a4,22,70,b3,65 
DATA 01,88, 01,d0,b4,2f,21,26,2b 
DATA 06,03,10,£0,60,86,80,01,00 
DATA 85,11,0b,c0,30,f4,£3,80,14 
DATA 88,18,00,04,44,20,53,00,30 
DATA 16,03,07,74,29,34,10,38,97 
DATA &3,89,05,31,06,b7,58,03,72 
DATA 41,61,08,34,04,51,95, f1,ba 
DATA 00,53,82,59,10,57,10,eb,40 
DATA 48,96,87,40,af,0b,94,b0,03 
DATA 76,83,74,n0,74,h8,a0,27,0b 
DATA 31,00,30,08,48,45,£9,35,00 
DATA 39,27,69,50,00,02,31,e4,0f 
DATA 87,30,00,af,40,08,31,08,00 
DATA 56,74, 54,e0,59,49,23,0£,00 
DATA 53,35, 18,01,98,00,79,00,06 
DATA 8, 98,12,66,09,04,04,37,90 
DATA cb,42,32,34,90,bb,29,70,be 
DATA 27,76,45,40,40,19,68,03,36 
DATA 00,13,89,dd,ee,40,a6,50,02 
DATA b3,e1,10,34,b1,60,db,80,42 
DATA 29,48,£0,14,36,24,28,7e,b8 
DATA 02,28,00,08,97,27,db,96,09 
DATA b0,96,48,00,37,60,33, 04,28 
DATA 43,71,08,78,40,20,39,58,75 
DATA 10,81,07,64,49,04,do,ae,a0 
DATA b2,ed,20,96,03,47,5b,35,80 
DATA 30,67,00,29,89,10,08,44,07 
DATA 96,20, c3,64,07,05,b4,50,89 
DATA 07,37,€0,bo,dd,fe,2b,24,00 
DATA 24, 70,84, ce,06,00,03, 28,30 
DATA 55,68,08,67,54,33,3%,04,38 
DATA ae,01,27,88,00,02,14,87,04 
DATA 02,58,04,48,09,82,18,00,41 
DAEA ef,02,00,82,04, fa,23,37,00 


‚AMIGA-SONDERHEFT 


Tocıs 


DATA 01,83,52,37,10,08,06,04,01 
DATA 02,38,04,20,22,00,04,74,ae 
DATA 40,2b,06,26,20,82, fa,02,££ 
DATA 40,99,05,04,90,05,20,53,3b 
DATA 10, 08,88, 12,20,30,60,38,00 
DATA 04,00,26,32,22,48,02,40,01 
DATA 17,2f,29,60,38,94,45,08,00 
DATA 01,74,62,70,61,7a,22,66,6£ 
DATA 68,74, 0d,6£,38,a8,00,09,02 
DATA 64,7e,38,df,01,25,78,40,52 
DATA 9e,do,60,07,03,98,49,78,cb 
DATA 76,d8,18,83,82,81,25,09,92 
DATA 82,75,88,15,77,74,30,53,bb 
DATA 80,56,56,18,53,77,66,11,48 
DATA d0,94,70,66,48,63,68,e0,30+ 
DATA 63,96,61,26,12,33,23,43,6£ 
DATA 08, 30,24,60,90,86,27,72,75 
DATA 71,05,06,48,76,14,eb,4d,61 
) DATA 6b,65,86,16,26,67,42,30,86 
DATA 88,26,90,19,77,a0,65,1b,61 
DATA 44, b,aB,ed,f2,62,75,08,39 
ob DATA b4,ne,69,96,70,37,61,62,28 
DATA 86,98,85,01,37,62,69,20,9e 
DATA 85,33,10,64,00,74,60,14,08 
DATA 00,52,82,00,75,b8,96,b3,88 
N DATA 55,69,78,53,74,64,08,b8,78 
DATA 48,56,65,08,00,83,33,64,34 
DATA do,e5,91,84,20,58,72,89,38 
DATA 43,61,75,db,29,02,2e,37,6d 
DATA 87,71,28,74,4e,e5,aB,cd,b8 
DATA 18,16,56,80,17,73,38,bf,b4 
) DATA 00,32,86,14,76,dc,a0,ab,18 

DATA 27,06,87,14,08,00,68,31,07 
DATA 74,89,02,0b,00,f7,e0,c8,fa 
DATA 93,4b,60,bb,1b,d1,be,b9,a4 
Data 61,76,50,12,87,92,48,65,61 
DATA 64,b8,01,00,69,de,28,45,68 
DATA 71,78,03,75,18,10,03,00,4e 
DATA bO,99,b4,d2,e4,86,b6,36,28 
DATA en,36,55,23,23,80,74,54,61 
v| DATA 73,66,71,28,72,69,1e,16,76 
DATA 57,45,78,46,86,15,00,9,81 
DATA 61,eb,76,05,60,82,46,65,c4 
DATA 10,95,53,69,67,50,55,66,16 
DATA 60,36,63,49,62,46,2e,d1,65 
\ DATA 54,18,43,70,66,08,04,77,31 
\ DATA 94,40,27,31,24,32,de,dä,d3 

DATA 31,07,80,70,60,79,44,73,19 
R DATA 14,69,41,62,44,46,69,94,94 
DATA 04,32,86,95,40,70,57,42,07 
DATA 4£,60,64,26,66,97,28,2b,02 
"DATA £7,00,49,74,46,75,68,63,88 
DATA 07,97,99,81,75,64,b8, 92,08 
DATA 09,1b, ee, 92,8, 8, 3,42, 80 
DATA 39,60,6£,11,5,44,65,76,69 
DATA 96,97,44,80,10,39,e6,00,53 
DATA 50,85,05,45,6d,88,0d,6b,24 
DATA 86,57,61,20,03,98,53,62,90 
N DATA 08,16,8b,10,41,64,64,44,03 
DATA 54,68,80,45,44,91,52,65,73 
DATA 6£,76,08,59,90,24,49,42,dc 
DATA 69,25,bf,20,44,61,79,69,6b 
DATA 68,28,99,93,50,75,22,68,84 
DATA 06,82,52,61,77,44,61,46,64 
Ü DATA e0,6f,00,47,64,02,43,43,98 
DATA 04,08,54,79,39,42,66,44,65 
R| Data 64,84,48,50,72,6,63,65,64 
IXE DATA 75,08,47,80,56,61,63,d1,26 
\ DATA 88,05,00,83,48,52,68,04,56 
DATA 72,78,79, 28,97, 28 be, 66,00 
DATA 30,29,01,d2,f0,e8,64,10;1e 
} DATA 83,00,00,03,28,f0,76,e1,4f 
DATA 55,54,6d,77,61,58,23,20,c0 
DATA 2a, £0,80,61,24,44,48,41,20 
DATA 62,65,26,87,64,65,05,30,£1 
DATA de, 8b, c0,c,96,77,18,80,97 
DATA 10,19, 20,b4,08,be,60,a1,84 
DATA 41,89,39,78,83,87,43,62,70 
DATA 70,e2,36, 24,06,07,20,40,38 
DATA 20,54,76,84,00,6b,7a,08,02 
" DATA 06,09,61,73,74,60,f0,63,6b 
\ DATA 65,00,81,55,20,05,42,60,69 
DATA 74,02,67,20,02,40,08,67,32 
DATA 00,08,€0,18,37,30,78,83,21 


55 
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SESHSSBENBERRBRBBRSESSERE 
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® DATA 20,04,62,04,e0,dd,91,0,, 


DATA 31,b0,01,10,32,58,88,03,34 
DATA 20,41,75,64,08,82,64,48,08 
DATA 89,20,46,15,03,61,09,33,18 
DATA 63,e1,b0,08,73,bo,04,2e,te 
DATA 49,48,24,70,75,66,66,68,82 
DATA 88,76,62,60,60,58,22,81,35 
DATA 20,44,ef,66,53,79,6e,63,68 
DATA 72,04,b£,69,73,61,74,00,08 
DATA 73,77,08,00,74,62,13,43,49 
DATA 41,28,42,20,18,de,70,61,6e 
DATA 73,69,62,68,50,62,72,29,7e 
DATA 16,04, ab,00,69,cb,68,65,37 
DATA 20,53,68,66,74,77,61,72,65 
DATA £2,73,52,51,70,00,45,78,65 
DATA 63,40,69,62,2e,21,1f,24,36 
DATA 20,48,44,49,24,49,68,74,65 
DATA 72,72,75,70,74,17,00,26,03 
DATA 1,20, 20,20, 40,06,da, £0,80 
DATA 16,72,60,06,32,66,69,60,65 
DATA 68,61,64,65,29,35,38, 20,04 
DATA 03,b0,46,40,8,18,00,b1,0b 
DATA bo,a0,58,02,48,00,05,30,b1 
DATA ed,01,09,08,78,65,24,04,42 
DATA 69,00,23,54,68,32,06,67,54 
DATA 30,70,80,87,04,51,71,be,b5 
DATA 04,08,98,36,e0,ed,e1,03,be 
DATA 98,38,67,81,80,97,85,97,20 
DATA 30,60,05,1e,16,6e,02,83,a4 
DATA 00, 5b,bf,25,85,2b,19,7t, fe 
DATA 97,bf,6£,10,38,19,00,06, fd 
DATA e2,20,84,32,68,45,66,89,10 
DATA 80,58,04,20,49,32,33,02,18 
DATA 87,01,67,93,2b,41,03,18,2# 
DATA 02,07, fe,5e,08,02,bo,68,c0 
DATA 99,38, 00,14,83, 28,78, 58,50 
DATA 00,43,95,05,81,84,00,04,04 
DATA fb,eb,7a,46,00,06,61,82,68 
DATA 27,70,93,80,00,23,00,18,34 
DATA 20,80, 26,88,90,c0,ef,eb,0d 
DATA 03, 20, 22,e2,90,07,50,08,0c 
DATA 02,be,16,b1,56,70,00, 50,65 
DATA €7,28,18,£0,06,88,26,04,05 
DATA 00, 58,08,38,44,50,19,57,03 
DATA 16,03,05,1e,1b,do, ff, 92,40 
DATA 70,66,08,00,0£,10,03,60,01 
DATA 53,87,59,15,80,53,00,00,43 
DATA 82,99,0f,11,36,36,61,05,a8 
DATA e0,31,47,e0,5b,ee,c1,01,af 
DATA 45,b0,1e,30,24, fe,bb,09,, 
DATA 41,02,6f,08,9e,e0,61,40,59 
DATA 50,52, £0,bc,60,86,01,87,37 


2 DATA £1,40,08,02,e0,b0,01,e4,e3 


DATA 94,56,80, 08, 58,72, 90,5b,bO 
DATA c0,e1,4b,15,e1,3,98,30,c0 
DATA b3,a7,45,b,41,2b,cB,02,02 
DATA 16,52,07,07,30,26,b6,1b,be 
DATA 27,61,20,00,8b,31,60,82,07 


DATA 90,6b,84,9b,c1,88,df,0b,0f 
DATA 5e,68,7f,£f,b£,67,0b,04,1f 
DATA 68, fe,ff,df,b4,03,38,74,82 
DATA 19,81,88,25,07,93,88,, 
DATA f0,18,84,81,53,e8,b7,28,60 
DATA 03,f2,81,f0,94,40,c0, 26,32 
DATA 0d,80,03,7£,80,63,c0,82,09 


DATA 18,78,08,7e,01,f0,14,78,03 


DATA £0,01,68,62,50,93,b4, 11,01 
DATA £8,70,07,00, f0,36,01,f° 
DATA 07,66,00,64,96,0£,80,32,ed 
DATA 67,7a,80,67,c4,e2,01,44,78 
DATA 40,06, 18,40, 80,97,16,97,£0 


$ DATA oe,e2,14,50,60,00,03,80,24 
3) DATA 79,0f,4b,1e,d0,88,07,34,e1 


DATA 05,89,e0,74,08,78,10,00,78 


© DATA 50,03,1e,00,03,30,58,2%,41 


DATA ea,03,cf,de,10,54,40,41,ea 
DATA 01,08,00,34,80,39,b0,02,55 


; DATA 0d,e0,06,00,0f,7b,aB,1e,eO 


DATA £e,00,39,40,10,66,86,10,50 


) DATA 80,00,37,9b,ee,e0,f0,8d,0f 


DATA 62,87,10,99,e0,43,e0,c2,00 
DATA aP,4a,24,48,35,94,3e,83,11 


| DATA 00,10,87,24,82,20,03,64,80 
\ DATA 0d,fc,1P,21,28,78,e0,91,13 


DATA e0,09,08,49,d0,c4,84,00,37 
DATA 80,2c,57,b2,8f,82,60,82,b3 
DATA 3e,34,61,02,96,75,15,08,78 
DATA 13,36,e0,01,7e,68, f4,e4,00 
£ DATA 30,52,00,87,48,a0,0f,00,7f 
DATA- 20,44, 21,94,23,21,0f,34,1b 
DATA c2,23,03,20,58,16,9f,0f,04 
\la7s sa DATA c1,9e,65,74,00,68,19,38,10 
DATA 83,62,10,e0,ad,c5,fa,d0,1a 
5 DATA e4,d0,85,01,7e,30,9e,7b,85 
1481 PL DATA 45,96,00,00,18,83,64,58,fd 
a2 Up DATA 65,86, 0,11,99,05,ef,42,c4 
183 vt DATA 05,72,18,33,10,7f,60,0f,04 
1484 x DATA 89,00,00,96,86,44,03,39,91 
185 
1488 
187 


DATA 58,82, fe,24,43,63,14,46,09 

DW DATA 78,78,07,61,47,48,80,91,03 
DATA 80,60,78,b0,00,73,81,07,e1 
AP DATA e5,08,09,7,bc,17,06,78,06 
D DATA 39,52,60,16,08,76,78,43,07 
DATA 68,04,50,82,8?,00,38, 70,12 
DATA Of, 21,80, 7e,2b,20,00 
DATA 3a,04,06,66,04,ff,95,58,63 
DATA 60,00,83,96,47,0d,12,d6,a0 
DATA 03,3, te,9e,0£,60,85,01,11 
DATA 30,65,98,61,78,60,13,24,0 
DATA 4o,e8,01,£b,b0,0b,00,01,bb 
DATA 40,87, 82,32, 28,60,80,87,57 
DATA 02,00,#3,62,67,82,07,57,87 
DATA £#,84,20,03,93,82,07,a8,95 
DATA 83,77,01,22,66,06,03,75,1 
DATA e1,e0,78,19,87,2t,e3,20,te 
DATA b4,63, 20,60,bd,14,32,be,19 
DATA 8f,e7,1,60,26,08,03, 81,0 
DATA bb, 7f,86,19,8,e3,£8,ec,04 
DATA £2,90,41,45,e2,25,00,34,13 
DATA £9,70,83,£7,f1,fe,7e,3,07 
DATA be,4d,74,02,83,c,fo,d0,02 
DATA f8,ne,0e,1d,5a,5e,0a,19,de 
DATA 00,02,28,£2,80,54,08, 25,20 
DATA 20,#b,56,42,00,04,6f,80,07 
“ DATA e3,90,20,41,33,68,40, 20,32 
| DATA bf,84,81,25,28,88,81,f8,0d 
DATA 66, 20,01,32,07,22,96,5d,18 
DATA 24,05,20,0d,60,06,02,84,97 
DATA 36,19,01,14,da,7?,20,62,c0 
DATA 16,75,07,04,20,30,83, 08,10 
DATA ac,f8,23,02,05,03,58,24,19 
DATA 0£,77,92,02,78,80,3£,87,b6 
DATA ££,00,12,e0,32,0f,80,18,12 
DATA 87,00,32,00,?,18,00,1a,c0 
DATA ff,01,9,£0,07,01,2£,93,59 
DATA 52,7£,62,50,4a,be,e1,08,0f 
DATA 68,00, fb,1e,£0,20,62,01,1e 
DATA 93,09,00,f7,80,59,28,4e,e0 
DATA 16,05,04,68,42,03,1a, 12,80 
DATA 46,30,20,05,0f,68,00,03,1a 
DATA £0,03,12,45,10,54,a0,E?,ff 
DATA £2,20,4e,d4,21,08,00,28,47 
DATA 11,00,23,51,5%,e6,a0,e1,ec 
DATA 06,30,55,19,26,53,82, 62,00 
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DATA a2,25,00,4e,e4,20,b2,00,68 
DATA 09,00,nd,00,9e,24,07,45,00 
DATA be,46,0e,2a,86,00,e6,1c,ea 
DATA d4,4a, fe,1n,04,84,20,08,06 


ISESBEE 
EREIEE 


= 
53 
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DATA 16,35,22,08,41,26,04,a2,81 
DATA 01,40,10,44,84,n0,60,06,45 
DATA 01,78,44,08,70,68,b4,50,83 
DATA 28,01,81,45,06,30,84,20,36 
DATA 06,38,35,46,28,41,54,0d,58 
DATA 68,56,50,83,66,1a,68,d4,a0 
DATA 7e,06,84,35,88,aB,41,55,06 
DATA 90,90,83,86,12,ae,d4,80,cc 
DATA 06,95,06,20,40, 16,06, 18,e0 
DATA a0,02,06,00,35,72,88,41,8c 
DATA 04,96,22,07,16,00,07,92,35 
DATA ba,8,02,08,04,20,02,42,00 
DATA 40,19,85,a0,eb,8,02,00,01 
DATA 00,00,03,2,26,90,80,00,00 
DATA 00,03, eb,00,00,18,34,00,00 
1550. Na DATA 03,12 

(C) 1989 maT 


Listing. »VirusControl« macht 
Schluß mit Viren aller Art (Schluß) 
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Geräteinspektion 


Wollten Sie auch schon in einem Pro- 
gramm testen, ob ein externes Laufwerk 
oder eine Festplatte angeschlossen sind? 
Ein Kinderspiel mit »TestDev.h«. 


I mmer, wenn ein Programm zum Speichern auf ein anderes als 
das interne Laufwerk zugreifen möchte, sollte getestet werden, 
ob das entsprechende Laufwerk tatsächlich vorhanden ist. Bei 
den maximal vier Diskettenlaufwerken stellt dies ja noch kein Pro- 
blem dar: 
#include <devices/trackdisk.n> 
struct IOExtTD testReq; 
LONG DRIVE1 = GADGDISABLED; 
1f(}(OpenDevice("trackdisk.device”,1L,&testReq,OL) 
)) 
{ 

CloseDevice(&testReq); 

DRIVE1 = OL; 
) 


In diesem Beispiel wird für eine spätere Gadget-Abfrage das 
Flag für die Darstellung als »Ghost«-Gadget gesetzt und, wenn das 
Laufwerk vorhanden ist, wieder gelöscht (OL in der letzten Zeile). 
Für die vier Laufwerke müssen in der IF-Abfrage Werte zwischen 
OL und 3L eingesetzt werden. 

‚Alles schön und gut, aber eine Festplatte oder das RAM kann so 
nicht getestet werden, da sie nicht über das trackdisk.device ange- 
sprochen werden. Da aber jedes angeschlossene und gemountete 


Programmname: TestDev.h 
Bemerkung: Nur zum Einbinden 


Dieter May 


ZERO) /* Tnetude-Dai 
vorgegebenes 


TestDey(device) 
char "device; 


= 


Be 38er z Listing 2. 
»TestDev.h« testet das 
Vorhandensein von 


(C) 1989 MET Devices (Geräten). 


Device beim Start des Amiga in eine Liste eingetragen wird, ist es 
am einfachsten, in dieser Liste nach dem entsprechenden Device 
zu suchen. 

Die Amiga-Entwickler haben es aber nicht leicht gemacht, die re- 
levanten Daten zu finden. Ein Programm muß sich zuerst durch 
mehrere Systemlisten hangeln. Der Weg führt über DOSBase, 
RootNode und Dosinfa hin zur DeviceList. Deren Definitionen kann 
der interessierte Programmierer der Include-Datei »libraries/dosex- 
tens.h« entnehmen. 

Dort angekommen, kann die in der Include-Datei »libraries/file- 
handler.h« definierte Struktur ausgelesen werden. Hierbei offen- 
bart sich ein weiteres Hindernis. Einige der Zeiger sind BCPL- 
Zeiger (BPTR), die erst umgerechnet werden müssen. Dazu dient 
die Definition in Zeile 15 in Listing 1, die das BOPL-Format durch 
Multiplikation mit dem Wert 4 in das übliche C-Adreßformat um- 
rechnet. In der while-Schleife wird das Element »dn_Type« durch- 
sucht und mit der Konstanten »DLT__DEVICE« verglichen. Nur 
wenn der Vergleich positiv ist, wird der Eintrag weiterbearbeitet, Da 
hier noch andere Knotentypen stehen, wir aber nur nach echten 
Devices suchen, werden die anderen Typen so übergangen. 

In den Zeilen 25 bis 29 wird der so gefundene Name in einen O- 
String umgewandelt. Hierzu eine kurze Erläuterung: Bei einem 
BCPL-String gibt das erste Byte die Länge des Strings an, die fol- 
genden Bytes sind die einzelnen Zeichen. Ein C-String dagegen 
wird durch ein Nullbyte abgeschlossen. Der so gewonnene String 
wird in Zeile 33 mit dem beim Aufruf der Unterroutine übergebenen 
‚Ausdruck verglichen. Stimmt der Vergleich, kehrt die Unterroutine 
mit dem Ergebnis TRUE zurück. Beim Aufruf von TestDev muß das 
zu suchende Device ohne Doppelpunkt übergeben werden. Wie 
das Ergebnis, das TestDev liefert, später vom Hauptprogramm aus- 
gewertet wird, hängt ganz allein von Ihnen ab. Auf alle Fälle verfü- 
gen Sie nun über eine Kontrollmöglichkeit, die das Vorhandensein 
eines Devices anzeigt. Dieter Mayer/kn 


Programmname: Demo.c 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: C 
Compiler: Aztec-C V3.4, V36 
Aufrufe: CC Demo +L-S 
LN Demo. -LC32 


en, ob ein bi 


Mayer 


Listing 1. 
»Demo« zeigt die 
Anwendung der 
Header-Datei 
»TestDev.h« 


ited device: $a\n”,EntryLil)s 
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Roıs 


Dämmerung 


Schöne Effekte versüßen das Arbeiten und Spielen am Computer. 
Das Ein- und Ausblenden von Bildern gehört dazu. »Fade« erledigt das für Sie. 


= 
(0) ffnet ein Programm einen neuen Bildschirm (Screen), er- 


scheint dieser schlagartig auf dem Monitor. Manchmal 
wünscht man sich aber ein weiches Einblenden. »Fade« 
besteht aus zwei C-Routinen, die genau das bewirken. 
Zunächst zum Ausblenden. Die Routine heißt »FadeOut«. Sie 
verlangt folgende Parameter: 
— sc: Ein Zeiger auf den auszublendenden Bildschirm, 
— Time: Die Verzögerung beim Vorgang in 1/50 Sekunden. 
Je größer Time ist, um so länger dauert das Ausblenden. 
„Das Gegenstück zu »FadeOut« ist »Fadeln«. Es verlangt drei 
Übergabeparameter: 


EC -L Fade. 
CC Fade +L 
LN Fade.o-1C32 


‚Aufruf Aztec-C-Compiler: 


— sc und Time: wie bei FadeOut 
— Colors: Zeiger auf eine Farbtabelle 

»sC« und »Time« haben dieselbe Bedeutung wie bei »FadeOut« 
beschrieben. Die Farbwerte in »Colors« geben die zu erreichenden 
Werte an. Dafür muß für jede Farbe ein Wert in einem Feld von 
UWORD-Variablen vorhanden sein. A. Schwarzhaupt/R. Beaupoil/kn 


Programmname: Fade 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: C 
Bemerkung: siehe Text 


rogrammautor: Andreas Schwarzhaup 


1360 /* Demo.c : Demonstriert die Funkt: 
2ul&  (bersetzbar nit Azteo 
3 KA written in 1989 b; 
4190 #include <intultion/t: 
t IntuitionBase 
struct GfxBase *Gfxl 
deout () : Fadeout e 
Parameter : Zeige: 
Dauer des Fades (2) #/ 
10 it0 void Fadeout (sc, Time) 
41 70 struc reen #: 
42 KH BYTE Time; 
238 | 
14 ns2 
15 18 
16 su 
17 30 


Andreas 


BOOL AllBlack; 


WORD Color, 7 
Col = se->Vi 
Bye AllBlack = FA 
19 AX, while (taıı 
20 | 

21 xB8 ALLBlack 
22.60 for (1 
23 Im { 
24 ec 


25 5mF 
26 220 
27 26 
28.98 
29 
30 me 
3LWrt 
32 S5F 
33 RC 
34 KFF d 
35 Qkc Set 
36 258 

37T IR 

wen | 
39.80 | 
4OWE /* Fed 
41.523 
42. 9EF 


B4 (kso->ViewPort, i 


] 
Delay (Tine); 


Ver 
Zeiger auf Seren, 
Dauer de: 


Parameter : 


Fades, 


FadeIn (sc. 
45.802 strut Sereen *. 
@65p= BYTE Tine; 

37 Ce WNORD *Colors; 
en | 


Listing. Die zwei Routinen »Fadeln« und FadeOut« mit Demoteil. Bitte mit dem Checksummer (Seite 143) eingeben. 


29 502 


» bu u, gw, by, Col; 


IGB4 (sc->ViewPort.ColorMap, 


>>; 
(m<<8)) >>4; 
v<<ö)-(w<<ä); 


SERKERER 
BEREEH 


= 
8 


un 9b) 


t Library *)OpenLibrary(”graphies.1ibr 


73 *)OpenLibrary("intuiti 


‚tionBas: 
->Vie 


„Colorlap, 1); 
0); 
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Ein großes Plus des Amiga sind die Fen- 
ster. Viele Informationen lassen sich so 
gleichzeitig darstellen. Doch wie kommt 
man schnell und einfach an das hinterste 
Fenster? »Shuffle« gibt Ihnen die Antwort. 


in Programm nimmt Ihnen die Arbeit ab, Fenster nach hin- 

ten zu klicken oder zu schließen. Außerdem steckt in dem 

Listing »Shuffle« hochinteressanter Stoff: Es handelt sich 
nämlich um einen Input-Handler. »Shuffle« (mischen) hängt sich 
hinter das Input-Device und vor die anderen Programme. Drückt 
man die Taste <Help>, legt es das nächste Fenster nach oben, 
über dem der Mauszeiger steht. Sie müssen also nicht alle Fenster 
»durchblättern«, bis Sie zum -gewünschten gelangen. Außer 
<Help> erkennt Shuffle noch die Tastenkombination <rechte 
Amiga Esc >. Damit schalten Sie das Programm aus. Es wird kom- 
plett aus dem System herausgenommen. 

Doch wie macht man so etwas? Anhand des Listings erläutern 
wir es. Einige Dinge sind wichtig, wenn man ein Programm wie 
Shuffle schreiben möchte. Zunächst stellt sich die Frage, wie man 
einen Hintergrundprozeß startet. Bei Verwendung des Aztec-C- 
Compilers verwendet man hierfür zusätzlich zu den benötigten C- 
Bibliotheken noch »Idetach.o«. Damit dies funktioniert, benötigt 
das Programm noch zusätzliche Informationen. Die Variablen fin- 
den Sie in den Zeilen 76 bis 79. 

Das Programm läuft also im Hintergrund. Als nächste Aufgabe 
steht das Auswerten von Tastendrücken an. Zunächst brauchen wir 
eine Struktur, die die Adresse unseres Tasks sowie die Signale und 
die entsprechenden Nummern enthält. Diese Struktur heißt 
»GLOBAL_DATA« und wird in den Zeilen 15 bis 22 definiert. Die 
verwendete Struktur hat dann den Namen »global«. Das Eintragen 
der Werte in die Struktur erfolgt im Hauptprogramm in den Zeilen 
109, 119, 123, 124 und 128. Um die Task-Adresse zu ermitteln, ver- 
wenden wir die Funktion FindTask(OL) (Zeile 109). Für die Bele- 
gung der Signale gibt es die Funktion AllocSignall() (Zeilen 119 und 
124). Der Parameter -1 besagt, daß wir keine spezielle Tasknummer 
wünschen. Das Bit wird dann einfach durch Verschieben des Wer- 
tes 1 gesetzt (Zeilen 123 und 128). Die Struktur »global« ist jetzt voll- 
ständig gefüllt. 

Die nächste erforderliche Struktur ist »handlerStuff« (Zeile 105). 
Es handelt sich dabei um eine Interrupt-Struktur. Diese wird nun in 
den Zeilen 137 bis 139 gefüllt. Als erstes kommt der Zeiger auf die 
schon definierte Struktur »global«. Es folgt ein Zeiger auf die 
Interface-Routine (»Handlerinterface«). Sie ist in Assembler ge- 
schrieben, da die Parameter in den Registern AO und A1 geliefert 
werden. Damit kann aber die eigentliche Interrupt-Routine nichts 
anfangen, da sie in C geschrieben ist. Die Registerinhalte werden 
auf den Stack gelegt und die Funktion »myhandler« aufgerufen. 
Die letzte der Zeilen setzt die Priorität des Interrupts. In den Zeilen 
144 bis 146 binden wir unseren Interrupt-Handler ins System ein. 

In der »Endlos«-Schleife erfolgt die Auswertung eines aufgetrete- 
nen Signals. Mit der Funktion Wait() legen wir Shuffle schlafen, bis 
ein Signal empfangen wird. Erhalten wir das Signal zum Beenden, 
verlassen wir die Schleife und geben die vom System angeforder- 
ten Bibliotheken, Signale etc. wieder frei. Danach endet unser Pro- 
gramm. Empfangen wir jedoch das Signal für Aktion, holen wir das 
nächste Fenster nach vorn. 

Die eben erwähnten Signale erhalten wir von der Routine »my- 
handler« (Zeile 29 bis 71). Hier erfolgt die Auswertung der gedrück- 
ten Taste. Handelt es sich um die Tastenkombination <rechte Ami- 
ga Esc>, schicken wir das Signal zum Beenden. Ist es die 
<Help>-Taste, geben wir das Signal zur Aktion. Trifft keiner der 
beiden Fälle zu, geben wir den Zeiger auf die Event-Liste zurück. 
Dadurch kann der nächste Handler arbeiten, als wäre nichts pas- 


siert. 

Natürlich können Sie statt des Blätterns der Fenster auch andere 
Dinge erledigen. Achten Sie jedoch unbedingt darauf, daß Ihre 
Routine so wenig Zeit wie irgend möglich benötigt. Das ist wichtig, 
damit das System nicht unnötig belastet wird. Falls Ihnen die Ta- 
stenbelegung von Shuffle nicht gefällt, ändern Sie diese in den 
Zeilen 12 bis 13. 

Shuffle arbeitet mit den Fenstern des aktuellen Bildschirms. Da- 
durch ist es universell einsetzbar, auch in Programmen, die einen 
eigenen Screen öffnen. ‚Rene Beaupoil/kn 
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Programmname: Shuffle 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: C 
Compiler: Aztec-C V36 
Aufrufe: CC Shuffle +C +D +L 
LN Shuffle.o Idetach.032 -LCL32 


Stefa: 


er 


deeml anne» #8 GLOBAL VARIA 


/ 
IS F% typeder 


80 uam 
eeSignal( 
2000 vom 


26 OK /unknannnnnreeneee 


a, 
27 Ca /* Die Hand! 
wird a/ 


EISEN URIETTERUPPURFPPPUFELEELEEFTELELELRELTTTTTLLTTTLTTLLLEETL TG 


we, 


% 


SUHL, register GLOBALDATA "gäp 


nen %/ 


Kern 


‚base.h> 
TS) 


/* Tastencode für Eso-Taste 


/* Tastencode für Help_Tast 


Peer 


/# Adresse des warte 
/% Signal un Handler 


/* Signal Nr, für Fr 


/* Signal zun Blätte 


ActionSigNr; /# Signal Nr. für Fr 


Ik; 
RR 


ine, die vom Handlerinter! 


face aufgerufen 


ler(ev, gdpt: 
/* Poln 


auf die Eventliste 


/* Alle benötigten Infornatio 
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Tooıs 


ATTERN,,. 


47 210 
48 Ka9 
918 
0 l 
1 eR6 else 
52 9 
53°D 
54 gib 
55 pI6 { 
565 


TECLASSLR 
ker) 


bearbeiten 


S7.uX 
5851 
59 dIE 
‚60 nat 
(61 nr laste-> 1e_Nex = ep->1e_Nextävent; 
62 5x0 /# Signalisiere, Windowpop */ 

63 Km Signal(gäptr->TaskToSig, gäptr->Actionsig); 
62% 
65.89 
66 390 
67.589 } 
68 666 1 

69 K63 


iste an den nächsten Handl 


70 My 

71.98 

Tora ne nn en R ENTERUL ROUTIES men Harn 
“ 

73 Te struot Intuitionbase #1: 

Tu ge LONG LayersBase = WW 

MESHE /* für die detach Funktion v. 

76 07 LONG 

72.99 Loc 

78 sa LONG 

79 6 char 

80 UR HandlerInterface() 

am | 

8286 »asn 

BB TKE, moven.L aoyaı, 

®4 1 Jsr „nynanaı 

Bo va adäg.L #8,. 

56 2u0, #endasn 

87 Pu | 

AB TA Oleanup() 


onBese = NUL 


=U 13.68 notwendig #/ 
000; 


89a | 
GOdKE 1F(inputkequestBlock)CloseDevise(InputRequestBlock) ; 
Sr arlı tionBase); 


SON if(LayersBase 
93.49 if(global.Actionst, 
SC Aflglobel.quits 
E23 Af(inputRequestB! 
G6 el 1F(inputDevPort 
97240) 

BB ODE en ne/ 
99 IK /* Das main-Program für Shuffle #/ 
100. 0b Yen / 
AOL TEE void mein() 


AnputDevPort) 


10203 | 

103 tn3 LONG X_Coord = 0, Y. naten im Sc 
seen #/ 

W042 vos 

105 05 

106 Nu 

207 11 Layer 

108 25 wii 

409 DA „TaskTosig 

110.xZ SetTaskPri( global.Tı ; 

E18 1F ((InputDevPort = CreatePort(0L,0L)) i 
nput device #/ 

2 { 

113 5P6. CleanUp(1); 

wa 


= CreateStäl0(inputDevPort)) 


BEE giotal.aetionsig = 1 << global.AetionsigNn; 
DIR 1? ((LayereBase = (LONG) OpenLibrary(*layers, library’ 


‚se = (LONG) OpenLibrery(”Intuition.libre 


s_0ode 
handlerStuff.is_Node.In_Pri 
if (OpenDevice( "Input.device”,OL, inputRequestBlock,0L)) 


>10_Command 
‚ek->10_Data 


BesBasıEes 


149 006 /* Let's we! 1 vom Han 
450 pü sig = Veit( globel.QuitSig | global.Actionsig); 


155 p89 Diseble(); 
156 Rq /% Hole 1 


Pointer #/ 
jase->ActiveSoreen->LayerInfo) ; 
Info für andere Tasks */ 


fo freigeben ®/ 
fo(14); 


Home /* Aufräum Arbeiten ®/ 

ZBLKBL inputiequestBlock->10_Command = IND_REMHANDLER; 
18200. inputRequestBlock->10_Deta (APTR) &handlerStuft; 
so Doloti: 
BES Cleantpl 
225.200 | 

(C) 1989 MET 


Listing. Verdeckte Fenster? »Shuffle« bringt das 
gewünschte Fenster schnell und problemlos nach oben. 
Bitte mit dem Checksummer (Seite 143) eingeben. 
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Das Arbeiten mit numerischen Feldern in 
‚Amiga-Basic verschlingt viel Zeit. Das muß 
nicht sein. Ein kleiner Umweg macht Ihre 
Programme wesentlich schneller. 


von Rene Beaupoil und Matthias Rustler 


den Süden zu kommen. 

— Der kurze Weg quer durch die überfüllte Stadt. 
— Der längere Weg über den Autobahnring, auf dem man (außer 
in der Urlaubszeit) flott vorwärtskommt. 

Im zweiten Fall kommen Sie schneller ans Ziel. Die Basic- 
Subprogramme von »Felder« machen Ihre Programme etwas län- 
‚ger, beschleunigen sie aber erheblich. Der Trick an der Sache ist, 
daß sich Zeichenketten (Strings) schneller manipulieren lassen als 
numerische Felder. Doch wie wandelt man diese Felder in Strings 
um? Das Betriebssystem hilft uns. 

Der benutzte Befehl stammt aus der »exec.library« und heißt »Co- 
pyMem()«. Er kopiert einen beliebig langen Speicherbereich in ei- 
nen anderen. Die Subprogramme kopieren also numerische Fel- 
der in eine Zeichenkette und nehmen dort die gewünschte Manipu- 
lation vor. Anschließend kopieren Sie den String wieder zurück. 

Um die Routinen zu verwenden, müssen Sie sie zu Ihrem Basic- 
Programm hinzufügen. Dies geschieht mit dem Befehl MERGE. 


E s gibt zwei Wege mit dem Auto vom Münchner Norden in 


Der schn 


Außerdem muß im selben Verzeichnis, in dem Amiga-Basic und 
das Programm steht, auch die Datei »exec.bmap« vorhanden sein. 
Diese Datei finden Sie auf Ihrer Extras-Diskette im Verzeichnis 
»BasicDemos«. 
Es stehen Ihnen sechs Routinen zur Verfügung, die nun einge- 
hend besprochen werden. 
DD FastLoad FastLoad feld%(), "Name”,puffer 
Diese Routine lädt Werte aus einer sequentiellen Datei indas an- 
gegebene Feld. Der Parameter »feld%()« ist der Name des numeri- 
schen Feldes, das Sie benutzen. Mit »Name« gibt man den kom- 
pletten Zugriffspfad für die Datei an. »puffer« bestimmt, wie groß 
der Speicherbereich ist, der zum Laden verwendet wird. Je größer 
dieser Wert ist, um so schneller wird geladen. Andererseits ver- 
braucht dies auch mehr Speicher. 
DO FastSave FastSave feldg(), "Name”,puffer 
Dieses Kommando ist das Gegenstück zum Befehl »FastLoad«, 
Die Parameter haben dieselbe Bedeutung. 
0 Init Init feld%() ‚anfang,ende,wert 
Hiermit initialisieren Sie das Feld »feld%()«. Normalerweise sind 
alle Feldelemente 0. Sie können jedoch einem beliebigen Teil einen 
bestimmten Wert (»wert«) zuweisen. Dies geschieht vom Element 


‚Felder 
‚A500, A1000, A2000 mit Kickstart 1.2 


Programmname: 
Computer: 


Sprache: Amiga-Basic 1.2 
Se er ai 
Bemerkung: siehe Text 
Programmautor: Matthias Rustle: 


W460 LIBRARY "exec.Library” 

CLEAR, 30000 

DIN p%(1500) 

PRINT "Initialisieren mit der neuen Routine” 
VeTIMER 

Init p%() ‚0,1500,300 

\meTIMER-v 


at 
age 
Ker, 
5 tk 


GOSUB Printri 
PRINT Mt 
PRINT 
PRINT, "Einfügen mit der neuen Routine” 

VeTIMER 

Insert p&(),750,55 

VneTIMER-v 

PRINT "Einfügen normal” 

veTIMER 

FOR 1=1500 TO 751 STEP-1:p£(1)=p$(4-1) :NEXT 
p3(750)=55 

VosTIMER-v 

GOSUB PrintFeld 

PRINT Mit Fold-Routinen zirka “vo/n” mal schnellen” 
PRINT 

PRINT “Löschen nit der 
VeTIMER 

Del p%(),10,12 
VneTIMER-v 

PRINT "Löschen normal” 
VeTIMER 

FOR 1210 70 1498:p2(4)=p£(1+2):NEXT 


‚Routinen zirka "ro/m” mal schneller” 


neuen Routine” 


35 ik | GOSUB PrintFeld 

36 iU| PRINT "Mit Feld-Routinen zirka "vo/m” mel schneller” 
AR xa PRINT 

38 70. PRINT “Suchen nit der neuen R 

SORT veTIMER 

40. Pf Search p%(),0,55,x% 

AR SB | Vn=TINER-v 

22.90 | PRINT “Suchen noras1” 


v=TIMER 
FOR 1=0 TO 1500 
NEXT 1 


P%(1)=55 THEN rır 


'vo/wm* mal schneller” 
NT "Drücken Sie de: 
WEILE MOUSE(0)=0:WEND 
SP cıs 
ERASE pf 
g«6022 
DIN pre) 
FOR x=0 70 300 STEP 10 
(2,0)-(300-x,150) „RM 


linken Mausknopf” 


(0,0)-(300,150) ‚px 

LOCATE 20,5 

PRINT "Speichern mit der neuen Routine” 
VeTIMER 

FastSave p3(), "Bild”,4000 


ca "vo/yn“ nal schneller” 
‚40 


Fastload pf(), "B114”,4000 
n=TINER-v 
LOCATE 21,40 


LOCATE 22,40 
Zirks "vo/wm” mal schneller” 


 (320,0),p£ 
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lle Umweg 


»anfang« bis zum Element »ende«. Wollen Sie keine Werte ändern, 


lautet der Aufruf: Init fe1d$,0,0,0 


DO Insert Insert feld%()‚position,wert 

Das Einfügen von neuen Werten in das Feld geschieht schnell 
und einfach. Mit »position« geben Sie den Feldindex an, an dem 
das neue Element stehen soll. »wert« stellt den einzufügenden Zah- 
lenwert dar. Die nachfolgenden Feldelemente werden nach hinten 


verschoben. 


O Del Del feld%() ‚anfang,ende 

Löscht beliebig viele Feldelemente. Die dahinterliegenden Ele- 
mente werden um »ende-anfang«-Stellen nach vorne verschoben. 
»anfang« legt das erste zu löschende Feld fest. Mit »ende« be- 


stimmt man das letzte zu löschende Element. 


U Search Search feld$() anfang,wert,ergebnis® 

Oft sucht man nach einem Wert und benötigt den entsprechen- 
den Feldindex. Damit die Routine flexibel ist und nicht nur den er- 
sten Wert findet, legen Sie mit »anfang« den Index fest, ab dem ge- 
sucht wird. Der zu suchende Wert wird im Parameter »wert« über- 


geben. »ergebnis%« liefert zwei Werte als Ergebnis: 


— Bei erfolgreicher Suche enthält »ergebnis%« den Index des 


Feldelements, das den gesuchten Wert enthält. 


95\BR | LIBRARY oLose 
96.1 mm 

7 8A Printfeld: 
98 mE PRINT "Index 
39 FN FOR a=0 10 15 

100 DX2) PRINT USING "es", 
301 $n0 nExT 

102 07 PRINT :PRINT "Wert: *; 
303 IR FOR a=0 10 15 

304 WW2L PRINT USING "et ##";p£( 
09 nnO NEXT 

106 Au PRINT 

107 5h RETURN 

108 60 SUB Fastload (f4(),File$,pufflg) ST 
109 20 VLR=2 

110 Bx IF pufflg<1 THEN purelge1024 

All ja OPEN File$ FOR INPUT AS ı 

2 ep2 1okf«0 

3 CD 1gesgeLor(ı) 

114 85 IF (UBOUND(EE)+1)RVLE < 1ges$ THEN 
11528 WHILE Iokf<igest 


ROR 9 


16 654 IF 1gest-lokf<puffig THEN pı ‚gest-1ckf 
ur aM 2$=INPUTS(puff1%,1) 

318 IR CALL Copytten(SADD(2$) ‚VARPTR(L%(0))+Lck$,puff1$) 
19 67 Iokf=lokf+puffig 

120 NB2 END 


asia 292"” 

122 nNO CLOSE 1 

123 13 END SUB 

124 T1 SUB FastSave (fF( 
125 10. V14=2 

126 RD. IF pufflg<1 THEN puffl4e1024 
127 Pb OPEN File$ FOR OUTPUT AS 1 
128 U92  1okk=0 

129 2D 1gesg=(UBOUND(FF)+L)RVLE 
130 HL 28=STRINGS(pu£f1g,cHRg(0)) 
131 PO WEILE Iokk<igesz 
132 M4 IF iges$-Icki<pi 
133 ih CALL CopyNen(Vi 


f18) STATIC 


% THEN puffifelgesg-lokf 
IR(15(0))+lok$,SADD(2$) ‚puff1g) 


134 sr PRINT #1,LEFT$(2$,puf?18); 
135 8 1ckß=lokf4puffig 

136 AR? vEND 

1370  z8=”" 


138 2n0 CLOSE ı 
139 HJ END SUB 
140 80 Init (f£() vong,bist,wertz) STA 
um v 
a42 35 

143 ni IF vonf>bisg 


344 06 Testef£(vong) 
145 0E #% (bis) 
146 Ve, 1F=(bis$-vong+1)#VLz 


| Tooıs 


— Konnte der Wert nicht gefunden werden, liefert »ergebnis%« -1. 
In der vorliegenden Version arbeiten die Subprogramme mit In- 

tegervariablen (2 Byte). Wenn Sie andere Datentypen verwenden 

wollen, müssen Sie folgende Änderungen vornehmen: 

— Das Typkennzeichen der Variablen muß geändert werden. Das 

jetzt vorhandene Zeichen »%« muß durch eines der folgenden er- 

setzt werden. 

&: lange Ganzzahl, 4 Byte 

!; Fließkommazahl, einfach genau, 4 Byte 

#: Fließkommazahl, doppelt genau, 8 Byte 
— »VL%« muß die Zahl der Bytes je Feldelement enthalten. 

— Die MKI$-Funktionen müssen, dem Typ entsprechend, in MKL$ 
(lange Ganzzahl), MKS$ (einfach genaue Fließkommazahl) oder 
MKD$ (doppelt genaue Fließkommazahl) geändert werden. 

Da Zeichenketten in Basic maximal 32767 Zeichen groß sein 
dürfen, sind die Routinen auch auf diese Länge beschränkt. Die 
maximale Anzahl der Feldelemente ergibt sich aus 32767/VL%. 
Ausnahmen bilden die Routinen »FastLoad« und »FastSave«. Hier 


«sind bis zu 32767 Feldelemente erlaubt. 


Listing 1 zeigt Ihnen den Geschwindigkeitsvorteil. Dies sind na- 
türlich keine fixen Werte, da es von verschiedenen Faktoren ab- 
hängt. Aber Faktoren bis zu 20 treten durchaus auf. Die Zeilen 2bis 
107 können Sie durch Ihr eigenes modifiziertes Programm erset- 
zen. 

Einen Nachteil hat das schnelle Autobahnfahren natürlich; Der 
Benzinverbrauch ist höher. Bei dem Programm ist es analog: Der 
Speicherbedarf bei Verwendung der Routinen ist höher, Aber so 
lange Sie genügend Sprit haben... kn 


UT EG 29=WK 
148 OT WEILE L 
WIer2 1pezir2$ 
150 xfO WEND 
AL eL| z3=28+LEFTS(2$,18-LEN(2$)) 
152 JU CALL CopyMem (SADD(2$) ‚VARPTR(F(vong)) 1%) 
Bang 23." 
154 WE END SUB 
159 32 SUB Insert (14()‚ps$,wertg) 
1s6 nl VLf=2 
157 ar Test=fs(psg) 
138 Bu IF ps£<UBouND(rg) 
JBOUND(1E)-psg+1)&vL£ 
160 18 2$=STRINGS( 
361 mu CALL CopyNen(VAR 
162 3n  CALL CopyNen(SaDD(2$),VARPTR(£%(ps#+1)) 18-VLE) 
163 250 zn IF 
164 yr ei 
169 W2 tA(pst)zw 
166 ik END SUB 
167 KQ SUB Der (£4()von,bis$) STATIC 
AB ux VL4=2 
189 kW IF bisf=0 THEN bis$=UBOU 
170 D9 IF vonf>bis$ THEN SW 
I eX | Test=FR(vons) 
AT2 üf Testef£(bis$) 

Inf= (bis$-vonf+1)"VL 


176 N9 CALL CopyNem(VARPTR(f%(von$)) ‚SADD(2$),1%) 
77 te 2$=NID$(2$,Inf+L)+STRINGS(Ing,CHRS(0)) 
178 9 CALL Copylen(SaDp(2$) ‚VARPIR(fX(vong)),1%) 
179 06 25="" 

180 47 END SUB 

181 0k SUB Search (f%()‚abS,wert$,ps$) STATIC 
182 DB v13«2 


AB& Sa | 142 (UBOUND(PE)+L)RVLE 
185 8X ppSeabfAVLg 


186 eh 23-STRINGS(18,CHRS(32)) 

187 2p L CopyMem(VARPTR(?$(0)) ‚SADD(z$) ‚18) 
Listing. 
Machen Sie mit 
»Felder« Ihre 


Basic-Program- 
me schneller. 
Bitte unbedingt 
mit dem 
Checksummer 
(Seite 143) 

(6) 1989 MET eingeben. 
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a Es ist soweit: 
40 Zaubersprüche war- 
x ten auf Sie. Eine 
Bibliothek voller Funk- 
tionen, leichtverständlich 
und einfach anzuwenden. 
Ob Basic, C oder Assembler, alle Pro- 
grammierer haben Vorteile. 


rn . 
RUN. ; 


VE von komplizierten und aufwendigen Pro- 


” 4 


grammen ist eines der Ziele der Bibliothek »extintui.libra- 

ry«. Dies trifft hauptsächlich für die C-Programmierer zu. 
Das andere Ziel ist, in Basic Dinge zu realisieren, die bisher nicht 
möglich waren. Beides ist mit der neuen Bibliothek (Library) gelun- 
gen. Der Anwendungsbereich erstreckt sich von Fenstern, über 
Pull-Down-Menüs mit Unterpunkten bis zur Auswertung von 
Intuition-Nachrichten. C-Programmierer öffnen wie gewohnt die Bi- 
bliothek mit der Funktion OpenLibrary(). Das Programm »extin- 
tui_Ink« müssen Sie zu Ihrem Hauptprogramm linken. Die Basic- 
Programmierer haben es einfacher. Sie konvertieren die Datei 
»extintui_lib.fd« (Listing 3) mit dem Programm »ConvertFD« 
(Basic-Diskette im Unterverzeichnis BasicDemos). Die erhaltene 
Datei »extintul.bmap« kopieren Sie zu Ihrem Basic-Programm. Im 
Listing 4 zeigen wir Ihnen den Vorspann, den Sie am Anfang Ihres 
Programms verwenden sollten. Damit das System bei eventuellen 
Aufräumarbeiten alles beseitigen kann, was nutzlos im Speicher 
steht, muß bei Programmende jede geöffnete Library mit Close- 
Library() geschlossen werden. Die Funktionen dienen zur verein- 
fachten Steuerung der Benutzeroberfläche. Speziell als Anfänger 
auf dem Amiga ist es schwer, mit den komplexen Strukturen umzu- 
gehen, die nötig sind, um ein Fenster zu öffnen oder eine Menülei- 
ste erscheinen zu lassen. Die Arbeit wird nun komplett von der Li- 
brary übernommen. Die Funktion ShowWindow,) öffnet ein Fenster 
mit der angegebenen Größe entweder auf dem Workbench-Scoreen 
oder einem zuvor geöffneten eigenen Bildschirm. Öffnet man 
nacheinander ein Fenster, einen Bildschirm und wieder ein Fen- 
ster, steht das erste Fenster auf dem Workbench-Screen und das 
zweite in dem zuvor geöffneten Bildschirm. Wird mit den Zeichen- 
funktionen der Library ein Kreis gezeichnet, so erscheint dieser im- 
mer in dem zuletzt geöffneten Fenster. Ebenso verhält es sich mit 
den Menü- und Gadget-Funktionen. Zusätzlich bietet die Biblio- 


thek noch einige Fähigkeiten, die bisher von Amiga-Basic aus nicht 
Zeichnung: Jan Valach 
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benutzt werden konnten. So etwa Menüunterpunkte und Reque- 
ster. Doch zusammen mit anderen Funktionen sind die Wirkungen 
etwas unterschiedlich. So kann zum Beispiel keine Zeichenfunk- 
tion ausgeführt werden, wenn zuvor ein Bildschirm oder Fenster 
geschlossen wurde. Beim Löschen, werden die Adressen des ak- 
tuellen Bildschirms und Fensters, die in einem eigens angefertig- 
ten Puffer gespeichert werden, ebenfalls gelöscht. Versucht nun ei- 
ne Zeichenfunktion, auf dem aktuellen Fenster etwas auszugeben, 
scheitert die Ausführung, da keine Fenster-Adresse gefunden wer- 
den kann. Und nun wollen wir uns den einzelnen Funktionen wid- 
men. 


screen = ShowScreen(Tiefe,Modus, Titel) 


ofEMli 


Mit dieser Funktion ist es sehr einfach, einen Screen auf dem 
Monitor darzustellen. Der Parameter »Tiefe« gibt die Anzahl der Bit- 
Ebenen und dadurch automatisch die möglichen Farben an. Im Zu- 
ge der Vereinfachung wurden für den Parameter »Modus« vier 
Möglichkeiten festgelegt, die Sie beliebig erweitern oder verändern 
können: 

-0 = Normalauflösung mit 320 x 256 Pixeln in maximal 64 Farben, 
was einer Tiefe von 6 entspricht. 

-1 = Hi-Res-Screen mit 640 x 256 Pixeln in maximal 16 Farben 
und einer Tiefe von maximal 4. 

-2 = Lace-Screen mit 320 x 512 Pixeln in maximal 32 Farben und 
einer Maximaltiefe von 5. 

-3 = Hi-Res und Lace mit 640 x 512 Pixeln in maximal 16 Farben 
bei einer Tiefe von 4. 

Der Parameter »Titel« enthält den Namen des Bildschirms, der in 
der Titelleiste erscheint. Die Funktion liefert bei Erfolg die Adresse 
des Bildschirms zurück. Sie wird benötigt, um den Bildschirm spä- 
ter wieder schließen zu können. Sobald der Screen erscheint, 
er der für das System aktuelle Bildschirm; alle Fensterfunktionen 
aus der Library beziehen sich auf diesen Screen. 


SetPal (Farbregister, rot, grün, blau) 


Mit dieser Funktion setzen Sie die einzelnen Farbregister für Ih- 
ren Bildschirm. »Farbregister« ist die Nummer der gewünschten 
Farbe. Die anderen Parameter können Werte von 0 bis 15 anneh- 
men. 15 bedeutet dabei volle Stärke. 

ActScreen(screen) 

Wurden mehrere Screens geöffnet, kann mit dieser Funktion ei- 
ner ausgewählt werden, der zum aktuellen wird. Der Parameter 
»screen« ist die Adresse des Bildschirms, der von der Funktion 
ShowScreen() zurückgeliefert wird. 


RemSereen(screen) 
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Erweiterung 


Die Funktion RemScreen|) ruft Close Screen() auf, durchläuft zu- 
vor allerdings einige Routinen, die alle auf dem Bildschirm vorhan- 
denen Fenster löscht. Durch diese Funktion werden die Adressen 
für das aktuelle Fenster und den Bildschirm zurückgesetzt. 
window =ShowWindow(LeftEdge, TopEdge, 
width, Height, IDCMP, Flags, Titel) 

Zum Erzeugen von Fenstern dient die Funktion ShowWindowf(). 
Sie ist ebenfalls so einfach anzusprechen wie die Funktion 
ShowScreen!(). »LeftEdge« und »TopEdge« geben die linke obere 
Ecke des Fensters auf dem Bildschirm an. »Width« und »Height« 
sind die Breite und die Höhe. Die Koordinaten werden überprüft 
und gegebenenfalls korrigiert. Wird beispielsweise ein Bildschirm 
in der Größe 320 x 200 Pixel geöffnet, ist es unmöglich, danach ein 
Fenster in der Größe 600 x 250 Pixel zu öffnen. Nach den Koordina- 
ten werden die IDCMP-Flags für das entsprechende Fenster erwar- 
tet. Die IDCMP-Flags, wie auch die Window-Flags, sollen nicht alle 
aufgelistet werden. Informationen darüber finden Sie in unserem 
C-Kurs (AMIGA-Magazin, Ausgabe 7/88, Seite 97) und praktisch al- 
len Programmierhandbüchern über den Amiga. »Titel« ist die 
Adresse eines mit einem Null-Byte abgeschlossenen Strings. 
Basic-Programmierer müssen daher darauf achten, daß sie ihre 
Basic-Strings mit einem Null-Byte versehen und die Adresse des 
Strings an die Funktionen übergeben und nicht etwa den String- 
deskriptor. Zuerst muß die 0 angehängt werden, was folgenderma- 
Ben geschieht a$=a$+CHR$(0). Dann verwenden Sie den Befehl 
SADD, der die Adresse der Zeichenkette berechnet. 
Act(Window(window) 


‚ActWindow() erklärt ein Fenster als aktuell. Aktualisieren bedeu- 
tet, daß alle folgenden Zeichenfunktionen auf das in »window« an- 
gegebene Fenster umgelenkt werden. Das Fenster wird nicht in 
den Vordergrund gestellt. 

RemWindow (window) 


Diese Funktion dient zum Löschen einzelner Fenster. Sollte das 
Fenster das aktuelle sein, wird die Adresse innerhalb des speziel- 
len Datenbereichs auf Null gesetzt. Zeichenfunktionen können 
dann erst wieder nach einem ShowWindow()- oder ActWindow()- 
‚Aufruf ausgeführt werden. Die Zeichen-, Textausgabe- und Nach- 
fragefunktionen der Library beziehen sich, wie bereits erwähnt, auf 
das jeweils aktuelle Fenster. Deshalb wird bei keiner dieser Funk- 
tionen die Fenster- oder RastPort-Adresse verlangt. Sie müssen le- 
diglich darauf achten, daß ein aktuelles Fenster vorhanden ist. Sol- 
len Ausgaben in verschiedenen, bereits geöffneten Fenstern statt- 
finden, müssen die jeweiligen Fenster vor der Ausgabe mit ActWin- 
dow/) aktualisiert werden. 

PutCirele(x,y,radius) 
PutEllipse(x,y‚vradius,hradius) 

PutCircle() zeichnet einen Kreis und PutEllipse() eine Ellipse in 
das aktuelle Fenster. »x« und »y« sind dabei jeweils der Mittelpunkt. 
»vradius« ist der vertikale und »hradius« der horizontale Radius der 
Ellipse. Bei einem Kreis sind beide Werte gleich, daher muß nur der 
Radius im Parameter »radius« angegeben werden. 
PutPoint(x,y) 

Setzt an der Position mit den Koordinaten »x« und »y« einen 
Punkt in der aktuellen Farbe. 

PutLine(x1,y1,x2,y2) 

PutLine() zieht eine Linie vom Punkt »x1« und »y1« zu den Koordi- 
naten »x2« und »y2«. Es wird die aktuelle Farbe verwendet. 
PrintText(Text,x,y) 

Zur Grafiktextausgabe wird die Funktion PrintText() eingesetzt. 
Der Text wird dabei in der aktuellen Zeichenfarbe und dem Modus 
ausgegeben. Die Position wird wieder mit »x« und »y« festgelegt. 
SetColor(front,back,out) 

Mode (Drawmode) 

Die Funktionen SetColor() und Mode) schreiben die angegebe- 
nen Werte für Farben und Zeichenmodi direkt in den RastPort des 
aktuellen Fensters. Wechseln Sie mit ActWindow() das aktuelle 
Fenster, müssen die Farb- und Zeichenmodi neu eingestellt wer- 
den, wenn dies nicht bereits geschah. »front« und »back« sind die 
Vorder- und Hintergrundfarbe. Mit »out« geben Sie die Farbe für 
Umrahmungen an. 


x=GetPosX() y=GetPosY() 


107 


Die GetPos()-Funktionen ermitteln die aktuelle Position des Gra- 
fik-Cursors innerhalb des aktuellen Fensters. Basic-Programmierer 
müssen hier wie bei den anderen Funktionen, die keinen Parame- 
ter erwarten, eine »O« einsetzen, da sonst Amiga-Basic einen Syn- 
tax-Fehler anzeigt. Der Grafik-Cursor wird beim Zeichnen verwen- 
det. Es werden zwei getrennte Funktionen verwendet, dasonst von 
Basic aus wieder mit Zeigern gearbeitet werden müßte. Dasselbe 
gilt für die folgenden zwei Funktionen: 
x=MouseX() x=MouseY() 

MouseX() und MouseY() geben Auskunft über die Position des 
Mauszeigers innerhalb des Fensters. Das Erzeugen von Amiga- 
Menüleisten ist in C eine komplizierte Sache. Es müssen Struktu- 
ren versorgt und miteinander verbunden werden. Die Menüfunktio- 
nen der Library machen dies automatisch und müssen nur in der 
Reihenfolge, in der das Menü angezeigt werden soll, aufgerufen 
werden. 

Die Größe des Selektierungsbereichs der einzelnen Menüeinträ- 
ge richtet sich nach dem längsten im gesamten Menü enthaltenen 
Text. Somit ist gewährleistet, daß alle Menüeinträge in der gleichen 
Größe erscheinen. Alle Menüfunktionen mit Ausnahme von KillMe- 
nu() beziehen sich auf das aktuelle Fenster. Ist kein Fenster vorhan- 
den, auf dem eine Menüleiste angezeigt werden kann, werden die 
Funktionen erfolglos abgebrochen. 


MenuHeader(text) 


erzeugt eine neue Menüleiste. Ist bereits eine Menüleiste für das 
aktuelle Fenster generiert worden, wird die neue Menüleiste rechts 
daneben angezeigt. 

Menultem(text) 

stellt einen neuen Menüeintrag unter eine Menüleiste oder einen 
bereits vorhandenen Menüeintrag. Ein Menüeintrag kann nur er- 
zeugt werden, wenn eine Menüleiste vorhanden ist. 


MenuSubIten(text) 


Untereinträge werden immer an zuletzt erzeugte Untereinträge 
oder Menüeinträge angehängt. Diese Funktion kann nicht ausge- 
führt werden, wenn die Menüleiste keinen Menüeintrag enthält 
oder keine Menüleiste vorhanden ist. 


KillMenu (window) 


Hat eine Menüleiste ihren Dienst getan, muß die Funktion KillMe- 
nu() aufgerufen werden. Der von der Menüleiste belegte Speicher- 
platz wird dann dem System wieder zur Verfügung gestellt. Die Me- 
nüleiste ist nicht mehr anwählbar. Unabhängig vom aktuellen Fen- 
ster muß die Fenster-Adresse mitgeteilt werden. 


Fenster, Gadgets 
und Requester 


Komplizierter als Menüleisten sind Gadgets und Requester. Wo 
bei Menüleisten nur zwei Strukturen versorgt werden müssen, sind 
es bei Gadgets gleich vier. Dies liegt an der vielseitigen Gestal- 
tungs- und Anwendungsmöglichkeit von Gadgets. Bei Boolean- 
Gadgets ist dies vielleicht noch recht einfach, bei Proportional- 
oder String-Gadgets müssen zusätzlich noch Info-Strukturen an- 
gelegt werden. In der Library besorgen dies die Funktionen SetPro- 
pInfo() und SetStringInfo(), die das Ergebnis »Info« liefern. Der Pa- 
rameter »Info«wird dann der SetGadget()-Funktion übergeben. Ge- 
nau wie bei den Menüleisten, müssen Sie je nach gewünschter An- 
zahl der Gadgets die Funktion SetGadgett() aufrufen. Erstnach Öff- 
nen eines Requesters mit der Funktion ShowRequester() werden 
die zuvor mit SetGadget() erzeugten Gadgets im aktuellen Fenster 
angezeigt. Die Reihenfolge, in der die Funktionen aufgerufen wer- 
den müssen, lautet wie folgt: 

1. Fenster öffnen mit ShowWindow() 

2. Gadgets erzeugen mit SetGadget() 

3. Requester öffnen mit ShowRequester() 
strinfo = SetStringInfo(maxchars) 


Reserviert Speicherplatz für eine StringInfo-Struktur und liefert 
deren Adresse als Ergebnis. Der Parameter »maxchars« legt die 
‚Anzahl der Zeichen fest, die in das Stringfeld eingegeben werden 
können. Die zurückerhaltene Adresse muß der Funktion SetGad- 
get) im Parameter »Info« mitgeteilt werden. Außerdem ist der Para- 
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meter »Typ« der Funktion SetGadget{() mit dem Wert der Definition 

»STRGADGET: (4) zu versorgen. 

propinfo = SetPropInfo(Flags,hpot,vpot,hbody,vbody) 
Die Funktion SetPropInfo reserviert Speicherplatz für eine Prop- 

Info-Struktur. Die zurückgelieferte Strukturadresse muß, wie bei 

der Funktion SetStringInfo(), an den Parameter »Info« der Funktion 

SetGadget() übergeben werden. Im Parameter »Flags« wird mitge- 


Gadgets am 
richtigen Platz 


teilt, ob sich der Slider in vertikaler (4), horizontaler (2) oder in bei- 
den Richtungen (6) bewegen läßt. Die Parameter »hpot« und »vpo! 
bestimmen die Position des Reglers innerhalb des Gadgets. Ge- 
nau wie »hbody« und »vbody«, können die Parameter »hpot« und 
»vpot« Werte von 0 (klein) bis 65335 (groß) annehmen. 

gadget =SetGadget(LeftEdge,TopEdge,Width, 
Height,Activ,Typ, Text, Info,1d) 

Mit dieser Funktion werden die Gadgets erzeugt, aber noch nicht 
auf dem Bildschirm angezeigt. Die Größe und Position des Gad- 
gets innerhalb des Requesters, wird mit den Parametern »Left- 
Edge«, »TopEdge«, »Width« und »Height« festgelegt. Sie haben die- 
selbe Bedeutung wie bei ShowWindow(). In »Activ« wird angege- 
ben, welche Nachricht das Gadget liefern soll, wenn es angeklickt 
wird, oder speziell bei String-Gadgets, wie der eingegebene Text im 
Stringfeld erscheinen soll. 

RELVERIFY ( 1) > GADGETUP 
GADGIMMEDIATE ( 2) > GADGETDOWN 

Diese beiden »Activ«-Werte müssen gesetzt sein, wenn das Gad- 
get eine IntuiMessage erzeugen soll, sobald es mit dem Mauszei- 
ger angeklickt wird. Das Fenster, in dem der Requester mit den 
Gadgets angezeigt wird, muß dazu in den IDCMP-Flags die Werte 
für GADGETDOWN oder GADGETUP enthalten. 

Für String-Gadgets können zusätzlich noch folgende Werte ge- 
setzt werden: 

- STRCENTER (512) : Die Eingabe erfolg zentriert. 

- STRRIGHT (1024) : Die Eingabe erfolgt rechtsbündig. 

- LONGINT (2048) : Es können nur Ziffern eingegeben werden. 
Der Parameter »Typ« muß Informationen über die Art des Gadgets 
enthalten. Bei einem Boolean-Gadget den Wert 1 für»BOOL GAD- 
GET«. Der Parameter »Info« wird für Boolean-Gadgets nicht berück- 
sichtigt. Für String-Gadgets muß der Parameter »Typ« den Wert 4 
für »STRGADGET«, und der Parameter »Info« die Adresse der re- 
servierten StringInfo-Struktur, enthalten. Bei Proportional- Gadgets 
wird in »Typ« der Wert 3 für »PROPGADGET« und in »Info« die 
Adresse einer PropInfo-Struktur erwartet. 

»Text« ist ein mit einem Null-Byte beendeter String, der im Gadget 
angezeigt wird, In Boolean-Gadgets wird der Text innerhalb des 
Gadgets zentriert ausgegeben. Bei Proportional-Gadgets steht der 
Text über dem Gadget, da der Slider ihn überdecken würde. Bei 
String-Gadgets steht er links neben dem Eingabefeld. 

Die Kennziffer oder Id des Gadgets wird im Parameter »id« erwar- 
tet. Die Gadget-Kennung ist wichtig, um bei einer aufgetretenen 
Nachricht zu erfahren, welches Gadget angeklickt wurde. Tfitt eine 
GADGETDOWN- oder GADGETUP-Nachricht ein, kann mit der 
Funktion Gadgetid() die Kennung des angeklickten Gadgets er- 
fragt und entsprechend reagiert werden. 
textadr = GetStrinfo(requester,id) 


Erhält man die GADGETUP-Nachricht von einem String-Gad- 
get, liefert die Funktion GetStrinfo() die Adresse des eingegebenen 
Strings zurück. Der Parameter »requester« wird von der Funktion 
Showrequester() geliefert und muß zur Identifizierung des Gadgets 
angegeben werden. »id« muß die Kennung des Gadgets enthalten. 

Die nachfolgenden Funktionen benötigen, gleich der Funktion 
GetStrinfo(), die Parameter »requester« und »id« zur genauen Loka- 
lisierung des Gadgets. 

x = GetPropX(requester,id) 
y = GetPropY(requester,id) 

GetPropX() und GetPropY() liefern die Position des Reglers in- 
nerhalb eines Proportional-Gadgets. Achten Sie bitte darauf, daß 
Sie die Variablen für den Empfang der Werte so definieren, daß der 
Wertebereich von 0 bis 65335 reicht. Basic-Programmierer ver- 
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knüpfen das Ergebnis in diesem Fall logisch mit 65535 (x% AND 
655358). 


w = GetPropW(requester,id) 
h = GetPropH(requester,id) 


Die beiden Funktionen liefern die Größe des Reglers im Bereich 
0 bis 65535. 


ChangeProp(requester,id,hpot,vpot,hbody,vbody) 


Damit die Größe und Position des Reglers innerhalb eines 
Proportional-Gadgets geändert werden kann, steht die Funktion 
ChangeProp() zur Verfügung. Zur Requester-Adresse und Gadget- 
Kennung müssen die neuen Ausmaße des Sliders angegeben wer- 
den. 


requester = ShowRequester(LeftEdge, TopEdge, 
Width, Height, Farbe) 


ShowRequester() öffnet einen Requester in der angegebenen 
Größe und Farbe im aktuellen Fenster. Wurden zuvor Gadgets er- 
zeugt, werden diese im Requester mit angezeigt. Hatte die Funk- 
tion Erfolg, wird die Adresse des Requesters zurückgeliefert. Sie 
wird benötigt, um den Requester wieder zu schließen. Kann kein 
Requester geöffnet werden, wird eine Null zurückgeliefert. 


RequesterEnd(requester) 


Die Funktion RequesterEnd() läßt den Requester wieder ver- 
schwinden und gibt den durch die Gadgets belegten Speicherplatz 
frei. Soll der gleiche Requester erneut geöffnet werden, müssen al- 
le darin enthaltenen Gadgets neu erzeugt werden. 

Der Nachrichtenempfang bezieht sich immer auf ein Fenster. 
Beim Öffnen eines Fensters muß deshalb in den IDCMP-Flags mit- 
geteilt werden, welche Nachrichten das jeweilige Fenster empfan- 
gen kann. Wird beispielsweise der Wert für MOUSEBUTTONS an 
das IDCMP-Flag des Fensters übergeben, erhält man immer eine 
Nachricht, wenn eine der Maustasten gedrückt wird. 
ok = Message (window) 

Message) liefert 1, wenn für das angegebene Fenster eine 
Nachricht aufgetreten ist, andernfalls eine 0. Ist eine Nachricht ein- 
gegangen, kann mit der Funktion Class() die Art (IDCMP) der 
Nachricht erfragt werden. Die Funktion sollte in einer Schleife auf- 
gerufen werden, die erst dann wieder verlassen wird, wenn ein be- 
stimmtes Ereignis eintritt. 
class = Class() 

Classf) liefert den Class-Wert der letzten Nachricht. 
code = Code() 

Code() gibt den Code-Wert der letzten Nachricht zurück. 

id = Gadgetid() 
» Enthält der Class-Wert der eingetretenen Nachricht den Wert 


Erweiterung 


GADGETDOWN oder GADGETUP ermittelt die Funktion Gadget- 
id() die Kennung des angeklickten Gadgets. 

Ist die Nachricht MENUPICK eingetreten, kann mit den nachfol- 
genden Funktionen der angewählte Menüeintrag oder Unterein- 
trag ermittelt werden: 

id = Menuid() 


Liefert die Kennung der angewählten Menüleiste. 


id = Itemid() 
Liefert die Kennung des angewählten Menüeintrags. 


id = Subid() 
Liefert die Kennung des angewählten Untermenüeintrags. 
Die Routinen 
für Funktionen 


Das Prinzip, in Form von Bibliotheken (Libraries) Routinen zur 
Programmierung bereitzustellen, gehört zum Amiga wie das Salz 
in die Suppe. Um den großen Aufwand der Vorbereitung und Ver- 
waltung zu verkleinern, gibt es jetzt unsere Bibliothek »extintul.li- 
brary«. Kurze Programme mit großer Wirkung sind kein Wunsch- 
traum mehr. 

Bisher fanden Sie die genaue Beschreibung der einzelnen 
Funktionen. Was noch fehlt, sind die Routinen selbst. Die finden 
Sie in Listing 5. Zusammen mit den Listings aus der letzten Ausga- 
be können Sie nun die Bibliothek generieren. Falls Sie den benötig- 
ten Aztec-C-Compiler nicht besitzen, finden Sie alle Programme in 
lauffähiger Version auf der Programmservice-Diskette. 

Für Basic-, C- und Assembler-Programmierer war bis jetzt der 
Zugriff auf die 40 Funktionen der neuen Bibliothek »extintui.library« 
möglich. Damit auch die Modula-2-Fans in den Genuß der einfa- 
‚chen Programmierung kommen, finden Sie im Listing 6 das nötige 
Modula-2-Programm. Compilieren Sie es und kopieren Sie die ge- 
nerierte Datei »M2Extintui.sym« in das Verzeichnis »Modules/Inter- 
faces/sym« Ihrer Modula-2-Systerndiskette. 

Die formalen Parameter der Prozeduren sind gemäß der in»Intui- 
tion.def« und »Graphics.def« festgelegten Typendeklarationen be- 
nannt. Dadurch wird der eventuelle Umstieg in die direkte Pro- 
grammierung von Intuition erleichtert. Das Umsetzen des Demo- 
programms dürfte ein Kinderspiel sein. 

Und nun Start frei für kurze, benutzerfreundliche Programme in 
vier Programmiersprachen. Jürgen Haage/Andreas Görtler/kn 


Compiler- und Assembleranweisungen für Listing 1: 
as -o extintui__lib.o extintui_lib.asm -D -N 
as -0 extintui_Ink.o extintui_Ink.asm -D -N 


Programmname: extintui_lib.asm HORN)  Anciude "exeo/initialisers.1” 3EWE xref _NotSoreen 
SEN ÜÜKE inolude "exeo/librarien.i” 3798 xref _RenScreen 
SORBUEE ae iR inelude "exeo/lists.i” Be xref _AotWindon 
WAL  Anelude "exeo/residen BHO xref _Renkindor 
Kickstart 1.2, 13 Ak include "exeo/strings.i” MAR  xref Putüircle 
Sprache: Assembler Wa include "Libraries/dos.1" MUNG uref _PutEllipse 
16 include Yexeo/io.1” 0b xref _Putline 
Bemerkung: siehe Text v0 ı 2ER ref „PutPoint 
KBke STRUCTURE Extintuißase,LIB_SI M@ xref „Setloler 
2E WEVE  xref Node 
Programmautor: Jürgen 19m RPIR extinSeglist 465 xref _GetPosX 
a0 APIR extinSyaBase 4748  xref _OetPosr 
BlEo APIR extin_Intuitionßase Ma) xref _Printlext 
I 1 22 yıs APIR  extin_OfxBuse i7  uref _Mousek 
Rn, BB) LABEL extin.SsIzEor SO ref _Nouser 
Ava #/* extintultib.e vi.0 24 0X0 EXTINTUILIBNAME macro Size  xref _Menufleader 
7 SE de.b 'extintul.library!,O 32  xref _Nenulten 
3A */x* Jürgen Hasge Burgstraße 30 26.1 enda Sr xref _NenuSubIten 
Y 27 90 xlib  macro SCe xref _KiliNen 
AN #/x 6552 Bad Münster a. St. Ebernb 2303 xrer _wogı $8| xref _SetstringInfo 
ung 2 8/ 24a  endn 5651 xref _SetPropInfo 
SBb KK 3020 callsys nacro SITE zer _Setadget 
va, 3193 Jjer _1WOgL(a6) SBDE xref _GeiStrinfo 
ED vERsIn equ 1 2R en 
ge 2 Bm xref _Findtib 
33 xref _Showlindon Listing 1. »extintui_lib.asm« 
deu xref _ShouSereen ist der Rumpf der Bibliothek 
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SIE)  xref _GetPropk wars ‚GetStrinfo SIWEEO .Closelib: 
SR  uret _GetPropr 13 KR „GetProgX ZB a9 noven.1 a1-a2/a5,-(sp) 
‚s12e xref _GetPropk end „GetPropY 219 12 move.1 a6,a5 
2 uref _GetPropk 1m „GetPropk 20 Rh more.l extinSysBase(a5),a6 
B3AL rer _Changeprop 246 MR „GetPropH 221 nA0 008 sub.l alal 
EAOb xref _ShoxRequester ET Rx „CnangeProp 222 603 callsys FindTask 
6589) uref _HequesterEnd 148 10 „ShowRequester Besch tst.l do 
6 ak ref Message Bar „Requesteränd RS ben. 008 
5755 xref _Olass 150. 0m de,1 ‚Message 225 c0q move.1 dU,a2 ;Taskadresse erm 
Ba uref _Oode BIER  dc.l .Olass Asteln 
OA xret _Gadgetid Ba del ‚Code et more.1 88(a2),.0 
OR ref Nenutd 130m de.l .Gadgetid TS deu.s 018 
Mhz, xrer _Ttenid Br ac. 229 move.1 d0,a1 
WE ref _Subid 255.58: dc.ı 229 dd move #100,00 
ker xref _SetPal 156 Ho de.1 230 SC eallsys Freelem ;user Speie 
xlib OpenLibrary a ae.1 her wieder freigeben 
xlib  OloseLäbrary a ae. 231 #u0 018 moven.1  (sp)+4,al-a2/a5 
x1ib FindTask 159 590 dataTable: 232 02 move. a5,a6 
x1ib Remove A600 ae} INITBYIE LHLTYPE,NTLLIBRARY 3) moveq #0,u0 
xlib Freeifen el is) INITLONG LNLNAME,Lbraryliame 230 subqw  #1,LIBLOPENONT(36) 
xdet _SysBase de2cg INITBYTE LIB_FLAGS,LIBR-SUNS 40) mes 18 
zdef _IntuitionBase EDILIBR_CHANGED 236 \9 | bist #LIBBLDELEXP,LIB_FLAGS( 
xdet _GfxBase 363 X INITWORD LIB_VERSION, VERSION «6) 
publie _Allochen 10  INITWORD  LIB_REVISION,REVISIO 27 RO degs 1$ 
CSEG N 23849 her.s  .ExpungeLib 
moveq #RETURNLFAIL, 0 366 Wi) INITLONG LIB_IDSTRING, idStrin 29 0 15 rise 
ris 8 20 SV ‚ExpungeLib: 
86 20 RolTag: KB de. 0 24 a moven.l d2/a9/a6,-(sp) 
de.w  RIC_MATCHWORD 267 10 .InitLib 242 bx tst.#  LIB_OPENONT(86) 
&e.1 ROMag da move.1 as,-(sp) Xu deg.s 18 
de.1 Endüode deaa6 movea.l d0,e5 20 50) set #LIBBLDELEXP,LIB_FLAGS( 
de.b  RIRAUTOINIT WOSb more.1 aD,extin Seglist(a5) &6) 
dc.b VERSION ar My lea intuilib(pe),at 245 14 moveq #0,d0 
de.b NILLIBRARY Wave) moven #LIBRARY_VERSION,dO 246 0b braıs 28 
Bo des 0 WAR  callsys OpenLibrary 247.340 18 
NS  de.1 Libraryliame Am tet.l a0 hm) move.l a6,a5 
SE de.ı Aastring Remo deu. 18 249 Wa  more.l extinSyeBase(a5),a6 
Seht de.i Init 176\cR move.1 a6,extin SysBase(a5) 250 #9 movea.1 extin IntuitionBese(a 
"IT OND LibraryNane: um move,1 a6,_SysBase 5),al 
"sa A} EXTINTUTLIBNANE 17820 move.1 d&D,extin IntuitionBase SIR callsys Oloselibrany 
\9 30 1äString: (5) 22 li moven.l extinGfxBase(a5),al 
WON de. textintuilib 1.0 (12.0K7 17968 Move.1 d0,_IntuitionBase 253 0 callsys Oloselibrany 
1988)" ‚OR,LF,O ABO len gfxlib(pe),ai ARE move.l a5,al 
301 And intuilib: ABl%E moveq #LIBRARY VERSION, a 235 DD callsys Remove 
202 095 de.b "intultion.library!,O dB Ta calisys OpenLibrany 25680  more.l extinSegList(a5),d2 
103 #6 ;enop 0,2 Be tet.l a0 27 IE movea.1 as,al 
104 030 gfxlib: az ea 18 SE moreg #0,d0 
1055313 de.b 'graphies.library',O 185 Dre move.1 d0,extin_GfxBase( 259 ak move.w LIB_NEGSIZE(a5),dO 
a0) senop 0,2 35) AO suba,1 d0,aı 
207 RbQ Init: Bow) move.l dD,-GfxBase 26)  add.v LIBLFOSSIZE(a5),&0 
IB w0} de.1 extin_SIZEOR AM move.1 85,d0 262 0e callsys Freeiien 
109 v6 de.1  funeTable 168 n7O 18 263 2 move.1 d2,d0 
MOM de.1 dataTale 13904 morea.ı (ep)4,a5 26% 200 28 
YO dei .InitLib 1089 rs 265.043 movem.1  (sp)+,42/a5/a6 
12 v2o 191 070 „OpenLib: KW rt 
a3 del .OpenLib 233 addg.u #1,LIB_OPENCNT(EE) 267 WxQ „ExtFunoLib: 
Re de.1 .CloseLib 33 MU) beir #LIBBLDELEXP,LIB_FLAGS( 268 9R) moveg #0,d0 
a4 de.1 .ExpungeLib «6) 2er ts 
un de ‚ExtFuneLib BAER movel 26,00 270.MID ‚PinaLib 
Urs del .FindLib 1 IH moven.1 d0/al/as,-(sp) U W3 Jer _FinaLin(pe) 
Base del „Showländon Ser) move.1 6,25 zes re 
Mom de.  .Showseresn 9 move.1 16(sp),a6 273 280 „ShowWindon 
WO Ro de.l .ActSereen ed ven 65536 NEHR_OLEAR. 23 move.1 a0,-(a7) 
2106 dc.l  .RemScreen BEER pea 100 27296 movem.l d0-d5,-(a7) 
WE de.1 .Aetiindor OF Jen Alloeten Speicher anf TE Jsr _Showilindon(pe) 
3 de,1 .‚Renkindon ordern SR adden #28,0p 
TB de.1 .Putlirele 201 hs #8,sp ze  rte 
125 81 de.1 „PutEllipse 202 wM tst.l do 279 nal ‚SnowSereen 
1260) dc.l .PutLine 2038| deq 18 280 719 move.1 a0,-(e7) 
erna. del „PutPoint 204 IE moye.1 &0,-(sp) al movem.1 d0-ä1,-(e7) 
128.91 de.1  .Setlolor 205 xp move.1 #0,a1 232 tD jer _ShowSereen(pc) 
9 del Mode 206 58 callays Findlask Taskadress I adda.ı #i2,ep 
OR del .GetPosk e ermitteln Zoe ris 
ist ck, „GetPost SNK more.1 &0,aı 285 Ne0 ‚ActScreen 
2 ar „Pointlext 8 \E more.l (sp)+,d0 BER move.l a0,-(a7) 
133 43. ‚NouseX 209 Tr move.1 d0,88(a1) Adresse de 287 av jsr  _ActSereen(pe) 
134. 0q ‚Nouset N 8 Speicherbereiches 288. Su adäg.1 #4,5p 
139 kb ‚Nenuieader S0® more.l a5,a6 29 jk ris 
136 5e ‚Menulten 21106 moven.1 (sp)+,d0yal/as 290 aX0 .RenSereen 
BEN „VenuSubIsen aa ris 210 move.1 ‚a0,-(a7) 
28 u „Ki11Menu 213 Eng 15 SSL Jen _Rensereen(pe) 
339 tL ‚SetStringInfo Aa movem.1 (sp)+,d0/a1l/a5 293 iz addg.l  #4,8p 
140 ax „SetPropInfo 215 11 move #0,a0 294 op rts. 
ler „getGadget Sie is 295 MO. „Aetkindor 
De 
TORWW.HOMESOMPUTERWORLS.COM ANIOA-SONDERHEFTe 


ERweITERUNG 


move.1 20,-(a7) 
jer _AetWindow(pe) 
adäq.l #4,sp 
rs 

‚RemWindow 
move.1 a0,-(87) 
jer _Rentindow(pe) 
adäg.l #4,3p 
rts 

‚PutCirele 
movem.1 40-42,-(87) 
jer _PutCirele(pe) 
adda.u #12,2p 
zts 

„PutEllipse 


1 &0-43,-(87) 
„Put£llipse(pc) 
adda.u M16,sp 
rts 

‚PutLine 
moven.1  d0-d3,-(a7) 
Jr _PutLine(po) 
adda.n wiß,sp 
zts 

‚PutPoint 
movem.l d0-d1,-(a7) 
Jer _PutPoint(pe) 
addg.l #8,8p 
rts 

„SetColor 
moven.1 d0-d2,-(a7) 
Jsr _Settoler(pe) 
adda.w #12,8p 
rs 


) ‚Mode 


move.1 _d0,-(a7) 
jer Node(po) 
addq.l #4,sp 
zts 

„detPosk 

Jsr  _GetFosk(pe) 
rs 

„GetPosY 

jer  _GetPost(pe) 
1ts 
„PrintText 
movem.1 &0-d1, 
move.l 20,-(27) 
jer „Printfext(pe) 
adda.ı #12,8p 
vis 

„HouseX, 

Jar _NouseX(pe) 
nis 

‚Nouser 

Jer _Youset(pe) 
Tits 

‚HenuHender 

move.1 a0,-(37) 
Jar Nenuteader(po) 
addq.1 M4,sp 

rts 

‚Henulten 

move.l a0,-(87) 
Jer _Nenulten(po) 
adaq.1 MA,sp 

rts 

‚NenuSublten 

move.1 a0,-(87) 
Jsr  HenuSublten(pe) 
addq.l #4,sp 

rts 

‚KillMenu 


7) 


‚SetString] 
move.l 20,-(a7) 
jer _SeiStringInfo(pe) 
eädq.l #4,8p 
rs 


0 .SetPropInfo 


moven.1 &0-44,-(27) 


38088 
381. 8n 


BEE NR! 
463.90 Endtode: 


jsr  _SetPropInfo(pe) 
adda.v  #20,sp 
rts 


‚SetGadget 


moven.i a0-a2,-(a7) 
moven.L  &0-45,-(87) 
Jar _Setoadget(pe) 
adda.v #36,5p 

zts 


„GetStrinfo 


zove.1 d0,-(87) 
move.1 20,-(87) 

Jen -GetStrinfo(pe) 
adaq.l #B,ap 

rts 


‚GetPropX 


move.1 &0,-(a7) 
move.l. a0,-(a7) 
jer  _GetPropX(pc) 
aadq.1  MB,ap 
rs 


„GerPropY 


move,1 d0,-(a7) 
move.1 50,-(a7) 
Jr _GetPropt(pe) 
addq.l #8,ap 


40,-(a7) 
a0,-(27) 
üetPropk(pe) 
#8,sp 


@0,-(a7) 
jer _GetPropä(pe) 
addq.l #B,sp 


‚ChangeProp 


moven.1 d0-44,-(a7) 
move.1 20,-(a7) 
Jar _ChangeProp(pe) 
adde.v #24,8p 


rts 
„ShowRequester 
moyen.1 dO-d4,-(a7) 


Jer _ShowRequester(pc) 
adda.ı #20,3p 
rts 


‚RequesterEnd 


move.l 80,-(87) 
Jar 
dag. 
1ts 


‚Message 


move.1 &0,-(87) 
Jar _Nessage(po) 
addg.l #d4,ap 
zts 


„Class 


Jer _Cisss(pe) 
nis 


‚Code 


Jsr _Code(pe) 
ris 


„Gndgetid 


Jr _Cadgetid(pe) 
rts 


‚Menuid 


Jsr enutd(pe) 
rts 


‚Itenid 


jer _Itenid(pe) 
nis 


„Subid 


jsr _Subtalpe) 
zts 


‚SetPal 


moven.1 d0-d3,-(27) 
jsr _SetPal(pe) 
adden #16,.p 
vis 


YEuNEEE GIOBAL _Syskase,4 

es cz GIOBAL _IntuitionBase,& 
46690 GIOBaL _GfxBase,s 
40 end 

(C) 1988 MET 


Listing 1. (Schluß) 


Programmname: extintul_Ink,asm. 
Computer: A500, A1000, 
‚A2000 mit 

Kickstart 1.2, 

Sprache: Assembler 

Bemerkung: siehe Text 


Programmautor: Jürgen Haage 


AED a yrrenernkrr 


ame, 
ZAR »/* extintui_ink.c v1.0 
% 
33) */* Jürgen Hasge Burgstraße 30 
Y 
AT n/® 6552 Bad Münster a, St. Ebernb 
we 2% 
EN) BPPHTSPREPERRRENRERRTFELTTEFETUFTENN 
we, 
ERS  XREF _Extintuißese 
Tao ShowWindon 
or ShowSoreen 
a8 AotSoreen 
2% Renscreen 
116 Actiindon, 
Per 
13% 
ua PutEllipse 
2 PutLine 
16 ıb PutPoint 
17 30 SetColor 
18a ode 
1988 tetPosX 
20 W _üetPosY 
21% FrintText 
za HouseX 
23 m HouseY 
24 en Henufesder 
Ba enulten 
26 Dr. YenuSublten 
ZU VE KiliMenu 
23 n6 SetStringInfo 
a“ SetPropinfo 
30 as Setöadget 
31 2m DetStrinfo 
32 «0 _getPropX 
3 GetPropt 
E25 „GetProph 
Er SetPropli 
36.5 „Changeprop 
37 17 „ShowRequester 
38 au Requesteränd 
2» m Yessage 
40 ns -Olsss 
417 Code 
ar „Oedgerid 
43 ım Henuid 
Am Itenid 
45 52 Subid 
46 a8 SetPal 
EN 


42 #30 _Showindow: 

Weg more.1 a6,-(a7) 

50 ax movea.1 _ExtintuiBase,a6 
sim moven.1 8(87),40-45 

Listing 2. 

C-Programmierer linken »extintui__ 
Ink.asm« zu ihrem Programm 


ANGASENDERHERE) ON EWR. DON 


111 


move.1 32(87),.0 
jer -36(26) 
morea.1 (a7)+,26 
rte 


move.1 a6,-(a7) 
movea.1  ExtintuiBase,a6 
moven.1  8(a7),a0-a1 
move.1 16(87),a0 
Jar -42(26) 
moven.1 (a7)+,n6 
rts 
EU) _AetSoreen: 
move.1 36,-(a7) 
movea.l _ExtintuiBase,a6 
move.1 &(87),20 


jer -48(86) 
movea.1 (a7)+,26 
vis 

Renscreen: 


move.1 a6,-(a7) 
movea.1 _ExtintuiBase,a6 
move.1 &(a7),a0 

jer  -54(86) 

moyea,1  (a7)+,26 
Kris 

AetWindov: 

move.1 26,-(a7) 
movea.1 _ExtintuiBase,s6 
move.1 &(a7),a0 

Jer -60(86) 

movea.1  (a7)+,26 

: rts 

) _RemWindow: 

move.l  a6,-(87) 
moves.1 _ExtintuiBase,s6 
move.1  &(a7),a0 

Jsr  -66(a6) 

movea.!  (a7)+,26 

EN Tits 

92 m00 _PutCirele: 

) more.1 . 86,-(87) 
moyea.1 „Extintulßase,a6 
moven.l 8(a7),d0-d2 
jer -72(26) 
moven.i (a7)+,26 
or 
0 „Putällipse: 

d move.l a6,-(a7) 
movea.l _ExtintulBase,s6 
moven.1 8(87),d0-43 


Jer -78(a6) 
moven.1 (a7)+,a6 
rs 
utLine: 


move.1 26,-(27) 

movea.1 _ExtintulBase,a6 
moven.1 8(87),a0-a3 

jsr -84(26) 

movea.1 (a7)+,a6 


a6,-(a7) 
Extintulbase,a6 
moven.1 8(a7),d0-d1 
jer  -90(86) 
moven.1  (#7)+,26 
ris 
Setlolor: 
move.1  a6,-(a7) 
movea,.1 _Extintuißase,26 
movem.1  8(27),d0-42 


jez -96(86) 
moven.1 (a)+,u6 
rs 

Mode: 


move.1 a6,-(a7) 
movea.1 _ExtintuiBase,as 
move.1 8(a7),d0 


jer -102(36) 
movea.1 (a7)+,26 
rs 
\ERO _GetPosx: 


move.1 a6,-(e7) 


ee 

BrmE  jer -108(6) 
(a7)+,26 
36,-(a7) 


VER  morea.1 _Prtintuißese,as 
Ms je -114l26) 
We morea1 (ers, 


1570 

126 50 

17 803 6,-(a7) 

248 ı7 

19 be 3(a7),20 

150 «a 12(a7),a0-81 
351 P& -120(26) 

352 va @7+,26 

153 2 

19% DO _YouseX: 


3563 mre1 6, 
BET moren.1 _ExtintuiBase,as 
rs der -126(86) 

Bals morea.1 (a7)+,36 


86,-(e7) 
Extintuißsse,a6 
16582 ist -132(26) 

ET 3 moren.i (a7)e,a6 


aove.1  86,-(a7) 

morea.1 _ErtintuiBase,a6 
zove.l 8(27),a0 

jer -138(26) 

moven.1 (a7)+,26 


86,-(87) 
—ExtintuiBase,a6 
zove.l 8(27),a0 
jer -144(86) 
zoven.1 (a7)+,a6 
rte 
180 A40 _MenuSubltez: 
1223 more. 


1 Extintuiiase,a6 
E39, move.i 8(a7),a0 

SB Jer -150(86) 

18585 morea.1 (a7)+,a6 

286 45 ris 


AG move.1 8(a7),s0 
56(86) 
(a7)+,26 


a6,-(37) 
Extintuißase,a6 
mm move.1 8(a7),a0 

Bee je -162(a6) 

65.078 zoven.1 (a7)+,s6 


86,-(a7) 
Ertintuißese,as 
1 8{87),00-44 
SUSE jsr -168(26) 
206 ne zoven.i (a7)+,.6 


207 29 ris 
208 WO Setbadget: 
2W83 more.1 26,-(a7) 


Z0LE moren.1 _Extintuißese,a6 
a zoren.1 8(a7),a0-85/0-a2 
jsr -174(s6) 
zovea.1 (a7)2,.6 

a6,-(27) 
Frtintuißase,a6 

22(a7),a0 

8(e7),20 


Bar move.1 a6,-(a7) 


SI  isr 180086) 
21 2 movea.1 (a7)+,26 
222er rts 

223 350 _GetPropk: 

224 W53 move.1 a6,-(a7) 
225 aM movea.]1 _ExtintuiBase,a6 
6  move.i 12(87),00 
227 v3 move.1 8(a7),a0 
28 in jer -186(a6) 

229 a1 movea.1 (a7)+,a6 
230 an rts 

232 GPO _GetPropt: 


23 movea.l _Extintuißase,a6 
SE FL 3 move.1 12(87),d0 

23520 move.l &la7),ao 

236 Ar Jer -192(a6) 

23719 moves.1 (a7)+4,a6 


239 ELO _GetProph: 
240 3 move.l a6,-(a7) 
1 


oe moven.l _ExtintuiBase,a6 
ZaNG move.1l 12(a7),d0 

237 move.i 8(a7),a0 

a sr -198(a6) 

25  moven.l (a7)+,a6 

246 23 rte 

247 910 _GetPropti 


248 173 move.1 a6,-(a7) 

My moven.l _ExtintuiBase,as 
2OW move.1 12(a7),d0 

18 move.l 8(a7),a0 

S2Kk jsr -204(a6) 

3X moven.1 (a7)+,a6 


BE tr) move.l a6,-(a7) 

257 65 moven.l _ExtintuiBase,a6 
SEN) move.1 8(a7),e0 

259 Ya movem.l 12(a7),d0-d4 
260 99 jer -210(86) 


261 8X moven.1 (a7)+,a6 

262 17 zts 

263 370, _ShowRequester: 

26h 13 move.l a6,-(a7) 

26520 movea.l _Extintuißase,a6 
6 Wu  moven.l 8(87),a0-04 
267.0 jr -216(86) 

268 ne moven.l (a7)+,a6 

269 PQ rs 


270.200 _RequesterEnd: 

271803 move.1 a6,-(a7) 

27 movea.l „ExtintuiBase,a6 
ZU be move.l 8(a7),a0 

Ze Jjsr -222(06) 

Tau morea.i (a7)+,a6 

276 WX ris 

207 WVO Message: 

Em move. a6,-(a7) 

moven.1 _ExtintuiBase,a6 
move.l, 8(27),a0 

jer -228(86) 

movea.1 (a7)+,a6 


3 
& 


ze ij 

zu 17 

zu 12 

283 de rts 

284 080 _Cless: 

Ba Mi3 move.l 26,-(a7) 
286 2. —ExtintuiBase,ab 
Ex 234(a6) 
ZU mwenı (aM)+,a6 
29  ris 

298 WRO _0o2e: 


move.1  a6,-(a7) 
moven.1 _ExtintuiBase,a6 


jsr -240(26) 
movea.1 (a7)+,a6 
ris 


move.1 a6,-{87) 
movea.1 _ExtintuißBase,a6 
jer -246(86) 

moven.1 (aMt,a6 ° 

ris 

302 NAD _Meruid: 

3303 more.i a6,-(a7) 


AMIGA-SONDERHEFT 9. 


Zi 


ERwEITERUNG 


SOSE)  moven.1 ExtintuiBase,a6 al rs 
3050  Jjer -252(26) 314 *30,_Subt. 


BEN  moven.1 _Extintulbase,a6 
33 Pa  movem.i 8(a7),d0-83 


360 moven.l (a)+,a6 3503 move.l a6,-(a7) At? jsr -270(86) 
307 12 sts 316 3p moves.l _ExtintulBase,s6 325 iz movea.l (a7)+,26 
308 K6D _Itenid: Mr der BER ris 
309 x63 move.l a6,-(a7) 318.65 moven.1 (a7)+,.6 327 18 end 
310 x) movea.1 _Extintuißase,a6 319 DE rts (c) 1988 MET 
al dt jsr -258(26) 320 st0 _SetPal: 

MM moven.l (a7)+,26 321 W133 move.1 a6,-(a7) Listing 2. (Schluß) 
extintui_lib.fd 23UHM) Nousex()() 
‚A500, A1000, A2000 249g, Mouser()() 
mit Kickstart 1.2 und 1.3 @& BE) Nenulleader(text) (AO) 
26 gN Henulten(text) (40) 
Sprache: ASCII-Text 27 08 NenuSub 
I Bemerkung: Siehe Text 28 au KillMenu(window) (A0) 


Progranneutor: Jürgen Haage 

MO * extintui_des.fä, v1.0 

2VO * Jürgen Hange, Burgstarde 30 

3XR " 6552 Bad Münster am Stein 

Ahr ##base „extintuibase 

330 bias 30 

632 ##publio 

ANX FinaLtv()() 

806 Showindow(left,top,wiäth,height, idenp, flags, titel) (D0,D1,D2 
‚D3,D4,D5,A0) 

9 el ShowScreen(depth,node,ti 

10 PR ActScreen(screen) (A0) 

11.69 RenSoreen(screen) (20) 

den AotWindow(window) (40) 

13.96 Renkindor (window) (A0) 

44 ML. PutOireie(x,y,radius) (DO,D1,D2) 

35 {x PutEllipse(x,y,vradius,hredius) (DO,D1,D2,D3) 

6 ma FutLine(x1,y1,x2,32) (D0,D1,D2,03) 

17 eN FutPoint(x,y)(D0,D1) 

38 F& SetColor(frent,back,out) (D0,D1,D2) 

19.09 Mode(mode) (DO) 

2 XT VetFosk()() 

21 cf GetPost()() 

22 am PrintText(text,x,y)(A0,D0,D1) 


)(00,D1,A0) 


„.  Programmname: 


Computer: A500, A1000, A2000 
mit Kickstart 1.2 und 1.3 
Sprache: Amiga-Basic 1.2 
Bemerkung: Siehe Text 
Programmsutor: Jürgen Haage 


WHSS DECLARE FUNCTION ShowScreenk(Tiefe,Modus,Titel) LIBRARY 

'& X50 REM DECLARE FUNCTION ActSereen(soreen) LIBRARY 

Ang REM DECLARE FUNCTION RenScreen(soreen) LIBRARY 

4ht% DECLARE FUNCTION Showindowk(LeftEäge,TopEdge,HIDTH,Heig 
ht, Tdomp, Flags, Titel) LIBRARY 

5 VrO REM DECLARE FUNCTION AotWändow (window) LIBRARY 

'6 US REM DECLARE FUNCTION RemWindow(window) LIBRARY 

2:6r REM DECLARE FUNCTION PutCirele(x,y‚radius) LIBRARY 

8 WO REM DECLARE FUNCTION PutZilipse(x,y,vradius,hradius) LIBRARY 

dh REM DECLARE FUNCTION PutLine (x1,y1,x2,y2) LIBRARY 

0 38. REN DECLARE FUNCTION PutPoint(x,y) LIBRARY 

14 U REM DECLARE FUNCTION PrintText(Text,x,y) LIBRARY 

42 WA. REN DECLARE FUNCTION SetColor(front,back,out) LIBRARY 

13 81 |REM DECLARE FUNCTION Node(DrauMode) LIBRARY 

Walk  DECLARE jetPosX£() LIBRARY 


15.58 DECLARE FUNCTION GetPosYg() LIBRARY 

16 wo DECLARE FUNCTION NouseXf() LIBRART 

17 26 DECLARE FUNCTION MouseYg() LIBRARY 

28 42 DECLARE FUNCTION WenuHeaderz(Textadresse) LIBRARY 
39 m DECLARE FUNCTION Kenufteng(Textadresse) LIBRARY 


20 Pi DEOLARE FUNCTION BenuSubltenf(Textadresse) LIBRARY 

1 Rz0) REM DECLARE FUNCTION KillMeny (window) LIBRARY 

@2\lyk  DECLARE FUNCTION SetStringInfos(nexenars) LIBRARY 

34 DECLARE FUNCTION SetPropIneos({Flags,hpot, vpot,hbody,vbad 
y) LIBRARY 


29 Aa SetStringInfo(buffer)(A0) 

30 1B_ SetPropInfo(flags,hpot,vpot,hbody, body) (DO,D1,D2,D3,D4) 

JA mZ SetGadger(left,top,width,height,active,type, text, Info, 1d) (DO 
‚D1,D2,D3,D4,D5,A0,A1,A2) 

32 10 GetStrinfo(req, 14)(A0,D0) 

33 &n GetPropX(req, 14) (A0,D0) 

34 Dil GetPropY(req, 14) (40,00) 

35 6e, GetProph(reg, 14) (A0,D0) 

36.98 GetPropti(reg, 14) (A0,D0) 

37. KS| ChangeProp(reg, 1d,x,y,W, 

38 ıR, ShowRequester(left,top, 

39 Ps Requesteränd(reg)(A0) 

40 BK. Vessage(windon) (A0) 

um class()() 

Yaez. Code()() 

23 je Gadgeria()() 

4480| Menuiä()() 

ENG Ttenial)() 

46 AL subial)() 

47. 7P, SetPel(regnr,red,green 

4E10, ##end z 

(c) 1988 MET 


n)(A0,D0,D1,D2,D3,D4) 
sight, color) (DO,D1,D2,D3,D4) 


1ue) (D0,D1,D2,D3) 


Listing 3. Basic-Programmierer 
generieren aus »extintui__lib.fd« eine 
».bmap«-Datei 


24 37 DECLARE FUNCTION SetGadgetä(LeftEäge, Topkäge, WIDTH,Heigh 
N t,Activ,Typ, Text, Info,14) LIBRARY 

230 DECLARE FUNCTION GetStrinfoß(requester,id) LIBRARY 

26 Po DECLARE FUNCTION GetPropX#(requester,Id) LIBRARY 

27 v3 DECLARE FUNOTION GetPropYä(requester,1d) LIBRARY 

28 10 DECLARE FUNCTION GetPropWf(requester,1d) LIBRARY 

E03 DECLARE FUNCTION GetProplif(requester,1d) LIBRARY 


30 2E0 REM DECLARE FUNCTION ChangeProp(requester, Ad,hpot, vpot,hbody 
„vbody) LIBRARY 

Al Jv6 DECLARE FUNOTION ShowRequester&(LertEäge, Topkdge, WIDTH,H 

eight, Farbe) LIBRARY 

32 78 DECLARE FUNCTION Requesteränd$(requester) LIBRARY 

33 Ok DECLARE Hessages(WINDOX) LIBRARY 

34 va DECLARE Class$() LIBRARY 

35 6n DEOLARE Codes() LIBRARY 

36a DECLARE Gadgetidg() LIBRARY 

37 67 DECLARE 'widg() LIBRARY 

30 TU DECLARE FUNCTION Itentdg() LIBRARY 

39 ao DECLARE FUNCTION Subid$() LIBRARY 

40 O0 REM DECLARE FUNCTION SetPal(Reglir, red,green,blue) 

WU g) LIBRARY “extintut.library” 

42.66 ON ERROR GOTO Close} 

43 OT ON BREAK GOSUB CloseAll 

BEE BREAK ON 

48 8X REM X#8%8 Hier das Hauptprogramm sear# 

46 TEL C0T0 Cioseall 


47.000 zu 
48 19 CloseAll: 
49 WI2 IF ERR=150 THEN CLS:PRINT "Fehler bei Bibliotheksaufruf”;F 


OR r=0 10 2000:NEXT r 
50 SE LIBRARY CLOSE 

SUL2 BREAK OFF 

5aue ON ERROR GOTO 0 

33 BIO END 

(C) 1988 MAT 


Listing 4. In dieses 
Listing bauen Sie ein 
Basic-Programm ein 


AMEASPIBERIERIOMECOMEUTERWORLB. COM. 
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TC Bu 


ae 


Computer: A500, A100o, A200 
_ mit Kiekstart 1.2 und 13 


EM 
70 84 


221622 


73 
TA EV 


\ nn & 


) Sa) er Sein bo 
12 


ES 
NTENBI: 


Ren] 


7% extintui_fen.e v1.0 
I: 

A /* Jürgen Haage Burgstraße 30 

/* 6552 Bad Münster a. St. Ebernburg 2 


\ #1nelude "Intuttion/intultion.h” 
#1nelude "graphies/gfxmacros.h” 
#1nelude "exeo/nemory.h” 

struet extintlib 


ü 


struot Screen Hastsorsen; 
struot Window Kaotwindow; 
struot RastPort *aatrp; 
struet Gadget Rgadget;, 
struet Intuifessage message; 
33 

FindLib() 


[ 
struct Task *eurrent; 
 while(!(eurrent = (struct Task #)FindTask(0))); 
return(eurrent->te_UserDate); 
3 
ShowWindow(x,y‚width,height,idemp, flags,str) 
SHORT x,y‚width,height; 
ULONG idemp,flags; 
| BYTE Astr; 
N 
\ struet NewWindow newwindow; 
\ struct Window #windon; 
struct Sereen Nsoreen; 
long *test; 
struot extintlib user; 
1£(!(user = (struot extintlib #)FindLib())) 
zeturn(0L); 
if{user->actscreen) 
\ 
Af((width + x) > user->actsereen->uidth) 
width = user->actsereen->Width - x; 
1£((height + y) > user->aetsereen->Height) 
height = user->actsereen->Height - y; 
) 
else 
{ 
Af((width + x) > 640) 
width = 640 - x; 
1f((height + y) > 256) 


height = 256 - y; 
3 
nevwindox.LeftEdge 
newwindow.Topkdge = y; 
N newindow.Wiäth = width; 
newwindow.Height = height; 
\ newwindow.DetailPen 


newwindow.BloekPen = 
nexwindow. OheckMark 
newsändon.Minwidth 
nexwindow.MinHeight; 
newwindow.Mexiitäth 
I) nexwindon.Maxheight 
newwindow.FirstGadget 
newwindow. IDOMPFlags = idomp; 
newindow.Flags = flags; 
newindow. Title = str; 
newwindow.Type = WEENCHSCREEN; 
if(user->actscreen) 


{ 


4 
we 
H 
# 


ee Eee 2777077 


| 


aaa 


0x2 


ge 


100 Ka 
101 mu 
102.53 
103 8A 


109 62 
106 Rus 


3 


{ 


129 82 


131 ana 


) 


re | 


102 Js2 


ua 
BEER NN 
146 114 
SAT xR 
uam 
en 


LO if(windon = (struet Window *)Openkindox(dnerwindow)) 


77 2k0, veturn(0L); 


79 Wil ShowSereen(depth,mod,tit) 
‚20 YA SHORT depth; 

81 AQ\ USHORT mod; 

82 0D BYTE #tit; 


EL SP struet extintlib Kuser; 
85 BP struct Newßoreen Knewsereen; 
86 WA struct Soreen #screen; 
TOR ii 


EER EEE 


31 050 newsoreen->LeftRdge = 0; 
92 84 nensereen->Topädge = 0; 
93 80 neuscreen->Depth 
94 ED newscreen->Widtn = 320; 

93.60 nensereen->Height = 256; 
newsereen->DetailPen = 0; 
FM &L newsereen->BlockPen 
98 38 | neusereen-> Vieutiodes 
5 30) 1F{nod > 0 A& mod I= 2 


104 240 1F(noa > 1) 


neusereen->Iype = 
neusoreen->Defaultlitle 


if(soreen = (strust Screen *)OpenScereen(newsereen)) 


Freelen(newscreen,sizeof(struct Newscreen)); 
return(OL); 


ActSereen(sereen) 
struct Screen screen; 


127 96 struot extintlib Kuser; 
128 &R\ if(Iscreen) 


130.060 if(!(user = (struet extintlib *)FindLib())) 


132 080. SoreenTofront(screen); 
\ user->aotsoreen = (struet Sorsen *)soreen; 


RemScreen(screen) 
struct Sereen *soreen; 


338 11 struct Windox *remindor,eopywindor; 
339 LI struet extintlib kuser; 

WO Le struct Gadget *gadget,*gadget2; 

341 GE if(!soreen) 


343 2X0 1f(remwindow = (struct Windoy *)sereen->FirstHinden) 


newwindow.Soreen = (struct Screen *)user->aetsereen; 
newwindow.Type = CUSTOMSCREEN; 
3 


{ 

user- >actwindor 
user->actrp 
return (windor); 


} 
} 


(struet Window #)window; 
(stmuet RastPort #)window->RPori 


Pl(depth > 4 &b (mod == 1 11 mod == 3)) II (deptn > 5 && 
mod =» 2) Il (depth > 6) I| (ma > 3)) 

return(0L); 5 

£(l(newsoreen = (struet NewScreen *)Alloclen(sizeof(struct 
NewSereen) ‚MENP_CLEAR))) 

return(OL); 


depta; 


[ 


nexscreen->Width = 640; 


newscreen->VienModes = HIRES; 


{ 
newscreen->Height = 512; 
newsereen->VienModes |= LACE; 


newscreen->ViesModes I= EXTRAHALFERITE;, 
CUSTONSCREEN; /% Custonsereen #/ 
ib 

£(!(user = (strust extintlib #)FindLib())) 

return{0L); 


[8 

Fresken (neusoreen, sizeof(struct NewScreen)); 
user->actsereen = (struct Soreen X)soreen; 
return(sereen); 


] 


return; 


return; 


return; 


[ 
do 
{ 
eopywindor = (struct Window #) remrindow->NextWindon; 
Ciosehindow(remwindon); 
Senwindon = copywindon; 


MA yryw HOmEcomPUTERWORLB.COh 
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} uhtte(remwindon) ; 
I 

CloseScreen(screen); 

ie(!(user = (struot extintlib *)PindLib())) 
retum; 

user->aotscreen = OL; 

N user->aotwindow = OL; 

L user->actrp = OL; 


} 

Aothindow (window) 
struct Window window; 
Wi 


struct extintlib *user; 


return; 


‚Hindow(windon) ; 

t ‚window = (struot Window "window; 
HSHÄR user->aotrp + (struot RastPort K)windor->RPort; 
AO kR 

W7L 6r  Renhindow(window) 

2 ‚truot Window Auindow; 


struet extintlib Kuser; 
truct Ondget *gedget,Agadget2; 
N Arliwindon) 
return; 
d Af(I(user = (struct extintlib #)FindLib())) 
Tetum; 


16 


ss 


{ 
user->aotwindow = OL; 
user->aotrp = OL; 


OloseWindow (window) ; 


PutCirele(x,y,radius) 
MR SHORT x,y,radius; 


struet extintlid Kuser; 
Af(t(user = (struct extintiib *)FindLib())) 
ne vetum; 
(83 ahdı it(user->actrp) 
N DrauEllipse(user->aotrp,x,y‚radius,radius); /# window re 
stport W/ 


PutEllipse(x,y, vradius,hradius) 
\\ SHORT x,y,vradius,hradius; 
tl 
Br struot extintlib #user; 
if(!(user = (struct extintlib *)FindLib())) 
return; 
\naQ 1 (u ->aetrp) 
fd DrawEllipse(user->actrp,x,y‚vradius,hradius); /* window 
N rastport 8 
m Zn) 


N Den 22,72) 


struot extintlib user; 

Af(I(user = (struct extintlib #)FindLib())) 
return; 

L1 820 if(user->actrp) 

\hp2 


Nove(user->actrp,x1,y1); 
Draw(user->actrp,x2,y2); 
ER Ne] 

216 Ued. } 

217 5, PutPoint(x,y) 

218 10 SHORT x,y; 

am | 


struot extintlib #user; 
if(1(user = (struct extintlib #)FindLib())) 
retum; 


Moveluser->actrp,x,y); 
Draw(user->actrp,x,y); 


BEE) strusr extintiib tuser; 
= FM iflı(user = (struct extintlib *)FindLib())) 


SA retum; 
35 WO if(user->actrp) 
23602 | 


237 9%; SetäPen(user->actrp,front); 
ZB Tl SetBPen(user->actrp,back); 
23907 SetOPen(user->actrp,out); 


245 30 struet extintlib Muser; 
= (struct extintlib #)FindLib())) 


246 Ja0 if(user->actrp) 

249 Ho2 SetDräd(user->actrp,mode); . 
250.280 } 

251 DV GetPosk() 

320 | 

253 BB struct extintlib user; 

5 06 1f(!(user = (struct extintlib #)FindLib())) 


ER 1elaner->actep) 
257 iv2 return(user->actrp->cp_x); 


GetPost() 


{ 
struct extintlib kuser; 
if(t(user = (stmet extintlib *)FindLib())) 
return; 
Afluser->actrp) 
2 retum(user->aotrp->op_y); 
| 
"| PrintText(text,x,y) 
BYTE *text; 
SHORT 1,95 
79 struet extintlib *user; 
22 ia 1r(!(user = (struet extintlib #)FinaLib())) 
mW zewum; 
274 %00 if(user->actrp) 
zum | 
276 21 Yove(user->actrp,x,y); 
ZT Sk | Text(user->aotrp,text,strlen(text)); 
zeau | 
279 v00 | 
20.08 MouseX() 
aa Tu | 
282 eb struct extintlib "user; 
283 15 if(!(user = (struct extintlib *)FindLib())) 
Zub WA2 return; 
285 7EO 1f(user->actwindow) 
286 y22 retum(user->actwindov->HouseX); 
287 d80 | 
288 a2 Mousel() 
28904 | 
Z0 =) struct extintlib Kuser; 
291 BD 1£(I(user = (struct extintlib #)PindLib())) 
212 retum; 
293 FD 1r(user-> actwindov) 
34 052 return(user->aotwindon->MouseY‘) ; 
295 100 | 
296 5a Menutleader(text) 
297 ve BYTE Atext; 
SED | 
29 &6 SHORT am = 0, 1 
300 #£ struct extintlib "user; 
301 XR struct Menu *nenu, Mnewnenu, Acopymenu; 
302 =0 1F(!(user = (struct extintlib #)FindLib())) 
W3M2 retum(0); 
304 300 1r(!(user-> actwindon)) 
305 92 retum(0); 
306 and 1F(!(nevnenu = (struct Menu *)Allochen(sigeof(struct Menu), 
ÜNEMP_CLEAR))) 
3072 zetumn(0); 
308 260 Forbia(); 
309 #0 mexu = (strlen(text)*8)+8; 
30% if(nem = (struct Nenu *user->actwindow->Nenustrip) 
aux € 


Listing 5. Die Funktionen für die »extintui.library«. 
Bitte mit dem Checksummer (Seite 143) eingeben. 
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gopymens = (strust Nemu "menu; 
1 = menu->leftääge; 

1 += menu->Width; 

menu = (struct Menu #)nenu->NextMenu; 

} while(mem); 

sopymenu->NextYenu = (struct Menu *)newmenu; 
) 


: ->aotwindow->Henußtrip = (struet Menu *)newnenu; 
323 MMO newmenu->Leftädge = 1; 
1224 02 newmenu->Width . max; 


325 13 newmenu->Height = 10; 
326 08 newmenu->Flegs = 1; 
jenu->Verulane = text; 


nevmenu->FirstIten = OL; 
neunenu->NextMenu = OL; 
5, Setlenußtrip(user-> actwindow, user-> setwindor->Menußtrip) 


sersun 


Perast(); 
 return(1); 


Menulten(text) 
BYTE Mext; 
{ 
Struot extintlib "user; 
struot Menu *nenu; 
struot Nenulten #nenulten, knevmenulten, scopymenuften; 
struct Intuifext *itext; 
SHORT top = O,width; 
if(!(user = (struct extintlib *)FindLib())) 
retum; 
'PUO if(!(user->actwindor)) 


Ey®R 


= 


345 2x2 veturn(0); 
N ‚800 if(menu = (strust Menulten #Juser->actwindow->MenuStrip) 
Es while (nenu->NextMenu) 


menu = (struct Menu #)nenı->NextHenu; 


392 942 retun(O); 

353 WO 1f(!(newmenuiten = (struct Menulten #)AllocNen(sineof(struc 
t Nenulten) ‚HEMF_CLEAR))) 

= B62 return(0); 


Freelen(newmenuiten,sizeof(struct Menulten)); 
EL retumn(0); 
39) 
360.390 Atext->IText = (BYTE *)text; 
"361 ja itext->Drauode = 2; 


362 HI width = IntulTextlength(itext); 
363 VE Forbid(); 
204 88, 1f(menuiten = (struct Menulten *)menu->FirstIten) 


365 | 

66 do 

367 { 

‚368 ne sopymenuiten = (struot Henulten ")menulten; 
369 ei Af(width < menuiten->Width) 

‚370 ar6 width = menuiten->Width; 

ao else 

"372 356 menuiten->Width = width; 

3a dd top = menuiten->Topkdge; 

Sn 2Q menuiten » (struct Menulten *)menuiten->NextIten; 
375 UK } while(menuiten) ; 

N top += 10; 


copymenulten->NextIten = (struct Menultem *)newmenuiten; 
& } 
279 nf0 else 
(380 608 menu->Firstitem = (struct Menulten #)newmenulten; 
"381.900 newmenutten->LeftEdge = 0; 
382 WO newenuiten->TopEäge = top; 
newmenuitem->Width = width; 
) newmenuiten->Height = 10; 
mewmenuiten->Flegs = (ITEMTET ITEMENABLEDI HICHCONP) ; 
newmenuiten->Itenfill = (struet IntuiTex: #)itext; 
newmenuften->NextItem = OL; 
newmenulten->SelectFill = OL; 
newmenuiten->Subltem = OL; 
nexmenuiten->NextSeleet = OxFFFF; 
| Sewtenusenspl(usen-> antuindon,user-> actwindov->Yanustzip) 


— 


392 üR Feratt(); 

393 =0 retum(1); 

3% Mr] 

395 PC NenuSubIten( text) 

396 WU BYTE *text; 

a 

3 ZM struct extintlib "user; 

399 8n struct Menu menu; 

400 kl struct Menulten *menuiten, *copymenuiten, *submenuiten, *n 
ewsubiten; 

401 m? | strust IntulText »itext; 

402 Ar SHORT top = 0, width; 

403 Pi irl!(user = (struct extintlib *)FindLib())) 

40h X62 return; 


‚405 080 Af(!(user->actwindow)) 

406 iv? retum(0); 

407 WAO 1f( menu = ( struot Menu #)user->actwindow->MenuStrip) 
“oa a2 | 

409%  whlle( menu->Nextlenu) 

AlOWKA menu = ( struct Menu *)nenu->NextMenu; 


#12 T60 else 

413 832 zeturn(0); 

414 WO 1f( menulten = ( struot Menulten #)menu->FirstItem) 

415 a62 

#168 while( menuiten->NextIten) 

Kirsls menulten = ( struct Menulten #)menuiten->NextItem; 

kaur2 | 

419 aN0 else 

420 FAQ retum(0); 

421 AgO if( L( newsubiten = ( struct Menultem *)AllocNen( sizeof( s 
truct Menulten) ‚MEMF_CLEAR))) 

#22 02 retum(0); 

423 280 ir( !( Atext = ( struot IntuiText #)AllooNem( sizeof( struc 
t IntusText) ‚MEMF_CLEAR))) 

4er | 

425 00 Freeiien( newsubiten,sizeof( struct Menulten)); 

42616 retum(0); 

7%) 

428 UAO itext->IText = ( BITE #)text; 

429 Pu itext->Draufode = 2; 

430.00 width = Intuifextlength( itext); 

431 30 Forbiä(); 

432 0x if( submenulten = ( struct Menulten *)menuiten->Sublten) 


„33 vo2 | 
4410 8 
435 x0& l 
436 KW copmenuiten = ( struct Nenulten *)subnenuiten; 
47 M _ Af( width < suboenulten->width) 
438 UN6 wiäth = subnenulten->width; 
49 Uhl else 
440 FE6 Subrenuften->width = width; 
Au göh top = submenuiten->TopZdge; 
42 Sn submenuiten = ( struct Menulten #)submenuiten->NextZte 
a 
4319 | whlle( submenutten); 
2 


MUB HR2 menuiten->Sublten = ( struct Menulten #)newsubiten 
449 0MO newsubiten->LeftEäge = menuiten->Width - 9; 

450 0a newsubiten->Topkäge ‘= top; 

451 Ps newsubiten->Width = width; 


452 PA newsubiten->Height = IC 
493 JX nevsubiten->Flags = ( ITEMTEXTI TTEMENABLEDIHIGHCONP) } 
454 SE newsubiten->Itenfill = ( struct IntuiText *)itext; 

455 In newsubiten->NextIten = OL; 
M36 mE nevsubiten->SelectFill = 0 
457 EV neusubiten->Sublten = OL; 
458 10 nevsubiten->NextSeleot = OxFFFF; 

459 PX SetlenuStrip(user-> actwindow,user->actwindov->MenuStrip) 


460 IX Pernit(); 
dei ya return(2); 
I 


462 Sx 

463 eK Killlenu( window) 

6 1 struct Window Swindow; 

26 Eu | 
0% 


E3 struet Menu menu, #copymenu; 
467 29 struct Nenulten *menuiten, fopymenuiten, *subiten, kcopysubi 
N ten; 


Mes us ifl!windon) 


URONEiO! Forbial); 
N iff mens = ( struet Menu *window->MenuStrip) 


if menuiten = ( struct Menulten *)menu->FirstIten) 


l 
do 


4f( subiten = ( struct Nenulten *)menuiten->Sublte 
a) 

t 

do 
l 


eopysubiten = ( struct Menulten #)subiten->Nex 


>ItenPill,sizeof( struct Intu 


iText)); 
Freellen( subiten,sizeof( struct Menultem)); 
subiten » ( struot Nenulten #)copyaubiten; 
] walle( subiten); 
1 
copymenuiten = ( struct Nenulten #)menulten->NextI 
son; 
Freeken( menulten->Itenfill,sizeof( struot IntuiTe 
xt); 
Freelen( menuiten,sizeof( struot Menulten)); 
menuiten = ( struct Menultem #)oopymenulten; 
| while( menuiten); 


oopymenu = ( strust Menu #)nenu->NextKenu; 
Freellen( menu,sizeof( struct Menu)); 

menu = ( struct Menu *)copymenu; 

] vhile( menu); 

ve | 

500 ptÜ window->MenuStrip = OL; 


SetStringInfo(bu£fer) 
SHORT buffer; 
l 
{| struct StringInfo #strinfo; 
if(strinfo = (struet StringInfo #)AllocHen(siseof(struct St 
ringInfo) ‚MEMF_CLEAR)) 
{ 
if(strinfo->Buffer = (BYTE #)ALlooMen(((buffer+1)*2) ‚NEM 
FLCLEAR)) 
{ 
strinfo->UndoBuffer = (BYTE #) (strinfo->Buffer)4buffe 
nel; 
strinfo->MaxChars = buffer; 
strinfo->DispPos = 0; 
strinfo->Bufferfos = 0; 
return((struet StringInfo #)strinfo); 


Freelien(strinfo,sizeof(struct StringInfo)); 
} 
‚#19 n60 return(0L); 
52008] 
RL AU | SetPropInfo(flags,hbody‚vbody‚hpot,vpot) 
NS USHORT flags,hboäy, vbodyJhpot, vpot; 
struct PropInfo *propinfo; 
if(propinfo = (struct Propinfo #)AllocMen(sizeof(struct Pro 
‚pInfo) ‚MEMF_CLEAR)) 
l 
flags 1 AUTOKNOB; 
propinfo-> Flags flags; 
propinfo->HoriaPot = hpot; 
propinfo->VertPot = vpot; 
propinfo->HorizBody = hbody; 
propinfo->VertBody = vbody; 
return((struet PropInfo #)propinfo); 
} 
539 380 return(0L); 
3269 | 
SetGadget(x,y,‚weite,hohe,flag,typ,text,info,id) 
SHORT x,y,weite,hohe; 
USHORT typ, flag,1d; 
LONG Info; 
BITE ext; 
U 
| struct Gadget Aneugadget,tgadget, *copygadget; 
struet IntulTert *itext; 


Erweiteru NG 


N struot extintlib zuser; 
JR struct Border *border; 
j® SHORT err = O,sarray; 
AR. USHORT fl; 
N if(I(user = (struet extintlib #)FindLib())) 
550.482 retum; 
551 1x0 if(1user->actwinäon) 
SS KP2 return(OL); 
553 710 ir(newgadget = (struct Gadget *)Allocken(sizeof(struct Gadg 
N et) ‚MEMF_CLEAR)) 
l 


54 st? 

555 Kü if(border = (struct Border #)Allocen(sizeof(struot Borde 
© rn) MEMF_CLEAR)) 

Sa | 

557 a2 if(array = (SHORT #)AllocMen(24,MEMF_CLEAR)) 

598 wP6 { 

559 1 Aflitext = (strust IntuiText #)AllocNen(sizeof(struct 

IntuiText) ‚MEMF_CLEAR)) : 

360 yRB l 

ss1 va newgadget->GadgetRender = (struct Border *)border; 

562. Gm newgadget->OndgetText = (struct IntuiText M)itext; 

#63 143 border->XY = (SHORT ")array; 

564 68 j 

263 wI6 else 

566 zu8 ee 

567 9e6 } 

sum else 

369 2d6 er =1; 

so) 

am ap2 else 

Bm err=i; 

Sr ) 

AA 6p0 1f(err) 

975 Dg2 

37659  iflnewgadget) 

A77 el Freeiien(newgadget,sizeof(struct Gadget); 

578 1A2 1r(array) 

579 01% Freeien(array,24); 

580 582 if(border) 

5E1 24 FreeNem(border,sizeof(struet Border)); 

s82 Tm2 retum(0); 

sr) 

584 UrO Forbid(); 

HBR DK 1f(gadget = (struct Gadget *)user->gadger) 


copygaäget = (struct Gadget #)gadget; 
geäget = (struct Gadget A)gadget->Nextündget; 
) vhlle(gadget); 
copygadget->NextGadget = (struct Gadget *)newgadget; 
else 
user->gaöget = (struct Osdget *)newgadget; 
*(array) = (SHORT)-1; 
*(arraye1) = (SHORT)-1; 


"(array+2) = (SHORT)-1; 
(array43) = (SHORT)hehe; 
*(array+4) = (SHORT)weite; 
*(array+5) = (SHORT)hohe; 
*(array46) = (SHORT)weite; 
*array+7) = (SHORT)-15 
"(array+8) = (SHORT)-15 
Marray49) = (SHORT)-1; 
border-> Count =5; 


border->Draviode = 2; 

border->NextBorder = OL; 

up I = REQGADGET; 

itext->Draufode = 2; 

Atext->IText = text; 

A£(typ == (REQGADGETI STRGADGET)) x 
itext->LeftEdge = (Intuifextkength(itext) +5) # -1; 

else 
itext->LeftEdge = (veite - IntuiTextLength(itext)) / 2 


ERESSEERPASSBERARBEZNGEIRGERT 
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6 320 1f(typ == (REQGADGETI PROPGADGET)) 
BIT en2 itext->Topkige = -I; 

618 na0 else 

619 8i2 itext->Topkage 
620 320 itext->Nextlext 
GBI CE itext->Textfont 
22 NG neugaäget->LeftEäge 


Listing 5. (Fortsetzung) 


———— 


es ÜB| newgadget->Topkäge = y; 
wa newgadget->Widtn = weite; 


newgadget->Height = hohe; 
flag &= TENDOADGET; 
nergadget->Flagg = GADGHCONP; 


| nengadget->Activation = flag; 
newgadget->QadgetType = typ; 
newgadget->GadgetID = 14; 
newgadget->Nextüadget = OL; 
Va nengadget->Speoialinfo = OL; 
\ 4£((typ == (REQGADGET STROADGET)) 44 Info) 
newgadget->Speciallnfo = (struct StringInfo *)info; 


if((typ == (REQGADGETI PROPGADGET)) && info) 
newgadget->Speoiallnfo = (stzuet PropInfo *)info; 


ns else 
639g newgadget->GadgetType = (REQGADGETI BOOLGADGET) ; 
BR Pernit(); 


return (newgadget) ; 


|| GetStrinfo(requester,1d) 

\ struct Requester #requester; 

SHORT 1d; 

{ 

struot Gadget *gadget; 

GB IR if(Irequester) 

B4aty2 retumn(0L); 

650 JED else 

BL BTR AF(I(geiget = (struot Ondget ")requester->Regdadget)) 
Se vAh  retum(OL); 

693 090 vnile(gadget->GadgetID I» 1d ER gadget) 
654 gadget = (struot Gadget #)gadget->Nextündget; 
if(gadget->GadgetType & STRGADGET) 
656 XL2  veturn(gadget->Speclalinfo->Buffer); 
E50 000 else 

698 272 vetumm(oL); 

65980} 

SEO I6 GetPropX(requesten,td) 

GEL MY | struot Requaster fraquesten; 

668 8a SHORT id; 

663 46 | 

664 Oq struot Gadget *gadget; 

665 IV if(Ivequester) 


666, De2  zetumn(0); 

(BER AND else 

66a x02 AF(!(gadget = (struot Gadget *)requsster->RegGadget)) 
690 veturn(0); 


670 a0 while(gadget->GadgetID I= id &L gadget) 

WII VE2 gadget = (struct Gadget *)gadget->Nextüadget; 
\ ) if(gadget->Gadgetiype == (PROPGADGETI REQGADGET)) 
return(gadget->Speciallnfo->HoriePot) 


674 hUO else 
675 Mi? veturn(0); 
676 upO ] 


8M &c | GetPropY(reque 
ER 3P  struot Request: 
67a 57 | SHORT 1d; 
L 
BL L7 struct Gadget *gadget; 
662 ZD. Af(!requester) 
SS ae) 
684 red else 

2 1flI(gadget = (struct Gadget *)requester->RegGadget)) 
4 retum(o); 
\#RD while(gadget->GadgetID i= id && gadget) 
6BB OV2 gadget = (struct Gadget *)gadget->NextGadget; 
689 KO if(gadget->GadgetType == (PROPGADGETI REQGADGET) ) 
retumn(gadget->SpecialInfo->VertPot); 


‚er,id) 
*requ 


635 86 ANmaSY Reagester Aroquester; 
838 00 SHORT 1a; 


if(Irequester) 
return(0); 
01 80 else 
702 Wa Af(!(gadget = (struct Gadget *)requester->Regtadget)) 
703 04  retum(o); 
704 D60 vnile(gedget->GadgetID I- 14 88 gadget) 
gadget = (struct Gadget *)gadget->NextGadget; 
DO if(gadget->GadgetType == (PROPGADGET| REQGADGET)) 


207 Rh?  retum(gadget-> Specialinfo->HorizBody); 
708 R20 eise 

og una retum(0); 

710.820 } 

FA &N\ GetPropli(requester,id) 

2 bN struot Requester Krequester; 

MAI HEN SHORT id; 

nasw | 

TAB DR strut Gadget gadget; 

Mi6 72 if(Irequester) 

77 222  vetum(0); 

78 200 else 

MID? ifltlgadget = (struot Gadget *)requester->Regüadget)) 
720,504  retum(O); 

Tal UPO wnlle(gedget->GadgetID != 1d 44 gadget) 


722 %32 gadget = (struct Gadget *)gadget->Nextladget; 
723 HEO if(gadget->GadgetType == (PROPGADGET| REOGADGET)) 
meh HR vetum(gadget->Speoiallnfo->VertBody); 

129 WIO eise 

926 862 return(0); 

der s80 ) 


ChangeProp(requester,1d,x,y,w,h) 
struet Requester *requesten; 

IN SHORT 1dj 

I) USHORT x,yWoh; 

{ 

Struct Gadget *gadget; 

struct PropInfo *prop; 
Af(Ivequester) 


736 482 retum; 
BT WO else 

738 5u2 AF(I(gadget = (struct Gadget #)requester->Regüadget)) 
TON  retum; 


740 n1O while(gadget->GadgetID != id && gadget) 


WM gadget = (struot Oadget *)gadget->Nextündget; 
42 080 if(gadget->Gadgetiype == (PROPGADGEN REQGADGET) ) 
ma vo2 | 

44 Ah prop = (struat PropInfo #)gadget->Speoialfnfo; 


Mas WO  prop->HonizPot = x; 

746 9Q  prop->VertPot = yj 

UN prop->HorizBody = wi 

TB VB) prop->VertBody = hj 

749 Wd) Refreshülist(gadget,requester->RWindon,requester,1); 
mo 1 

FOR 700 ] 

752 ET ShovRequester(x,y,w,h, farbe) 

MA TE SHORT x,y,x/h,farbe; 

Dt | 

755 YO struct extintlib "user; 

756 35 struct Requester *requester; 

767 W Arli(user = (struet extintlib #)FindLib())) 


WB ej2 return(OL); 
759 HRO if(luser->aotwindon) 
760 @12 veturn(OL); 


TR SCO 1r(I(requester = (struct Requester *)AllocHen(sizeof(struct 
Requester) ‚KEMF_OLEAR))) 

762 in2 return(OL); 

763 460 vequester->RegGadget = User->gadget; 


requester->leftiäge = x; 
requester->TopEäge = yi 
requester->Width = w; 
requester->Height = h; 


requester->BackFill = farbe; 
1f(Request(requester,user-> actwindor)) 
mo vi2 return(requester) ; 

71 830 else 

972 882 retum(oL); 

70a 1y0 } 

77, m Requesterfnd(requester) 

775.60 atruet Requester Arequester; 

Ku 

RR Ey | struct Gadget "gudget, *gadget2; 

78 HB suruet Border *border;, 

779 NO struet StrinfInfo *strinfo; 

TO gd struct extintlib Kuser; 

782 XP USHORT type; 

7E2 WB if(I(user = (struet extintlib *)FindLib())) 
783.382 return(01); 

TEL Y2O 1r(vequester) 

785 122 EndRequest(requester,requester->RWindor); 


— 


118 WWW HOMEGOMPUTERWORLD.COM 


‚AMIGA-SONDERHEFT 9 


ERRWEITERUNG 


WERBEN  emäget2 = (struot Gadget K)gadget; 

79120  gadget = (struet Gadget *)gadget2->NextGadget; 

792 66 border = (struet Border *)gadget2-> GadgetRender; 

793 mu Freelem(border->XY,24); 

TAN Fresiien(border,sizeof(struct Border); 

795 Ye Freeiten(gadget2->OndgetText,sigeof(struet Intuifext)); 

796 Bu type = gadget2-> GadgetType; 

TORRT  Ae((type == (REQOADGETSTRGADGET)) && gadget2->Specsal 
Info) 

798 06. { 

799 6m strinfo = (struet StringInfo *)gedget2->Speciallnfo; 

‚300 ke Freelen(strinfo->Buffer, ((strinfo->MaxChars) * 2)); 

801 xA. Freeiien(strinfo,sizeof(struct StringInfo)); 

802 »R | 

803 m24 else 

204 296 if((type == (REQGADGETI PROPGADGET)) && gadget2->Spec 

iallnfo) 
205 eg& Freeiien(gadget2->Speoiellnfo,sigeof(struct PropInf 
o)); 


806 v4 Freellem(gadget2,sizeof(struct Gadget); 
7 au j 


808 8X #hile(gadget) ; 
3) 

810 70 user->gadget = OL; 
ai 5a) 


) 

812 E6 Nessage(windon) 

B13 De struct Window Kwindon; 

BAR 

815 FC struct extintlib Kuser; 

Bl6 IA struct Intuiliessage Knachricht; 

alT 5b 1F(l(user = (struct extintlib K)FindLib())) 

Sie fa2 retumn(0); 

819 2k0 if( window) 

BR 82 AF(I(mindon = (struct Window K)user-> aatwindon)) 

a2 ld  retum(0); 

822 hhO nachricht = (struct Intuilessage *)Getisg(windor->UserPort 
PH 

1823 09 if(nachricht) 


aa | 
824 kn | novmen(nachricht, k(user-> message) ‚sizeof(struct Intuies 
sege)); 


B26 UO ReplyMsg(nachricht) ; 

827 80 return(1); 

828. Mm } 

829 g10 return(0); 

800%) 

B1 pw Class() 

| 

833 XU struct extintlib Kuser; 

834 My Af(I(user = (struct extintlid #)FindLib())) 
835 #72 return(0); 

836 ON return(user->nessage.Clası 
3710} 

B3A UA Code() 

| 

840 eb struct extintlib *use: 
BALD ifl!(user » (struot extintlib #)FindLib())) 
%2 392 retum(0); 

843 Ky0, return(user->message.Code); 

ad] 

ads ya Gadgetid() 

a | 

847 14 struot extintlib *user; 

BB Mo struet Gadget *gadget; 

a9 D 1f(I(user = (stmuct extintlib #)FindLib())) 
850 862 return(0); 

851 080 gadget = (struct Gadget *)user->message. Address; 
832 nD | return(gadget->GadgetID); 

883 16 ] 

4 KO Nenutd() 

8510 | 

856 ur struct extintlib *user; 

E57 IL 1Flı(user = (struot extintlib #)PindLib())) 
858 82 retum(0); 

859 pr0 return((user->message.Code & Ox1F)); 

‚560 ai} 

BON AG Ttenid() 

Bez | 

863 1y struct extintlib user; 

B64 a8 if(!(user = (struot extintlib K)FinaLib())) 
869 di2 return(0); 

866 190 retumm((user->message.Code >> 5) & 0x003F); 
867.20] 

BB BY Sub1d() 


| 

270,89 struct extintlib Kuser; 

BTL x& 1F(I(user = (struet extintlib K)FinaLib())) 

Bra 52 retum(0); 

873 »EO return((user->message.Code >> 11) & 0x001F); 

874 60) 

875 %n SetFal(regnr,red, green,blue) 

876 0X USHORT regnr,red,green,blue; 

a 

ATB 18 stmuet Soreen Ksareen; 

679 HB struet extintlib Kuser; 

880 61 if(!(user = (struct extintlib #)FindLib())) 

881 Bn2 return; 

882 MMO 1e(red<O || red>15 || green<O II green>15 I] dlue<o Il 
blue>15 Ilregnr<o II regnr>31) 

823 0 retum; 

BB4 m&0| Af(soreens(struot Screen *)user->actscreen) 

Bas NK3  SetRoB4(&soreen->VienPort,regnr,ned,green,biue); 

886 1m0 | 
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Listing 5. (Schluß) 


Programmname: MaExtintui.def 


Computer: A500, At000, A200 
mit Kickstart 1.2 und 1.3 


Sprache: Modula-2 \ 
Compiler: M2Amiga 
Bemerkung: siehe Text 


Progrannautor: Andreas Görtler 


WSYO| DEFINITION MODULE N2Extintui| "extintut.library”,1) ; 
20 (* by ag 11.12.88 3:00 #) 

38P (* 1.3 = Inoludefiles,h für Version 1.3 

Aoya) M2 = Ma-Amiga Modula-II 


SM fen.e = Die Implementation der Routinen (extintut_fon.c) 

6% 3 Kriterien: - TypenÜbereinstinmung mit 1.3(Inelude)‚H2, 
und fen.o 

7 bxa - Rückgabewerte 

az - Spezifikation der Parameter: 2.B. WindonP 


tr anstatt ADDRESS *) 
9 DUO FROM SYSTEM IHPORT ADDRESS; 
0 PS FRON Exec IMPORT UByte; 
AL 20 FROM Graphios IMPORT DranNodeset; 
12 tb FROM Intuition IMPORT SoreenPtr,WindonPtr,Requesterftr, IDOM 
PFlagSet, PropinfoPtr, 


23 ton PropInfoFlagSet, ActivationFlagset,Str 
AngInfoPtz, GadgetPtr, 

14 m WindowFlagset; 

15 p20 (--- „----- Die Screen- und Hindor-Proseduren ------- 


*) 


16 af | PROCEDURE ShowScreen(depth[ 0) :INTEGER; 

17 280 vieuModes| 1] :CARDINAL; 

a8 \ap defaultTitle|8) :ADDRESS) :;SoreenPtr; CO 
DE -42; 


19 ef2 (* if fail then return NIL else return SoreenPtr *) 

20 RE (X erzeugt neuen Sereen mit übergebenen Parametern *) 
21 NrO PROCEDURE AotScreen(soreenptr[8) :SoreenPtr); CODE -48; 
22 #0 PROOEDURE RenSoreen(soreenptr| 8) :SoreenPtr); CODE -54; 


23 1y | PROCEDURE ShowWändow(leftEägel 0] :INTEGER; 

24 XPL topEdge| 1] :INTEGER; 

23 m width] 2] :INTEGER; 

EN height[ 3] :INTEGER; 

2770 idompFlags| 4} :IDCMPFlagSet; 

28.02 flags| 5) :HindowFlagset; 

88 +tit1e|8) :ADDRESS) :WindowPtr;; CODE -36;; 


30 952 (# if fail then retum NIL else return WindoxPtr *) 
31. 400: PROCEDURE ActWindow(windowptr[ 8) :WindowPtr); CODE -60; 
32 EI PROCEDURE Renkändon(windorptr| 8} :WindowPtr); CODE -6f 
BERNSE CE - Die Zeiohenprogeduren -; 


*) 

34 IM |PROOEDURE PutCirole(x[ 0] :INTEGER; 

33.388 y{1) :InTEGER; 

36 ku radius[2] :INTEGER); CODE -72; 
37.20 PROOEDURE PutEllipse(x| 0] :INTRGER; 

38 1BL {1} :INTEGER; 


Listing 6. Das nötige Listing für Modula-2- 
Programmierer: »M2Extintui.def« 
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Rn vradus[ 2} :INTEGER; 
hradius[ 3] :INTEGER) ; CODE -78; 

SS (* Typen: 5.0. ..radius bei allen SHORT *) 
2 diro PROGEDURE PutLine(x1[0] :INTEGER; 
yalı) :INTEGER; 
x2 2] :INTEGER; 
y2{3) :INTEGER); CODE -84; 
‚CA0 PROCEDURE PutPoint(x[ 0] :INTEGER; 

vll sINTEGER); CODE -90; 
(# setzt RastPort auf (x1,y1) baw (x,y) und zeichnet mit 
Graphies.Draw bis 


2 (22) var (vy).r) 
50 0#0 PROGEDURE PrintText(textpte[6] :ADDRESS; 


ya ); CODE -120; 
‚93 PRO) PROCEDURE Node(dranNiode| 0] :DrawfodeSet); CODE -102; 
E12 (X Arantiode liefert Eintrag für aktuellen RastPort; Graph 
\ des.SetDrMd wird 
3a 1v5 aufgerufen *) 
6 102 (* äravliode in 1.3 und fon,o vom Typ BYTE, In N2 Drantiode 
N Bet= 


NT)  Bytegröße *) 
58 d10 PROCEDURE SetColor(fgPenf 0] :CARDINAL; 
3 TET bgPen| 1] :CARDINAL; 


> 


a0lPen| 2] :CARDINAL); CODE -96; 

(# In 2 RastPort.fgPen, .bgPen, -a01Pen : UByte; Die Argn 
ente für Set_Pen ; 
ns CARDINAL; In 1.3 FgPen,BgPen,A0lPen : BYTE; X) 
3 Br PROCEDURE SetPal(n| 0] :CARDINAL; 

z[1] :OARDINAL; 

a2) ;OARDINAL; 

[3] :OARDINAL); CODE -270; 
(# entspricht Graphios.GetfüB4 *) 
(# Parameter sind In 1.3 und M2 USHORT (siehe ColorTable) 
; fon.o : SHORT! ®) 
Ve \loD PROCEDURE GetPosX() :INTEGER; CODE -108; 
70 dA PROGEDURE GetPosY():INTEGER; CODE -114; 
IM 2i2 (N Liefert RastPort.x bau .y ®) 
PL (* in M2 und 1,3 : SHORT ®) 
73 W30 PROCEDURE MouseX():INTEGER; CODE -126; 
4 ou PROGEDURE MouseY():INTEGER; CODE -132; 
78.032 (* liefert Window.mouseX bzw .‚mouseY *) 
76 180 ie Die Nentleisten - 


SgErER 
Be 


> 


x) 
mia Procamına Menubieader(textptr[8] :ADDRESS) :INTEGER; OODE -138 


mon (* liefert bei Erfolg 1,sonst 0; Ergebnis könnte auch vom 
Typ CARDINAL sein *) 
\e we (# textptr liefert Eintrag für Menu.menuName; bei allen v 
N) om Typ APTR *) 
80 KARO. PROCEDURE Nenuftem(+extptof8] :ADDRESS) :INTEGER; CODE -144; 
NL W2 (* 1iefert bei Erfolg 1,sonst 0; Ergebnis könnte auch vom 
Typ CARDINAL sein ®) 
(# textptr liefert Eintrag für Intuffext.iText; bei allen 
0 vom Typ APIR x) 
83 'RkO) PROCEDURE MenuSublten(textptr[ 8} :ADDRESS) :INTEGER; CODE -15 
\ u 
(* Liefert bei Erfolg 1,sonst 0; Ergebnis könnte auch von 
Typ CARDINAL sein #) 
(X textptz Miefert Eintrag für Intuffext.iText; bei allen 
von Typ APTR *) 
"86, 0y0 PROCEDURE Ki11Nenu(windowptr[8] :WindonPtr); CODE -156; 
Gadgets und Requester ---- 


&8 na |PROCEDURE SetStringInfo(nsxChara[] :ADDRESS) :Stringnfortr; 
N coDE -162; 
89562 (# if fatl then retum NIL else return StringInfoPtr *) 
‚90 2d0, PROCEDUNE SetPropInfo(flags[ 0] :PropInfoFlagset; 
horiPot| 1] :CARDINAL; 
vertPot| 2] :CARDINAL; 
horisBody[ 3] :CARDINAL; 
vertBoay[4] :CARDINAL) :PropInfoPtx; 0O, 
DE -168; 
We? (* if fail then retum NIL else return new PropInfo with 
N apa) 
N Im M2 und 1.3 und fen.c alle Parameter vom Typ USHORT 
Vs 
97 170. PROCEDURE SetGadget(1eftEdge| 0) :INTEGER; 
3 topEäge| 1] :INTEGER; 
width[2) :INTEGER; 
height(3] :INTEGER; 
activation[4] :ActivationFlagset; 
gadgetType[ 5] :CARDINAL; 
gadgetText| 8) :ADDRESS; 


spectalfnfo[9] :ADDRESS; 

gadgetID| 10] :INTEGER) :badgetPtr; CODE - 

174; 

106 yI2 (* if aotwindow = NIL then return NIL else Gadgetadresse 
\ = 

107 va (# Alle Typen in. fon.o und 1.3 o.k.; in M2 ist gadgetID v 
NN om Typ SHORT «) 

108 QEO PROGEDURE Getötrinfo(requesterptr[8) ;RequesterPtr; 

109 wäh gadgetID| 0] :INTEGER) :ADDRESS; CODE -18. 
N Bl 

11042 (* fail ->'retum NIL, sonst StringInfo.buffer *) 

Al SNO PROCEDURE GetPropt(requesterptr[8] :RequesterPtn; 

112 400, gadgetID[ 0) :INTEGER) :CARDINAL; CODE -204 
113 Dt? (* fall -> retum 0, sonst PropInfo.vertBody *) 

14 DOQ PROCEDURE GetPropk(reg|8) :RequesterPtr; 

415 a07 ‚gadgetID[0] :INTEGER) :CARDINAL; CODE -198. 
MSJKZ (X fail -> retum 0, sonst PropInfo.horizBody #) 

117 KO. PROGEDURE GetPropX(req| 8] ;RequesterPtr; 

28 win ‚gadgetID| 0} :INTEGER) :CARDINAL; CODE -186 

(# fall -> return 0, sonst PropInfo.horizPot *) 

120 eO, PROOEDURE GetPropY(reg|8] :RequesterPtr; 

121 ein gadget1D[0) :INTEGER) :CARDINAL; CODE -192 


Weahs2 (R fall -> retum 0, sonst PropInfo.vertPot *) 
323 pEO PROGEDURE ChangeProp(requesterptr{8] :RequestenPtn; 
224 sin gadgetiD| 0] :INTEGER; 

horizPot| 1] :CARDINAL; 

vertPot| 2] :CARDINAL; 

horizBody| 3} :CARDINAL; 

vertBody[ 4] :CARDINAL); CODE -210; 
(# gadgetID in M2 und fon.c SHORT, in 1.3 dagegen USHORT 
1%) 
130 1Y | (* restlichen Par. in M2 und 1.3 und fen.o USHORT #) 
131 VOO PROCEDURE ShowRequester(1eftEdge| 0) :INTEGER; 


132 190 topkage| 1] :INTEGER; 

133 Wb width[ 2] : INTEGER; 

134 de heignt[ 3] :INTEGER; 

1 rt baokFAl1{4} :UByte) ;RequesterPtr; CO 

DE -216; 

Beil  (# if fail then return NIL else return Requesterptr *) 

WITZ (# In 1.3 und M2 backFill : UBYTE; in fon,o SHORT! *) 

138 aEO PROCEDURE Requesteränd(requesterptr[8] :;RequesterPtr); CODE 
-222; 

om (r Nachrichtenenpfang --- 


14D RA | PROCEDURE Message (windouptr[ 8) :WindowPtr):INTEGER; CODE -22 
8; 
dal Ne (* 1efert bei Erfolg 1,sonst 0; Ergebnis könnte auch von 
\ Typ CARDINAL sein *) 
142 £10 PROGEDURE Olass():IDOMPFlagSet; CODE -234; 
43 JE PROCEDURE Oode():CARDINAL; CODE -240; 
AMh Ge2 (* fat -> retum 0, sonst IntuiNessage.olass bzw. ‚code 
* 
(349 400, PROCEDURE Gadgetid():INTEGER; CODE -246; 
OF (X fall -> retum 0, sonst Gadget.gadgetID *) 
UT (* imM2 INTEGER, in 1.3 aber USHORT, siehe Hinweis unten 
1*) 
148 qyO, PROCEDURE Nenudä() :CARDINAL; CODE -252; 
WAWA (* fall -> retum 0, sonst die niederwertigsten 5 Bits v 
on IntuiNessage,code = 
150 NS Nunmer des Menüs *) 
351 800) PROOEDURE Itemid():CARDINAL; CODE -258; 
w 2 (# fall -> return 0, sonst die mittleren 6 Bits von Intu 
iMessage.code = 
Nummer des Itens *) 


(# fal -> retum 0, sonst die höchstwertigen 5 Bits von 
Intuilfessage.oode = 

2 Nummer des SubItens *) 

;? PO, END MaExtintui. 

158 15 (* Hinweis: Die Sohnittstellen-Module können jederzeit vom 
„ Aniender auf den 

neuesten Stand gebracht und compiliert werden, Als Refer 
enz gilt 1.3Inolude. 

Sowohl in fon.c als auch In M2 ist Gadget.gadgetID vom T 
yp SHORT(=-INTEGER). 

i 5 1.3 jedoch ist Gadget.gadgetID vom Typ USHORT(=CARDIN 
N .") 
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Listing 6. (Schluß) 
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Meister der Ta 


Sind Sie in der Lage, Ihre Amiga-Tastatur 
blind zu bedienen? Tippen Sie schnell 
und fehlerlos? Wenn ja, können Sie die 
nächsten Zeilen getrost überlesen. Ent- 


thaltenn Ire Texyte 


jedoch jede menge 


Tipfeler, dann ist »Keyboard-Master« ge- 
nau das Richtige für Sie. 


Von Robert Kretzschmar 


esonders wenn Sie oft 

Briefe mit der Schreib- 

maschine oder einer 
Textverarbeitung verfassen 
oder auch hin und wieder Li- 
stings abtippen, ist es von gro- 
Bem Vorteil, blind schreiben zu 
können. Das erhöht nicht nur 
die Schreibgeschwindigkeit 
enorm, sondern hilft auch, 
Tippfehler zu vermeiden. Das 
Programm »Keyboard-Master« 
ermöglicht Ihnen das Erlernen 
des Zehn-Finger-Systems. Es 
stellteinen vollständigen, inter- 
aktiven Schreibmaschinen- 
Kurs dar, der in 20 Kapitel un- 
terteilt ist. Die Spanne der 
Übungen reicht von einfachen 
»ASDFs-Aufgaben bis hin zu 
speziellen Fingerübungen für 
Programmierer. 

Um den gewünschten Erfolg 
zu haben, ist es notwendig, 
möglichst regelmäßig zu trai- 
nieren und anfängliche Proble- 
me durch Wiederholung der 
Übungen zu beseitigen. Wenn 
Sie das beachten, wird Ihnen 
dieses Lernprogramm sicher- 
lich schnell die ersten Erfolgs- 
erlebnisse bescheren. 


Die Lernerfolge mit »Key- 
board-Master« sind wirklich er- 
staunlich, So mancher unserer 
Redakteure hat sich die Lektio- 
nen »reingezogen« und seine 
‚Tipfelereien« enorm reduzie- 
ren können. Wer seine Kennt- 
nisse im Maschineschreiben 
verbessern will, sollte sich 
das Programm unbedingt an- 
sehen. 

»Keyboard-Master« wurde in 
Amiga-Basic verfaßt. Trotzdem 
ist die Arbeitsgeschwindigkeit 
sehr hoch. 


Das Listing 


»Keyboard-Master« finden 
Sie auf der Programmservice- 
Diskette zu diesem Sonder- 
heft. Ein Abdruck des Listings 
erschien uns unsinnig: Erstens 
ist das Programm sehr lang, 
und daher zum Abtippen kaum 
geeignet. Ein weiterer Grund 
sind die Übungsdateien. Wie 
gesagt, besteht der Kurs aus 
zwanzig Kapiteln mit verschie- 
denen Übungen. Diese müß- 
ten also, damit das Programm 
überhaupt lauffähig ist, eben- 


Bitte wählen Sie einen Menüpunkt durch Tastendruck 


« Auswertung 
« Voreinstellungen 


«u. Proganm beenden 


ptnenn 


Lektion/Textübung auswählen 


Übungstext eingeben 


Bild 1. Das Hauptmenü von »Keyboard-Master« 
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A NWENDUNGEN 


falls eingegeben werden. Da 
dies sehr mühsam wäre, ha- 
ben wir uns also entschlossen, 
»Keyboard-Master« im Heft 
nicht abzudrucken. 

Sie finden also auf der Dis- 
kette zu diesem Sonderheft 
das Basic-Listing unter dem 
Namen »KeyboardMaster« zu- 
sammen mit den Files »Lektion 
1.l« bis »Lektion 20.1« und der 
Übungsdatei »test.k«. Kopie- 
ren Sie alle Dateien auf eine 
Diskette, auf der sich Amiga- 
Basic befindet. Vor dem Start 
muß darauf geachtet werden, 
daß der deutsche Zeichensatz 
aktiviert ist (vom CLI aus mit 
„system/setmap d« aktivieren). 

Die beiden Zeilen nach dem 
»CLEAR«-Befehl am Listing- 
Beginn enthalten zwei »De- 
fault«-Werte, die Sie Ihren Ge- 


sten 


pen wollen, drücken Sie ein- 
fach die RETURN-Taste und 
der von Ihnen im Programm- 
text voreingestellte Name wird 
verwendet. Als Filename wäre 
zum Beispiel Ihr Vorname sinn- 
voll. Das Programm hängt übri- 
gens selbständig an den ein- 
gegebenen Namen ».k«an, um 
es als Kursdatei von anderen 
Files zu unterscheiden. Beim 
ersten Start des Programms 
wird dann die Kursdatei mit 
dem entsprechenden Namen 
auf Wunsch auf Diskette er- 
zeugt. Auf der Diskette befin- 
det sich übrigens bereits eine 
Kursdatei unter dem Namen 
»test.k« Wenn Sie das Listing 
entsprechend angepaßt ha- 
ben, speichern Sie es erneut. 
Die Arbeit mit dem Programm 
kann nun beginnen, 
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Bild 2. Die erste Übung hat begonnen 


gebenheiten anpassen kön- 
nen: »drive$« stellt die Lauf- 
werksbezeichnung dar, die im- 
mer dann benutzt wird, wenn 
beim Laden der Kursdatei kein 
Laufwerk gesondert angege- 
ben wird. Sinnvoll wäre hier, 
das Laufwerk (»df0:« oder 
»dfl:«) anzugeben, von dem 
Sie gewöhnlich\das Programm 
laden werden. Direkt darunter 
steht der voreingestellte Name 
der Kursdatei. In dieser Datei, 
die das Programm für jeden 
Benutzer gesondert anlegt, 
stehen die Informationen über 
die bearbeiteten Lektionen 
und die erzielten Ergebnisse. 
Der Name dieser Datei wird 
beim Programmstart immer er- 
fragt. Wenn Sie nicht jedesmal 
denselben Filenamen eintip- 


Die ersten 
Schritte 


Nach dem Start mit »RUN« 
werden Sie zuerst nach dem 
Namen der Kursdatei gefragt 
(siehe oben). Wollen Sie den 
vorgegebenen Namen ver- 
wenden, drücken Sie nur 
<RETURN>. Anschließend 
wird die Kursdatei geladen. 
Wenn sie unter diesem Namen 
noch nicht existiert, werden 
Sie gefragt, ob eine neue ange- 
legt werden soll. Beantworten 
Sie mit»n«, können Sie den Na- 
men nochmals eingeben. Tip- 
pen Sie »j« (was Sie beim er- 
sten Start tun sollten), legt das 
Programm eine neue Datei an. 
Falls Sie eine bereits existie- 
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rende Kursdatei überschrei- 
ben wollen, müssen vor dem 
eigentlichen Filenamen drei 
Sterne und ein Leerzeichen 
eingegeben werden. Achtung: 
Alle Daten in dieser Datei ge- 
hen dabei verloren! Wichtig ist, 
daß Sie die Diskette mit der 
Kursdatei immer im Laufwerk 
lassen, solange Sie mit dem 
Programm arbeiten. 

Sie befinden sich nun im 
Hauptmenü (Bild 1). Dabei wird 
Ihnen auffallen, daß das ganze 
Programm über die Tastatur 
‚gesteuert wird. Schließlich soll 
deren Bedienung ja erlernt 
werden. Zudem kann die Be- 
dienung auch ohne Maus kom- 
fortabel und einfach sein. 

Einige Menüpunkte, die im 
Moment noch nicht sinnvoll 
sind, fehlen und sind nicht 
wählbar. Im folgenden werden 
alle Menüpunkte der Reihe 
nach besprochen. Beginnen 
Sie jedoch nicht sofort, den 
Kurs durchzuarbeiten. Das 
sollten Sie erst dann tun, wenn 
Sie auch die Hinweise zur 
Durchführung des Kurses ge- 
lesen haben. Dies soll Sie aber 
nicht daran hindern, die Funk- 
tion des Programms beim Le- 
sen der Bedienungsanleitung 
auszuprobieren. 
<F1> - Lektion/Textübung 
wählen 

Mit der Funktionstaste 
<F1> gelangen Sie vom 
Hauptmenü in ein Untermenü, 
in dem alle 20 Lektionen auf- 
gelistet sind. Wählen Sie eine 
davon aus, indem Sie die je- 
weilige Zahl, gefolgt von 
<RETURN>, eingeben. Im 
Anschluß daran werden alle 
Lektionen in den Speicher ge- 
laden. Wenn Sie später weitere 
Lektionen anwählen, erfolgen 
keine weiteren Zugriffe auf die 
Diskette. Wenn Sie keine regu- 
läre Lektion bearbeiten wollen, 
sondern einen beliebigen 
ASCII-Text üben wollen, 
drücken Sie statt einer Zahl nur 
die RETURN-Taste und Sie 
werden nach dem Filenamen 
des Textes gefragt. Tippen Sie 
den Namen des gewünschten 
Files ein. Nach dem Ladevor- 
gang gelangen Sie wieder ins 
Haupt-Menü. 
<F2> - Lektion starten 

Je nachdem, ob Sie eine 
Lektion oder einen Übungstext 
geladen haben, hat dieser Me- 
nüpunkt den Titel »Lektion xx 
starten« oder »Textübung star- 
ten«. Nach Betätigen von 
<F2> werden zunächst eini- 
ge Daten aus der Kursdatei ge- 
laden und der wichtigste Teil 
des Programms beginnt. 

Auf dem Bildschirm wird ein 
Abbild einer Amiga-Tastatur, 
die an jene des Amiga 500 an- 


gelehntist, gezeichnet (Bild 2). 
Die Querlinien mitten im Ta- 
stenfeld sollen am Anfang hel- 
fen, alle Tasten mit dem richti- 
gen Finger anzuschlagen. Die 
Hilfslinien trennen also den 
»Zuständigkeitsbereich« der 
einzelnen Finger voneinander. 
Die helle Linie in der Mitte stellt 
die Trennung zwischen rechter 
und linker Hand dar. Wenn in 
den Voreinstellungen (<F7>) 
das Zeichnen der Hilfslinien 
nicht angeschaltet ist, sind die- 
se natürlich nicht zu sehen. 
Genauso verhält es sich mit 
der Hilfstastatur und der Anzei- 
ge der jeweils zu drückenden 
Taste (siehe unten). 

Der Bildschirmaufbau benö- 
tigt einige Sekunden, jedoch 
nur beim ersten Aufruf dieses 
Programmteils. Danach ist die 
Grafik im RAM gespeichert. 
Ganz oben sehen Sie die Sta- 
tuszeile, in der Sie lesen kön- 
nen, welche Lektion Sie gera- 
de bearbeiten, welche Num- 
mer die aktuelle Zeile hat und 
in welchem Teil der Lektion 
(Griff-, Wort- oder Satzübung) 
Sie sich im Moment befinden. 
Darunter wird die Anzahl der 
Fehler angezeigt, die Siein der 
aktuellen Zeile gemacht ha- 
ben. Noch weiter unten sehen 
Sie in einem farbigen Feld den 
Klartext der jeweiligen Zeile. 
Unter dieser befindet sich ein 
nach oben zeigender Pfeil, der 
auf das Zeichen zeigt, das ein- 
getippt werden muß. 

Im unteren Teil des Bild- 
schirms befindet sich noch ein 
gelber Kasten, der als Hilfe für 
den Benutzer die möglichen 
Tasten am Zeilenende beinhal- 
tet. Ist der Bilschirmaufbau ab- 
geschlossen, ertönt ein Sum- 
men, das zeigt, daß es losge- 
hen kann. Sie müssen nun 
Buchstaben für Buchstaben 
aus der angezeigten Textzeile 
abtippen. Der Pfeilwandert da- 
bei von Zeichen zu Zeichen 
mit. Um Sie davon abzuhalten, 
spähende Blicke auf die Com- 
putertastatur zu werfen, wer- 
den die zu drückenden Tasten 
auf der Hilfstastatur hervorge- 
hoben (sofern in der Voreinstel- 
lung) diese Funktion aktiviert 
wurde). 

Machen Sie einen Fehler, 
hören Sie einen Piepston und 
der Pfeil verwandelt sich unter 
dem falsch getippten Zeichen 
in ein Ausrufungszeichen (»!«). 
Die Fehleranzeige wird um 
eins erhöht. Tippen Sie nun 
das Zeichen richtig, bekommt 
der Cursor (Pfeil) wieder sein 
normales Aussehen und Sie 
können weitertippen. Am Zei- 
lenende angelangt erscheint 
an Stelle des Cursors ein 
Linkspfeil»—« und Sie können 
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nun die  RETURN-Taste 
drücken, um in die nächste Zei- 
le zu gelangen, die ESC-Taste, 
um die Lektion ohne Spei- 
chern der Ergebnisse abzubre- 
chenoder <+>, um die getipp- 
te Zeile nochmals einzugeben. 
In der Gesamtwertung werden 
dann nur jene Fehler, die beim 
weiteren Durcharbeiten der 
Zeile gemacht wurden, be- 
rücksichtigt. 

Um die Funktionsweise aus- 
zutesten und sich daran zu ge- 
wöhnen, sollten Sie einmal ei- 
ne Zeile abtippen, am Zeilen- 
ende aber nicht die RETURN- 
Taste drücken, sondern 
<ESC>. Schließlich handelte 
es sich nur um einen Versuch, 
und ein Speichern der Ergeb- 
nisse ist wohl kaum erwünscht. 


Der Computer 
weiß alles... 


‚Am Ende jeder Lektion wer- 
den die erzielten Ergebnisse, 
sowie allgemeine Angaben zur 
Lektion, am Bildschirm ange- 
zeigt (Bild 3) und in die Kursda- 
tei gespeichert. So weiß das 
Programm immer, welche Lek- 
tion Sie schon durchgearbeitet 
haben, wieviel Fehler Sie da- 
bei gemacht haben und wie 
schnell Sie beim Tippen wa- 
ren. Genauso ist der Computer 
— und damit auch Sie — stän- 
dig im Bilde darüber, wieviel 
prozentual falsch gemacht 
wurde und wie viele Anschläge 
pro Minute Sie erreicht haben. 
Schließlich ist er auch noch 
darüber informiert, ob und wie 
oft Sie einzelne Lektionen wie- 
derholt und sich dabei verbes- 
sert oder verschlechtert ha- 
ben. Erwähnenswert ist hierbei 
auch die grafische Anzeige 
des Fehlerprozentsatzes. All 
das schauen Sie sich am be- 
sten erst an, wenn Sie mit dem 
eigentlichen Kurs ernsthaft be- 
ginnen wollen, denn die Bedie- 
nung dieses Programmteils er- 
klärt sich von selbst. 
<F3> - Übungstext 
eingeben 

Dieses Lernprogramm gibt 
Ihnen nicht nur die Möglich- 
keit, fertige Lektionen zu bear- 
beiten, es können vielmehr 
auch eigene Texte eingegeben 
werden, die Sie zur Übung ab- 
tippen können. Dieser Pro- 
grammteil ist ebenfalls weitge- 
hendselbsterklärend. Es bleibt 
nur zu bemerken, daß Sie die 
Eingabe der Zeilen (maximal 
20 Zeilen, je Zeile höchstens 
78 Zeichen) mit einer Leerzeile 
abschließen müssen, um ins 
Hauptmenü zu gelangen. Dort 
werden Sie bemerken, daß un- 
ter »F2« nun »Textübung star- 


ten« angeführt ist. Schließlich 
wollen Sie jetzt Ihren Text bear- 
beiten, nicht die Lektion. Das- 
selbe gilt beim Laden eines 
Übungstextes (siehe oben). 
<F4> - Lektions-/ 
Ubungstext anzeigen 

Über diesen Menüpunkt 
wird der aktuelle Lektionstext 
beziehungsweise der eingege- 
bene oder geladene Übungs- 
text angezeigt. Dabei fallen 
hier die violetten Zahlen am 
Zeilenanfang auf. Diese zei- 
gen an, wie oft jede Zeile abge- 
tippt werden muß. 
„Bei der Eingabe eines 
Übungstextes wird übrigens 
automatisch eine »1« vor jede 
Zeile geschrieben. Auch wenn 
Sie eine ASCII-Datei laden 
(Menüpunkt 1), wird jede Zeile, 
die nicht mit einer Ziffer be- 
ginnt, mit einer »1« am Zeilen- 
anfang ergänzt. Bei den Lek- 
tionstexten können Sie mit ei- 
nem ASCII-Editor die Anzahl 
der Wiederholungen leicht än- 
dern. Beachten Sie jedoch, 
daß nur die erste Ziffer als Wie- 
derholungszahl erkannt wird. 
Diesen Programmteil verlas- 
sen Sie, indem Sie eine beliebi- 
ge Taste betätigen. 


<F5> - Übungstext 
speichern 

Dieser Menüpunkt kann nur 
dann gewählt werden, wenn 
Sie zuvor einen Übungstext 
geladen oder eingegeben ha- 
ben. Das Programm fragt Sie 
nach dem gewünschten File- 
namen. Wollen Sie den Text 
doch nicht speichern, drücken 
Sie nur <RETURN>. 


<F6> - Auswertung 

In diesem Programmteil wer- 
den die Daten, die die Kursda- 
tei über die einzelnen Lektio- 
nen enthält, angezeigt (Bild 4). 
Lektionen, die noch nicht bear- 
beitet worden sind, werden da- 
bei dunkel dargestellt. Die an- 
gewählte Lektion wird beson- 
ders gekennzeichnet. Das Feld 
»Differenz FQ« enthält, wenn 
die Lektion mehr als einmal be- 
arbeitet worden ist, die Diffe- 
renz des neueren Fehlerquo- 
tienten (FQ) zum älteren. Hier 
sehen Sie, ob Sie sich beim 
Wiederholen verbessert oder 
verschlechtert haben. Direkt 
daneben befindet sich eine 
weitere Spalte, die Ihnen noch 
unbekannt ist: Unter »Punkte« 
wird für jede Lektion eine be- 
stimmte Zahl angegeben, die 
etwa mit einer Note vergleich- 
bar ist. Bei Punktewerten unter 
50 werden dahinter drei Ausru- 
fungszeichen geschrieben, 
was bedeutet, daß Sie diese 
Lektion unbedingt wiederho- 
len sollten. Werte über 100 sind 
sehr gut. In die Punktwertung 
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benötigte Zeit: 
Anschläge pro Minute: 


Hiederholung der Lektion: 


Ergebnis 
Anschläge: 662 
Fehler: 4 
Fehlerquote: 7.40% | 
BEE 


9 Minuten, 35 Sekunden 
Ü) 
keine 


Drücken Sie eine Taste 
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Bild 3. Die Auswertung gibt Aufschluß über den Lernerfolg 
und Ihren momentanen Leistungsstand 


geht neben einigen anderen 
Faktoren hauptsächlich der 
Fehlerquotient ein. 

<F7> - Voreinstellungen 

Mit <F7> gelangen Sie in 
den Programmteil, in dem Sie 
verschiedene Voreinstellun- 
gen (vergleichbar mit Preferen- 
ces der Workbench) ändern 
können. Diese Änderungen 
werden in die Kursdatei ge- 
schrieben und bei jedem er- 
neuten Laden der Kursdatei im 
Programm berücksichtigt. 

Sie haben sechs Möglichkei- 
ten, Einstellungen und damit 
den Programmablauf zu verän- 
dern. Eshandeltsich dabei um 
»Schalter«, wobei durch Druck 
auf die links neben der jeweili- 
gen Bezeichnung stehende 
Zahlentaste zwischen zwei 
Stellungen hin- und herge- 
schaltet werden kann. Bei eini- 
gen Schalterkombinationen 
nimmt das Programm selb- 
ständig Änderungen der Stel- 
lungen vor, das heißt es verhin- 
dert unlogische Kombinatio- 
nen. Kommen wir nun zur Be- 
deutung der einzelnen Schal- 
ter: 

Wenn Schalter 1 ausge- 
schaltet ist, wird die Hilfstasta- 
tur nicht mehr angezeigt. 

Schalter 2 ist für die Hervor- 
hebung derjeweils zu drücken- 
den Tasten auf der gezeichne- 
ten Hilfstastatur zuständig. 

Mit Schalter 3 wird be- 
stimmt, ob die Textzeile immer 
angezeigt wird oder nicht. Es 
ist sinnvoll, diese auszuschal- 
ten, wenn man sich voll auf die 
Griffe und die Hilfstastatur kon- 
zentrieren möchte. 

Ist Schalter 4 ausgeschaltet, 
wird das Zeichnen der Hilf 
nien auf der Tastatur unter- 
drückt, da diese mit der Zeit 
störend wirken können. 


Wenn Sie das automatische 
Wiederholen einzelner Zeilen 
unterdrücken wollen, müssen 
Sie Schalter 5 ausschalten. 
Dies ist dann sinnvoll, wenn 
Sie eine Lektion schon oft be- 
arbeitet haben und diese nur 
kurz auffrischen wollen. 

Mit dem sechsten und letz- 
ten Schalter wählen Sie 
schließlich das Default-Lauf- 
werk (df0: oder dfi:), das im- 
mer dann verwendet wird, 
wenn bei Filenamen keine 
Laufwerksangabe gesondert 
angegeben wird. Auch die Lek- 
tionstexte werden stets von die- 
sem Laufwerk geladen. Bitte 
verwechseln Sie diese Einstel- 
lung nicht mit dem Default- 
Laufwerk, das Sie vor dem er- 
sten Programmstart im Listing 
direkt eingestellt haben. Die- 
ses Laufwerk gilt nur für die 
Kursdatei, ansonsten hat das 
in diesem Programmteil einzu- 
stellende Laufwerk Priorität. 

Mit <ESC> werden even- 
tuelle Änderungen in die Kurs- 
datei gespeichert und Sie kom- 
men zurück ins Hauptmenü. 
ESC - Programm beenden 

Mit <ESC > im Haupt-Menü 
verlassen Sie das Programm. 


Der Kurs beginnt 


Ich hoffe, Sie haben nun die 
ersten Gehversuche mit 
Keyboard-Master hinter sich 
und brennen darauf, endlich 
den Kurs zu beginnen. 

Dazu greifen Sie zunächst, 
ohne das Programm zu star- 
ten, die Grundstellung, die Sie 
in Tabelle 1 (Seite 35) finden. 
Diese Fingerstellung ist sehr 
wichtig, prägen Sie sich diese 
ein und versuchen Sie mehr- 
mals, diese zu finden, ohne auf 
die Tastatur zu sehen. 
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Bild 4. Durch das Anlegen einer Kursdatei auf Diskette 
wissen Sie ständig über Ihren »Wissens-Status« bescheid 


Sie sollten nun das Pro- 
gramm erneut starten und ei- 
nen beliebigen Filenamen für 
die Kursdatei (etwa Ihren Vor- 
namen) eingeben. Wenn Sie 
bei den ersten Versuchen 
schon eine Datei unter diesem 
Namen erstellt haben, geben 
Sie drei Sterne und ein Leer- 
zeichen vor dem eigentlichen 
Namen ein, so daß in jedem 
Fall eine völlig neue Kursdatei 
angelegt wird. Nun sehen Sie 
sich die aktuellen Voreinstel- 
lungen des Programms mit 
<F7> an. Ändern sollten Sie 
zunächst allerdings nur das 
Default-Laufwerk, um es Ihren 
Gegebenheiten anzupassen. 
Gehen Sie zurück ins Haupt- 
menü und drücken Sie <Fi>. 
Dort geben Sie »1« gefolgt von 
<RETURN> ein. Nach dem 
Ladevorgang können Sie die 
Lektion starten. Bitte sehen Sie 
sich aber vorher die folgenden 
zehn Grundregeln (das sollten 
Sie zur besseren Einprägung 
möglichst vor jedem Starteiner 
Lektion tun) an: 

1. Arbeiten Sie möglichst regel- 
mäßig mit dem Programm. 

2. Bearbeiten Sie an einem Tag 
nur eine Lektion. 

3. Wiederholen Sie jede Lek- 
tion am besten mindestens ein- 


mal. 

4. Lassen Sie sich nicht von an- 
fänglichen Schwierigkeiten 
entmutigen. 


5. Greifen Sie die Grundstel- 
lung jedesmal blind. 

6. Sehen Sie nie auf die Tasta- 
tur, orientieren Sie sich an der 
Hilfstastatur am Bildschirm. 

7. Der Anschlag erfolgt kurz 
und ruckartig aus dem Muskel 
heraus. 

8. Gehen Sie nach jedem An- 
schlag schnell in die Grund- 
stellung zurück. 


9. Tippen Sie langsam, aber 
gleichmäßig im Takt. 

10. Halten Sie die Handgelen- 
ke möglichst hoch. Die Hand 
darf nicht flach auf der Tastatur 
liegen, sie muß angewinkelt 
sein. 

11. Es kann nicht schaden, 
wenn Sie Ihre Finger mit einer 
speziellen Gymnastik trainie- 
ren. 

Noch ein Hinweis zu Lektion 
12: Beachten Sie, daß eine zu 
»shiftende« Taste, die sich im 
rechten Teil der Tastatur befin- 
det, immer zusammen mit der 
linken SHIFT-Taste (und umge- 
kehrt) angeschlagen wird. Das 
Programm unterstützt Sie da- 
bei, indem immer die richtige 
zu drückende SHIFT-Taste 
hervorgehoben wird. 

Haben Sie sich all dies zu 
Herzen genommen, kann es 
losgehen: Drücken Sie <F2> 
und tippen Sie nun alle Zeilen 
der Lektion ein. Schließen Sie 
jede Zeile mit <RETURN> 
ab. Werden Sie nicht beijedem 
Fehler nervös. Errare huma- 
num est! (lat.: Irren ist mensch- 
lich!) Bleiben Sie konzentriert 
und denken Sie daran, daß die 
ersten Lektionen die schwie- 
rigsten sind. 

Sind Sie mit der Lektion fer- 
tig, werden Ihnen die Ergebnis- 
se gezeigt. Hinter Fehler, Feh- 
lerquotient und Anschläge pro 
Minute stehen je zwei Zahlen, 
jedoch nur dann, wenn Sie die 
Lektion insgesamt mindestens 
zweimal bearbeitet haben. Die 
zweite Zahl stellt jeweils die 
Differenz zum Ergebnis des 
letzten Mals dar. Die Anzeige 
der Anschläge je Minute soll- 
ten Sie bei den ersten Lektio- 
nen einfach übersehen. Sie 
sind beim Lernen völlig un- 
wichtig und werden in der 
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Punktewertung kaum berück- 
sichtigt. Wichtig ist, daß Sie 
möglichst gleichmäßig tippen 
und wenige Fehler machen. 
Wenn Sie nun vom Haupt- 
menü mit <F6> die Auswer- 
tung aufrufen, können Sie sich 
die erreichte Punktzahl anse- 
hen. Sie sollten diese jedoch 
nicht mit Schulnoten verglei- 
chen. Denken Sie daran, daß 
Sie hier völlig ohne Druck ler- 
nen. Die Punkte und auch die 


Tippgeschwindigkeit sollen Ih- 
nen vor allem als Vergleich die- 
nen, wenn Sie schon einige 
Lektionen hinter sich haben. 
Punktwerte unter »50« sind je- 
doch ein Warnzeichen dafür, 
daß Sie diese Lektion wieder- 
holen müssen. Wenn Sie mehr 
als»80« Punkte erreichen, kön- 
nen Sie sehr zufrieden sein, 
Werte über »100« oder gar über 
»120« sind sehr gut. 

M. Jobst/kn 


Linke Hand: 
Ringfinger 
Mittelfinger 
Zeigefinger 


-ao» 


kleiner Finger 


Rechte Hand: j Zeigefinger 
Mittelfinger 


Ringfinger 


ö kleiner Finger 


Tabelle 1. Die Grundstellung beim Maschineschreiben ist 


die Basis für alle Übungen 


 Eigenba 


Von Arno Gölzer 


enn auf dem Mond 
riesige Meteore ein- 
schlagen und dabei 


gewaltige Krater hinterlassen, 
so geschieht das vollkommen 
lautlos. Schuld daran ist die feh- 
lende Lufthülle. Der Schall ist 
eine hörbare oder zumindest 
nachweisbare Schwingung, die 
sich nur in einem Medium, bei- 
spielsweise in der Luft oder im 
Wasser, verbreitet. Jedes Ge- 
räusch hat seine eigene, indivi- 
duelle Schwingung und kann 
daher eindeutig identifiziert 
werden. Aber auch eine — zu- 
mindest annähernde — mathe- 
matische Beschreibung ist 
möglich. Wir unterscheiden 
zwischen vier Grundschwin- 
gungen: 
- Sinus 
- Rechteck 
- Dreieck 
- Sägezahn 

Die Klangfarbe eines Tones 
machen aber im wesentlichen 
die sogenannten Oberschwin- 
gungen aus. Es handelt sich 
um mehr oder weniger große 
‚Abweichungen von der eigentli- 
chen Wellenform. Der Amiga 
läßt uns in bezug auf das Aus- 
sehen der Wellenform völlig 
freie Hand. Somit ist es mög- 
lich, beliebige Geräusche 
künstlich zu erzeugen - wir 
müssen nur die Wellenform ent- 
sprechend beschreiben. Diese 


Sounds im 


Mit dem »Sound-Effekte-Editor« 
erzeugen Sie komfortabel 
alle Geräusche. Vom einfachen 
akustischen Hinweis auf 
Eingabefehler bis zum Kanonen- 
donner in Spielen reicht das 
Spektrum. Der Clou: Die Sounds werden 
als Quellcode gespeichert und 
sind so leicht für eigene Programme 
zu verwenden. 


Aufgabe wird mit dem Sound- 
Effekte-Editor (SEEd) (Listing 1) 
zum Kinderspiel. 

Nach dem Eingeben des 
Programms mit dem Check- 
summer (Seite 159) und dem 
Compilieren starten Sie SEEd 
vom CLI aus, indem Sie den 
Programmnamen eingeben 
und <RETURN> drücken. 
Haben Sie ein Programm-Icon 
für SEEd entworfen, können 
Sie den Soundgenerator auch 
von der Workbench aus starten. 
Wichtig ist in jedem Fall, daß 
sich im Verzeichnis »Libs« die 
Mathematik-Libraries befinden 
(mathtrans.library). 


Von der Welle 
zum Klang 


Nach dem Programmstart 
öffnet sich ein Fenster, das in 
zwei Felder unterteilt ist (Bild 1): 

1. Das Bedienungsfeld belegt 
das rechte Viertel des Bild- 
schirms. Es besteht aus insge- 
samt zwölf Reglern (Gadgets). 
Lesen Sie im folgenden deren 
Funktion: 


TPNWVHOMESOMPUTERWORLD.COM 


Großer Schieberegler links: 

Grobeinstellen der Fre- 
quenz. Schieben Sie den Re- 
gelknopf nach unten, wenn Sie 
niedrigere Frequenzen einstel- 
len möchten. 


Großer Schieberegler rechts: 
Feineinstellen der Frequenz. 
Mit den beiden Frequenzreg- 
lern können Sie über 65000 
Frequenzen einstellen! 
Kleiner Schieberegler links: 
Hier stellen Sie ein, wie oft 
der eingestellte Klang wieder- 
holt werden soll. 
Kleiner Schieberegler rechts: 
Die Lautstärke. 
Null: 
Wellenform auf Null stellen 
(waagerechter Strich erscheint). 


Null 


Sinus 


Hulti 


Bild 1. Das SEEd-Fenster. Im linken Teil bearbeiten Sie den 
gewünschten Sound, rechts befinden sich alle Regler. 
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Sinus: 

Einstellen der Wellenform 
auf Sinus. 
3Eck: 

Eine Dreieckschwingung 
wird eingestellt. 

SZahn: 
Vorwahl 
schwingung. 

REck: 

Die “Rechteckschwingung 
einstellen. 

Die voreingestellten Schwin- 
gungen können jetzt beliebig 
verändert werden (siehe un- 
ten). Allerdings ist in diesem Zu- 
stand der Klang nicht immer op- 
timal. Verbessern Sie die Quali- 
tät, indem Sie mehrere Schwin- 
gungen im Zeichenfeld unter- 
bringen: 

Multi: 

Eingestellte Schwingung ver- 
doppeln. 
Save: 

»Geräusch« auf Diskette si- 
chern. Ein Requester öffnet 
sich, Geben Sie den Filenamen 
an und klicken Sie das Gadget 
mit der Aufschrift »Save« an 
(oder »Break«, wenn Sie lieber 
nicht speichern möchten). 
Quit: 

Mit diesem Schalter brechen 
Sie das Programm ab. 

Im weiß hinterlegten Zei- 
chenfeld können Sie vorgeferti- 
ge Schwingungen verändern 


Sounds zeichnen 
mit der Maus 


oder aber völlig neue entwer- 
fen. Drücken Sie die linke 
Maustaste und »zeichnen« Sie 
Ihren Soundeffekt. Die besten 
Ergebnisse erhalten Sie, wenn 
Sie die Höhe des Zeichenfeldes 
möglichst voll ausnutzen. Im 
anderen Fall sind die Schwin- 
gungen nur schlecht hörbar. 

Weiterhin ist es von Vorteil, 
wenn Schwingungsanfang und 
-ende auf gleicher Höhe liegen. 
Nutzen Sie auch hier die Multi- 
Funktion zur Verbesserung der 
Soundqualität, Sie hören den 
Klang, wenn Sie die rechte 
Maustaste betätigen. Bei den 
Grundschwingungen ist aller- 
dings selten ein Ton zu hören. 
Keine Angst, das Programm 
funktioniert trotzdem fehlerfrei. 
Verdoppeln Sie die Grund- 
schwingung mehrfach, ent- 
locken Sie dem Amiga bereits 
einen Klang. 


Begrenzen 
der Wellenform 


Mit den orangefarbenen Mar- 
kierungen im Zeichenfeld kön- 
nen Sie den Anfang und das 
Ende der Wellenform selbst 
festlegen. Bedienen Sie die 


der Sägezahn- 


Märkierungen mit dem Ziffern- 
Block der Tastatur: 

<7> Startmarkierung nach 
links, 

<9> Startmarkierung nach 
rechts, 

<8> Startmarkierung 
Start. 

Da das Datenfeld auf einem 
Langwort (Longword) beginnen 
muß, erfolgt die Bewegung der 
Startmarkierung in 4er- 
Sprüngen. 
<4> Endemarkierung nach 
links, 


auf 


Einbindung in 
C-Programme 


<6> Endemarkierung nach 
rechts, 
<5> Endemarkierung auf 
Ende. 

Das Ende des Datenfeldes ist 
nicht an bestimmte Speicher- 
bereiche gebunden. Daher ist 
hier noch eine Feineinstellung 
in Einerschritten möglich: 
<1> Endemarkierung einen 
Schritt nach links, 
<3> Endemarkierung einen 
Schritt nach rechts, 
<2> Endemarkierung auf 
Ende. 

Das Einbinden eines SEEd- 
Sounds in C-Programme ist 
sehr einfach, da SEEd den 
Sound als C-Quellcode ablegt. 
Folgende Schritte sind nötig: 
-Binden Sie die SEEd-Datei 
als Headerfile in Ihr eigenes 
Programm ein. 

- Rufen Sie zu Beginn Ihres ei- 
genen Programms die Funktion 
SoundOn() auf. Die Funktion 
liefert im Fehlerfall den Wert 1. 

Ihr Sound ist nun initialisiert 
und Sie können ihn jederzeit 
und beliebig oft abspielen: 

- »Play()« spielt den Soundef- 
fekt ab. 

- Rufen Sie vor Beendigung 
Ihres Programms die Funktion 
»SoundOff()« auf. Sie gibt alle 
für den Soundeffekt notwendi- 
gen Ressourcen wieder frei. 

Play() und SoundOff() liefern 
keinen Wert. 

Hier ein kleines Beispiel: 


#include "SoundName” 


main() 
\ if(!Soundon())[ 
Play(); 
Soundoff(); 
) 
} 


Aztek-C-Besitzer übersetzen 
dieses Beispiel so: 
cc NAME.c +L 
in NAME.o -1032 


Anstelle von »NAME« muß 
natürlich der Name Ihres Pro- 


AMIGASÖNDERHEFTE 


A NWENDUNGEN 


gramms stehen. Programmie- 
rer anderer Programmierspra- 
chen profitieren immer noch 
von den gesicherten Soundda- 
ten. Deshalb enthält Listing 2 
für den Interessierten zum 
Schluß noch das dokumentier- 
te Listing einer SEEd-Sound- 
datei. Mit dem SEEd geben wir 


Ihnen ein wertvolles Werkzeug 
zur Erzeugung von Sounds in 
eigenen Programmen in die 
Hand. Ein Werkzeug, das die 
Soundprogrammierung unge- 
mein erleichtert und das Sie be- 
stimmt bald nicht mehr missen 
wollen. 

Arno Gölzer/kn 


Programmname: SEEd 
Computer: A500, A1000, A2000 mit Kickstart 1.2 
Sprache: C 
Compiler: Aztek V3.4 
Aufrufe: cc SEED.c +L 
In SEEd.o -Im32 -Ic32 
Bemerkung: benötigt Math.-Libraries 


mo Gölzer 


1 200 /* 
ap 9 
ZU PR. #* 
mr, 


Gölays SEBd.c 
08.88 


#1nclude 
# include 
# include 
#incolude 
# include 
# include 
#inolude 
#define GH (OxFFFF/255) 
define GL (OxFFFR/255) 
define GC (OxFFFR/64) 
mdefine GV (OxFFFP/64) 
#define 
#derine 
#define 
#define CAD_ID (((struct 
APTR ADDR; 

VLONG CLASS, CODE; 


<math.h> 
<stalo.n> 
<exeo/types.h> 


BB 

6. 

7 a4 

BnL 

Ina 

a0 nY 
um 
12 Y« 
23 8 
14.16 
2 
16.06 
ERRCR 
18m 
ig Le 
20 sa 
ER 
22 15 
"- Göluy's SEEd -*-"; 

(23 Mn UVORD 1,h,p,0,V5 
24 xh 

25 Xu 

28 85 

Name 
28 0y 

en 


RT Start=0, Ende=510; 
‚SHORT Okpairs[] = 
SHORT Regpairs[] - 
SHORT Spairs[] = 
struct Border OkRand =| 
NULL IE} 

etruet Border Red =[ 
NULL IE 

struct Border SRand «| 
NULL 1; 

struet IntuiText OKT2 ={ 
"NULL 1; 

struot IntuiText OKTexte| 
",KOKT2 1; 

struet IntulText SaText=[ 
"NULL, 1; 

struot IntuiText MText =| 
Ar,NuIL 15 

struot IntulText Rfext =| 
"NULL IE 

struet Intulfext ZText ={ 
nu 1; 

struet Intuilext DText ={ 
"NULL 1; 

struot IntulText SText =| 
er,  ]; 

struet IntuiText NText =[ 


30 us 
31.70 
32 6p 
3m 
EN 
35 m 
36 On 
37.60 
38 88 
ma 


40.22 


<intuttion/intultion.h> 
<graphlos/gtx.h> 

<devices/audio. 
<exeo/menory.h> 


ENDE (((Ende-Start)/2)+1) 
MOUSX (win- > Mousek) 
MOUSY (win->MouseY) 


UBYTE *Date,buffers15,name[31],undo[31],Titel[)=(UBYTE #) *- 


struct Inage HDunny ,LDunny ‚CDunmy,VDunny; 


Listing 1. Mit dem Sound-Effekte-Editor (SEEd) 
entwerfen Sie Geräusche mit der Maus 


h> 


Gadget #)ADDR)-> GadgetID) 


0,0, 61,0, 61,21, 0,21, 0,0 |; 
0,0, 246,0, 246,67, 0,67, 0,0 1; 
0,0, 210,0, 210,11, 0,11, 0,0 ]; 
1, -1, 1,0, JAN1, 5,&0kpaire[0], 
2, 1, 1,0, JANL, 5,4Regpairs[0], 

-1, -2, 1,0, JANL, 5,85pairs[0], 

1,0,JAM1,14,6,NÜLL, (UBYTE #) "QUIT 
3,0,JAM1,15,7,NULL, (UBYTE *) "QUIT 
1,0,JAM1,14,6,NULL, (UBYTE #) “Save 
1,0,JAM1,10,6,NULL, (UBYTE %) "Mult 
1,0,JAM1,14,6,NULL, (UBYTE *) REck 
1,0,JAM1,10,6,NULL, (UBYTE *) "5Zah 
1,0,JAN1,14,6,NULL, (UBYTE *) "3Eck 
1,0,JAN1,10,6, NULL, (UBYTE *) "Sinu 


1,0,JAM1,14,6,NULL, (UBYTE #) "Null 


125 


„wur 1; 
4L al struct IntuiText RegT2 =| 1,0,JAM1,45,6,NULL,Titel,NULL 
3; 
42 yx struet IntuiText Regt ={ 3,0,JAM1,46,7,NULL,Titel,&RegT2 
bi 
43 13 struct IntuiText RCaT =| 1,0,JAM1,10,6,NULL,(UBYTE #) "Brea 
K,NuLL 1; 
44 FC struct IntuiText RTGT =[1,0,JAK1,70,-10,NULL, (UBYTE #) "Fil 
enane: *,NULL] ; 
45 g& struct PropInfo Piiinfo =| FREEVERTIAUTOKNOB,0,0, 0,CH,0 
»0,0,0,0,0 }; 
46 V7 struot PropInfo PLInfo =| FREEVERTI AUTOKNOB,0,61#255,0,6L,0 
‚0,0,0,0,0 ]; 
47 Vu strust PropInfo CInfo =| FREEVERTI AUTOKNOB,O,00#64, 0,60,0 
»0,0,0,0,0 |; 
48 be struet PropInfo VInfo =| FREZVERTIAUTOKNOB,0,0, 0,0V,0 
‚0,0,0,0,0 |; 
49 96 struct StringInfo Sinfo=| name,undo,0,31,0,0,0,0,0,0,0,0,NU 
ıL li 
50 UM struct Gadget RToad ={ NULL,20,30,210, 10,GADGHCONP, 
51 cU4 GADGINNEDIATEI RELVERIFY,STROADGETI REQGADGET, 
52 wb (APTR) &SRand, NULL, ARTGT,0, (APTR)&Sinfo,14,NULL 
li 
53. 6dD struct Gadget Ra =[ ARTGad,20,45,60,20,GADCHCONP, 
54 oc4 _ENDGADGETI GADGIMMEDIATEI RELVERIFY ,BOOLGADGETI REQGADGET, 
55 04 (APTR) &OKRand, NULL, ACT, 0,0,13,NULL 
"5 
56 weO struct Gadget Rük ={ 4RCa,170,45,60,20,GADGHCONP, 
57 rt4 ENDGADGETI GADGIMMEDIATEI RELVERLFY, BOOLGADGETI REQGADGET, 
58 w3 (APTR) 8OKRand, NULL, 8SaText,0,0,12,NULL 
1; 
59 muD struct Gadget OKGad =[ NULL,579,235,60,20,GADGHCONP, 
60. r84  GADGIMMEDIATEIRELVERTFY, BOOLGADGET, 
61 IP (APTR) &OKRand, NULL, 80KText,0,0,11,NULL 
IB 
62 6d0 struct Gadget Sacaa =I &0K0ad,579,211,60,20,GADGHCONP, 
63 uB4 GADGIMMEDIATEI RELVERIFY ,BOOLGADGET, 
64 Us (APTR) &0KRand, NULL, 8SaText,0,0,10,NULL 
I 
‚65 NOO struct Gadget Miad = &SaGad,579,187,60,20,GADGHCONP, 
66 xE4 GADGIMMEDIATEI RELVERIFY,BOOLGADGET, 
67 TV (APTR) &0KRand NULL, 3MText,0,0,9,NULL 
1; 
'68 MaD struct Gadget AOad =[ 24024, 579,163,60,20,GADGHCONP, 
69 0i& GADGIMMEDIATEIRELVERIFY,BOOLGADGET, 
70 ek (APTR) &0KRand, NULL, &RText,0,0,8,NULL 
1; 
71 £VO struct Gadget ZCad = &RGad,579,139,60,20,GADGHCOMP, 
72 3K4 GADGIMMEDIATEI RELVERIFY, BOOLCADGET, 
73 v8 (APTR) &0KRand NULL, &2Text,0,0,7,NULL 
1; 
74 ouO struct Gadget Did =| 82024,579,115,60,20,GADGHCOMP, 
75 604 GADGIMMEDIATEI RELVERIFY ,BOOLGADGET, 
76. E4 (APTR)&0KRand, NULL, &DText,0,0,6,NULL 
); 
77 RO struct Gadget Sad =| 200ad,579,91,60,20,GADGHCOMP, 
78 904 GADGIMMEDIATEIRELVERZFY, BOOLGADGET, 
79 In (APTR)LOKRand, NULL, &SText,0,0,5, NULL 
IB 
80 vy0 struct Ondget Noad =[ 46024,579,67,60,20,CADCHCONP, 
81 014 _GADGINMEDIATEI RELVERZEY, BOOLOADGET,, 
82 ar (APTR)BOKRand ‚NULL, ANText,0,0,4,NULL 
li 
83 YaO struct Gadget Voad =| 3N0nd,608,0,30,64,0,0,PROPOADGET, 
du eid (APTR) &VDunmy‚NULL,NULL,0, (APTR)&VInfo,3,NULL 
5 
85 SDO struct Gadget CGnd = 4V0ad,577,0,30,64,0,0,PROPGADGET, 
86 pO4 (APTR) &CDunmy ‚NULL,NULL,O, (APTR)&CInfo,2,NULL 
1; 
87 430 struct Gadget POadL ={ 30024,546,0,30,256,0,0,PROPCADGET 


88 Qi (APTR)&LDummy ‚NULL, NULL,O, (APTR)&PLInfo,1,NULL 
bi 
89 u10 struct Gadget PcadH =| 3PGadL,515,0,30,256,0,0,PROPGADGE 
1 
90 moh (APTR) &HDunny ‚NULL,NULL, 0, (APTR)&PHInfo,0,NULL 
li 
‚91 3i0 struct Requester Reg«| NULL,10,10,250,70,0,0, 
92 KL SROk,ERegR, kRegT,0,0,NULL,NULL,NUEL,NULL, NULL 
1; 
93 a00 struct NewWindow 34 =[ 
4 Gud 0,0,640,256,-1,-1, VANILLAKEYI MOUSEBUTTONSI GADGETUP,, 


95 x2 ACTIVATEI BORDERLESSI RMBTRAP, &PGedH, NULL, NULL,NULL, NULL, 

9 0,0,0,0,WBENGHSCREEN 
1; 

97 w40 struct Library sOpenlibrarz(); 

98 Hq struct Intuilessage "GetHsg(); 

99 b1 struct MsgPort *SPort,*CreatePort(); 

100. 09 struct Device »SDev,*OpenDevice(); 

101 vE struct IntuitionBase *IntuitionBase; 

102 3D struct GfxBase “GfxBase; 

103 Ns struct MathTransBase “MathTransBase; 

104 Np struct Window #uin,*OpenWindow(); 

105 Ls struct RastPort “RP; 

106 yO_ struct 1OAudio Sound; 

107 Bd VOID elosew() /* zum Progrannende alle Re 

sourcen freigeben #/ 

208 99 | 

109 5R& 1f(1SDev) CloseDevice(&Sound) 

110 g0 1f(SPort) DeletePort(SPort,sizeof(struct MagPor 
Mi 

ı1 iu 1f(Date) Freeiem (Data, 256*sizeof(UBYTE)); 

203 irn) Closelindow(win) ; 

13 85 if(NathfransBase) CloseLibrery(HathTransBase); 

114 de if(GfxBase) CloseLibrary(GfxBase) ; 

151 if(IntuitionBase) CloseLibrary(IntuitionBase); 

16m  exitlo); 

2117 %0 } 


w, Cnipfemory ... %/ 


19ıK | 
120 2i4 UBYTE *AllocHem(); 
221 0p Af(!(IntuitionBases(struct Intultiondase X) 
122 BuC OpenLibrary("intuition.library”,0))) elose 
“O0; 
23x84 if(1(GfxBsse-(struct GfzBase *) 
124 svc OpenLibrary("graphics.library”,0))) close 
"0; 
125 n24 1f(! (NathTransBese=(struct MathTransBase *) 
126 foc OpenLibrary("sathtrans.library”,0))) eloge 
“Os 
127 64 fl! (winOpenWindow(334))) elose 
0; 
128 hE 12(1 (Data=AllooMen(256*s1ze0f(UBYTE) ‚NEMF_CHIP))) close 
“0: 
129 Af(! (SPort=Createort(SPort”,0))) lose 
“05 
130 Ta Sound.1oa Request.io essage.mn ReplyPort =SPort; 
ur uS Sound.ioa Request.10_Message.an_ Node. In Pri=10; 
132 08 Sound.ioa Data =&buffer; 
133 Rd Sound.ioa Length=(ULONG)siseof(buffer); 
134 70 42 (SDevsOpenDevie(AUDIONANE,O,4Sound,0)) lose 
v3 
135 17 Sound.ioa Request. 1o_Conmand=CHD_WRITE; 
136 Sound.ioa_Request.1o_Flags =ADIOF_PERVOLI TOR_QUICK; 
137 U RP =win->RPort; 
138 EJ0 ] 
139 Je ULONG Getessage() /# Nes 
il yab struct Intuilessage Amen; 
142 Ko CLASS=CODE=0; 
13 KE ADDR-NULL 
14 yD Af(nesGetNsg(win->UserPort) | CLASS=mea-> Class 
Mom CODEsmes-> Code; 
146 z6 ADDRenes-> IAddres 
s 
au at ReplyMag(mes) ; 
148 Ot4 } 
149 no return(CLASS); 
150 quo ] 


451 Eh VOID SetPoint(x,y) 
chenfeld ausgeben #/ 


152 ar4 
153 Ky 
154 Qt0 [ 
155 004 
156 hE 
157 6E 
158.90 
159 4R 
160 Pe 
161 yb 


/# Progranmstert: Libraries, Windo 


/* Punkt (inel. Linie) im Zei 


SHORT. 
UBYTE y; 


SHORT col; 

Sol=2#((xesEnde)l1 (x==Start)); 
Data[x/2]=127-y; 
SetDrAd({RP,JAN1); 
SetäPen(RP,1+001); 
Nove(RP,x,0); 

Draw(&P,x,255); 


 Sl261 WW HOMECOMPUTERWORLD.SCM 
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162 9k Move(RP,x+1,0); 

163. Es Draw(RP,x+1,255); 

164 RG SetäPen(RP, 2); 

165 x6 WritePixel(RP,x,y); 

166 09 WritePixel(RP,x+1,y); 

367 100) 

168 33 VOID Newi() /* neue Werte für Period, Oyele 

und Volune lesen */ 

16918 | 

170. 0P4 1-PLInfo.VertPot/6L; 

17138 _ h=PHInfo.VertPot/CH; 

17208 pe256khel; 

173 52 (p<1242124:p); 

17 21 -$4-CInfo.VertPot/C0; 

19538 e=(e==01:c); 

176 RU ve64-VInfo. Vertot/CV; 

177 20 ] 

178 4a Play() 

* Klang abspielen */ 

a7 pI | 

ABO 94 Nevu(); 

181 xL Sound.ioa Data =DatasStart/2; 

182 47 Sound. 1oa_Length=ENDE; 

183 90 Sound.ioa Perict 

184 m Sound.ioa_Cycle: 

185 MX Sound. ioa_Volume=‘ 

186 u4 BeginIO(&Sound) ; 

187 gL Weit1o(&Sound) ; 

188 2x0 ) 

189 a8 VOID Save() 

190 07 [ 

191 2 COUNT 1,3; 

192 EU FILE #file; 

193 42 Newul); 

194 eQ  1F(Pile=fopen(nane, "u”))[ 

195 tR5 fprintf(file,”/* -*- $5 - erstellt mit Gölay's SEEd 
-%-  #/\n\n”,nane); 

196. 11 fprintf(file, "#include <devices/audio.h> \r 

197 ar fprintf(file, "#include <exec/menory.h>\n"); 

198 62 fprintf(file, "#define Play(); Beginlo(&Sound); WettIo 
(4Sound) ;\n\n”); 

199 tF tprintf(file, "UBYTE buffer=15,*SData,SD[54]=[\n\t”,ExD 
BD; 

200 Pa tor(isStart/2,j=0;1<sEnde/2;i++,i+)| 

201 Rag fprint£(£ile, "83d”,Data[i]); 

202 11 if(ttsEnde/2) fprintf(file,”,”); 

203 50 4e(je=15)[ fprint£(file, An\t 

204 uQ je; 

205 09 ] 

206 Kp5 ] 

207 Rn Spränt£(?ile, "n] z\n”); 

208 de printf(file, "extern struct NsgPort\t#Createrort();\n” 
i 

209 97 fprintf(file, "extern struct Device\t#OpenDevice();\n”) 

210 u2 tprintf(file, "struct MsgPort\t\t*SPort;\n”); 

211 #6 fprintf(file, "struet Deviee\t\t#SDev;\n”); 

212 kr fprintf(file, "struct IOAudio\t\t Sound;\n\n”); 

213 c# tprintf(file, "VOID Soundof?()\n{ \n”) 

214 DC forintf(file, \tif(1SDev)\tCloseDevice(kSound) ;\n”); 

215 Wo forintf(file, \tif(SPort)\tDeletePort(SPort,sizeof(str 
uet MsgPort));\n”); 

216 08 #printf(File, "\tif(SData)\tFreeNem(SData,23) ;\n] \n\n”, 
ENDE); 

217 mı tprintf(file, "SHORT Soundon()\nf \n”); 

218 41 fprintf(file, \tUBYTE *AllocHem();\n”); 

219 86 £printf(file, "\tCOUNT i;\n\n”) 

220 ca Pprint£(Pile, \tir(!(SData-Allocken(Sä,MENF_CHIP)))\tr 
eturn(1);\n”,ENDE); 

221 RL Porinte(File, \tfor(1-0;1<fd;1+)\n\t\tSDetafi]-SD[3] 
5\n“,ENDE); 

222 zu fprintf(file, "\tif(!(SPort=CreatePort(\"SPort\”,0)))[\ 
2"); 

223 es fprintf(file, \t\tSoundof?() \n\t\treturn(1);\n\tj\n”) 

224 m Forint?(File, \tSound.ioa Request. io Nessege.un ReplyP 
ort=SPort;\n"); 

225 1X forintf(file, \tSound.ioa Request. io Message.un Node.1 
nPri=10;\n“) 

226 fw fprintf(file, \tSound.ioa Data=kbuffer;\n"); 

227 k2 fprintf (File, \tSound.ioa Length-(ULONG)siseo?(buffer) 

z ar); 

228 2x forint£(file, \tir(SDev=OpenDevice(AUDIONANE,O, &Sound, 
Ola; 


223 85 Sprintf(?ile, \r\tSoundoff();\n\t\tretum(1) ;\n\t] \n”) 
230 8 fprintf(file, "\tSound. ion Request. io_Conmand\t=OMD_WRI 
\n”); 

231 12 Sprint? (file, "\tSound.ioa Request. 1o_Flags\t=ADIOF_PER 

232 gr £print£(file, "\tSound. ioa Data\t\t\t=SData;\n”); 

233 m \tSound. oa Length\t\t=8d;\n”,ENDE); 

23% 12 Zprintf(file, "\tSound.ioa _Period\t\t=(UWORD)$d;\n*,p); 

235 I fprintf(file, ‘\tSound.10a Volume\t\t=44;\n”,v); 

236 15 fprintf(file, ‘\tSound.1oa_Cycles\t\t=(UMORD) SA; \n*,c); 

237 #4 fprintf(file, \treturn(0);\n] \n”); 

22% felose(file); 

29m |] 

240 je <ise DisplayBesp(0); 

241 ©00 } 

242 98 VOID CheckRea() IX Reques 
ter kontrollieren */ ö 

23 8 | 

244 Has HORT regelear=0; 

245 U; while(regolear==0)[ 

246 108 Getensage(); 

247 45 AF(CLASS==GADGETUP)[ 

248 610 switch(GAD_ID)[ 

249 gic case 12:[ 

250 IkK Save(); 

251 I regolear=1; 

252 28 break; 

253 5aG ] 

254 or sase 13:[ 

255 bok regelear=1; 

256 3C break; 

257 9e6 ) 

258 v0 default:break; 

259 BgC 3 

260 ChB j 

za |) 

262 80 | 

263 Vj VOID nain() 

26 ct | 


265 124 SHORT xe0,y=0; 
266 po B00L ende=0; 
267 19 COUNT 1,J; 
268 ng FLOAT X; 


269 mo openw(); 

270 5t SetaPen(AP, 1); 

271 v0 ReotFil1(RP,0,0,510,256) ; 

272 10 for(1s0;1<912;1422)  SetPoint(1,127); 

273 ix watle(tende)| 

27% 085 Wait(1< <win->User?ort->mp_SigBit); 

295 le Getlessage(); 

276 32 switen(CLAss)| 

277 &7C case VOUSZBUTTONS:| 

278 206 12 {CODE==MENUDONN) | 

29 TR Play(); 

280 12 while (CODE!=MENUUP) GetMessage(); 

281 226 I 

282 ai else if(CODE==SELECTDOWN)[ 

283 CK shile(CODE!=SELECTUP)[ 

23% &80 Getlessage(); 

285 0m AP (x1=MOUSX)I1 (yi=Mousz))[ 

286 u:s X=HOUSX; 

237 21 JeMOUSY; 

288 ıı if(x<=510) SetPoint(2%(UBYTE)( 

(FLOAT)x/2.0),y)5 

289 210 } 

290 euK } 

291 nOG ] 

292 au break; 

293 j20 } 

294 mm Case GADGETUP:| 

25 rm switch(GAD_ID)[ 

236 = sase 4: /& Mu %/ 

297 nor forli=0;1<51251+=2)  SetPoint(t 
27); 

238 is break; 

299 pur } 

300.65 ease 5:| /* Sinus a/ 

301 162 torl420;3<2j)| 

302 ige for(i=0;1<256;14=2)[ 


Listing 1. (Fortsetzung) 
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303 DYX k=sart((FLOAT) ((256-1)*( 372 v4 
256-1) +81); 373 4ML 
304 ob k53?-k+128.0:k-128,0; 374 ie /% Ende rechts */ 
305 nu SetPoint(1+256%5, (UBYTE)K) 375 L7P Ar(Ende<510)[ 
; 376 b9T Ende+=2; 
306 uRT } 377 01 SetPolnt(Ende-2, (BYTE)(127-Dat 
307 xSP I al(Ende-2)/2])); 
308 +2 break; 378 13 SetPoint(Ende, (BYTE) (127-Dataf 
309 aUL } Ende/2])); 
310 £U case 6:|  /# 3Eok #/ 373 Tor } 
311 asp tor(g=0;J<2;,4#)l| 380 30 break; 
312 var For(1-j#256;1< 1284825651422) 381 9eL ) 
{ 382 Ok case 52:| /* Ende Links schnell %/ 
313 dyk KFLOMT) 18.7; 383 dzP 12((Ende>8)&((Ende-8) >Start))| 
314 ır = 2%+204.0:128.0-k; 384 D5T Ende-=8; 
313 20 SetPoint(t, (UBYTE)K); 385 67 SetPoint(Ende+8, (BYTE) (127-Dat 
318 8bt aL(Ende+8)/21)); 
317 0v 386 B SetPolnt(Ende, (BYTE) (127-Dataf 
Ende/2])); 
318 13% 387 Fup } 
319 02 388 BK bresk; 
320 au 389 HnL j 
321 Bgr 390 Wa case 54:| /* Ende reohts schnell */ 
322 ChP 391 hap "  1F(Ende<506)| 
323.8 392 nr Ende+=B; 
324 EjL 333 ın SetPoint(Ende-8, (BYTE) (127-Dat 
325 29 af(Ende-8)/21)); 
326 sVP 3 3 SetPoint(Ende, (BYTE) (127-Datal 
327 jHT Ende/2])); 
395 NsP ] 
328 4DX 39 15 break; 
329. ne SetPoint(1, (UBYTE)K) ; 397 PuL j 
330 KpT } 398 m case 50: 
331 c } for(1+128+3#25651<256+5#256;i 399 ıH case 53 /% Ende-Position */ 
+2) 400 0£P de; 
332 Nix 78 (FLOAT) (3%256+436-1) 5 402 up Ende=510; 
333 al Setpoint(1, (UBYTE)X) 402 wi SetPoint(i, (BYTE) (127-Data[1/2])); 
334 otT } 403.10 SetPoint(510, (BYTE) (127-Data[255]) 
335 Pup } )i 
: 336 10 break; 404 Ra break; 
337 RuL ) 405 x2L } 
338 ae case 8:[ /# Recheck #/ 406 Te case 55:| /% Start Links &/ 
339 5iP tor(j=0;1<2:5)[ 407 r2P if(Stert>=8)[ 
340 2u7 1#256;1< 128458256; 1+=2) 408 npt Start-=8; 
SetPoint(1,38); 409 3% SetPoint(Start+8, (BYTE)(127-Da 
341 a1 =128+5 2565 1<256+5%256;1 ta[(Start+8)/2])); 
SetPoint(1,218); 410 v2 SetPoint(Start, (BYTE)(127-Data 
342 up [Stert/2])); 
343 5b 411 d8P } 
344 Ya. ) ku zı break; 
345 52 case 9:| /* Amal #/ 413 Eau ) 
346 yar fort. 1<256;14=2,j++) Datalj] 4i4 Op case 57:| /% Start rechts */ 
-Data[i]; 415. 50P 12( (Start <504)84( (Start+8) <E 
347 08 for(1s128;1<256;14+) Datafi] Mi 
=Datafi-128]; 416 gRT Start+=8; 
348 Au for(1s0;1<51251422) SetPoint(1,(B 417.29 SetPoint(Stant-8, (BYTE) (127-Da 
YTE)(127-Data[1/21)); ta[(Start-8)/2])); 
349 Xh break; 4i8 37 SetPoint(Start, (BYTE) (127-Data 
350 E91. j (Start/2])); 
351 8u case 10:| /* Save #/ 419 10P } 
352 tep Request(&Req,win); 420 ha break; 
353 zu CheckRea(); 421 nIL ) 
354 dm break; 422 Ng case 56:| /* Start-Position #/ 
355 jEL } 423 08P 4-Start; 
356 MN case i1:[ 424 wE Start=0; 
357. NnP ende=1; 425 35 SetPoint(i, (BYTE)(127-Data[i/2])); 
358 ha break; 426 p8 SetPoint(0, (BYTE) (127-Data[0])); 
359 nIL j 427 0x break; 
360. Ae defaultzbreak; 428 upL } 
361 pka ) 429 HL efault:break; 
362 lu break; 430 wnH } 
363 NO } 451 break; 
364 Yn Case VANTLLAKEY: | 432 y10 j 
365 UnG suiteh(CODE)[ 433 Ip default:break; 
366 dUL case 4 /% Ende Links */ 434 0v8 ! 
367 bpP Af((Ende>2)&&((Ende-2) >Start))| a) 
368 #57 Ende-=2; 436 Is elosen(); 
369 m SetPoint(Ende+2, (BYTE)(127-Dat / 437 300 } 
al(Ender2)/2])); (6) 1989 NET 
370 av SetPoint(Ende, (BYTE) (127-Data[ 
Ende/2])); 
371 aup ] Listing 1. (Schluß) 
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NWENDUNGEN 


'hipnemory kopieren */ 


jort kreieren */ 


weisung %/ 


spriorität#/ 
egen %/ 


Be des Buffers */ 


/% Audio-Device öffnen */ 
P% hat appt */ 


j ? auf die Sounddaten #/ 


Soundon() 


der Werte (U 


UBYTE *AllocMen(); 


/X Null: ai 


En Listing 2. Ein dokumentiertes Listing zum Quellcode einer 
Sounddatei, die vom SEEd erzeugt wurde 


HEES- 


DIEABENTEUER ET NIERZEEOIPFIPNM FIDEESIE 


Teichnungen: Rolf Bouke 


AS MUSS ICH ICH ) 
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FALSCHES FORMAT, TUNGE 


AMIGA-SONDERHEFTEO SOON TTRWOR.H LO 129 


ETIKETTEN 


Werden es aber mehr und mehr Disketten, verliert man 

den Überblick. Die Zeit, die man für das Suchen ver- 
schwendet, wird immer länger. Etiketten für 3-'-Zoll-Disketten mit 
den Namen der wichtigsten Dateien helfen das Gesuchte schnel- 
ler zu finden. 

Um diese Etiketten zu drucken, gibt es verschiedene Wege. 
Einen wirklich komfortablen geht »DiskEti«. Das Einlesen der Da- 
teinamen geschieht durch das Programm. Somit entfällt schon 
viel Tipparbeit. Welche Namen auf das Etikett gedruckt werden, 
entscheiden Sie durch Anklicken mit der linken Maustaste. Die 
Namen können auf Wunsch editiert werden. All diese Gründe 
sprechen für die Wahl von DiskEti zum Programm des Monats. 

Für manche Routinen braucht Amiga-Basic die Unterstützung 
des Betriebssystems. Damit das funktioniert, benötigt DiskEti die 
vier Dateien: 

D dos.bmap U exec.bmap 
ED graphics.bmap D intuition.bmap 

Sie finden diese Dateien auf Ihrer Extras-Diskette. Nicht vor- 
handene».bmap«-Dateien generieren Sie wie im Artikel»NeueDi- 
mensionen in Basic«, Ausgabe 1/89, Seite 147, beschrieben. Ko- 
pieren Sie die Dateien in dasselbe Verzeichnis, in dem DiskEti 
und Amiga-Basic stehen. Nach dem Start erscheint zunächst ei- 
ne Kurzanleitung zum Programm. Nach einem Klick mit der linken 
Maustaste sehen Sie die Arbeitsfläche des Programms (Bild 1). In 
dem Fenster sind alle benötigten Schalter zu sehen. Es werden 
keine Pull-Down-Menüs verwendet. 


M eist steht auf den Diskettenaufklebern nur ein Name. 


RÜDIGER HOFNER 


Rüdiger Hofner, der Autor von »Disk- 
Eti«, bezeichnet sich selbst als »Opa 

am Computer« und das im Alter von 30 
Jahren, Den ersten Computerkontakt 
hatte er Ende 1984 mit einem VC 20, den 
er sich kaufte, um seinen Kindern in ein 
paar Jahren nicht unwissend in Sachen 
Computer gegenüberstehen zu müs- 
sen. Aus dem »nur mal sehen« wur- 
de ein richtiges Hobby. Als näch- 
ster Computer folgte, wie sollte es 
anders sein, ein © 64. Im Jahr 

1987 war es dann soweit, ein Amiga kam ins Haus. Sein näch- 
ster Schritt wird das Lernen der Programmiersprache C sein. 
Von dem 2000-Mark-Gewinn (Programm des Monats im AMI- 


GA-Magazin 2/89) kaufte er eine Festplatte und gute Software, 
ie 


Das Programm wartet nun auf die Auswahl eines Laufwerks. 
DiskEti unterstützt die Laufwerke DFO: und DFi:. Klicken Sie ei- 
nen der beiden Schalter (»df0:« oder »df1:«) an. Im oberen Textfeld 
am rechten Fensterrand sehen Sie nun den Namen der Diskette. 
Wie später auch die einzelnen Programmnamen, kann er editiert 
werden. Um das zu tun, klicken Sie den Schalter »Name ändern« 
an. Der Name erscheint im Textfeld darunter. Dort kann er verän- 
dert werden. Folgende Tastenkombinationen stehen Ihnen dabei 
zur Verfügung: 

— <Shift - Cursor links>: Der Cursor springt an den Anfang. 
— <Shift-Cursorrechts>: Der Cursor wird an das Ende gesetzt. 
— <rechte Amiga - x>: löscht die Zeichenkette. 

Die Tasten <Del> und <Backspace> sind wie gewohnt be- 
legt. Mit <RETURN> übernehmen Sie den Namen. Wollen Sie 
ihn verbessern, klicken Sie erneut auf »Name ändern«. 

Sieht die Zeichenkette wie gewünscht aus, klicken Sie den 
Schalter»übernehmen« an. Der Name wird dann in das unten dar- 
gestellte Etikett eingetragen. Natürlich ändern Sie damit nicht 
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Es ist gut, viele 
Disketten mit 
vielen Program- 
men zu haben. 
»DiskEti« erleichtert 
Ihnen durch Eti- 
ketten die Suche in Ihren Be- 

ständen. Komfortable 

Bedienung ist dabei Trumpf. 


den Namen der Datei auf Diskette, sondern nur den Namen für 
den Ausdruck. 

Mit dem Schalter »nächste Datei« übergehen Sie Dateien, die 
nicht auf den Aufkleber gedruckt werden sollen. Genauso ist 
»nächstes Dir« zu verwenden. Es läßt ein gesamtes Unterver- 
zeichnis aus. Das ist sinnvoll, wenn es sich zum Beispiel um stän- 
dig wiederkehrende Verzeichnisse wie LIBS: handelt. 

Nachdem Sie nun den Diskettennamen festgelegt haben, fol- 
gen die einzelnen Dateien. Dabei werden Unterverzeichnisse, 
».info«-Dateien und ».fastdir«-Dateien nicht berücksichtigt. Als er- 
stes zeigt Ihnen DiskEti die Dateien im Hauptverzeichnis der Rei- 
he nach an. Sind sie bearbeitet, folgen die Dateien in den Unter- 
verzeichnissen. Pro Subdirectory kann das Programm 100 Einträ- 
ge verwalten, die vor der Anzeige alphabetisch sortiert werden. 

Sollten Sie beim Arbeiten merken, daß sich die falsche Diskette 
im Laufwerk befindet, ist das kein Problem. Durch Aktivieren von 
»andere Diskette« kehrt DiskEti zum Programmanfang zurück. 
Dann legen Sie die richtige Diskette ein und beginnen von vorne. 

Wenn Sie den Ausdruck starten wollen, betätigen Sie den 
Schalter »ETIKETT DRUCKEN«. Es erscheint ein Requester, mit 
dem Sie entweder den Ausdruck beginnen oder zum Programm- 
start zurückgehen. Ist das Etikett voll (32 Einträge), bringt DiskEti 
automatisch den Requester. Dies geschieht auch, wenn auf der 
Diskette kein Eintrag mehr zu finden ist. 

Beendet wird das Programm durch Betätigung des Schließ- 
symbols (close gadget) links oben. 

DiskEti arbeitet in der abgedruckten Version mit Epson-kompa- 
tiblen Druckern. Das Umstellen auf andere Drucker ist, dank der 
sauberen Programmierung, aber kein Problem. Die für Ihren 


DiskEti VL.2. witten in 1908 by R. Hofner 


nas1 aD: BasioDenn: 


ie Date) steht zu Bearbeitung an  ı 


m 
Fiiany 


Hane Andern _|[ nächste Daten |]. 


Bild 1. Das ist »DiskEti« bei der Auswahl der Dateinamen 
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ANWENDUNGEN 


MIT PFIFF 


Drucker gültigen Sequenzen finden Sie im Handbuch. Folgende 
Zeichenketten werden verwendet, um den Drucker anzusteuern: 
— esc$ : das Escape-Zeichen, das Steuersequenzen einleitet; 
— init$ : Steuersequenz zum Initialisieren des Druckers; 
— fett$ : Einschalten des Fettdrucks; 
— abstand$ : dient zur Festlegung des Zeilenabstands in ", Zoll. 
Hier ist bei einigen Druckern eine zweite Sequenz nötig, um den 
eingestellten Abstand zu aktivieren. Beim Star NL-10 funktioniert 
dies so: 

PRINT #1,esc$; "A”;CHR$(6) 

PRINT #1,8sc$;”2” 
— klein$ : Stellt die Schriftart Supersoript (hochgestellt) ein. In 
Verbindung mit dem geänderten Zeilenabstand passen so mehr 
Daten auf das Etikett. 
— eng$ : Druck in Schmalschrift (132 Zeichen pro Zeile); 
— elite$ : die Sequenz, die den Drucker anweist, in der Schriftart 
Elite zu drucken (12 Zeichen pro Zoll); 
— Endes$ : stellt wieder den normalen Zeilenabstand her. 

Die Festlegung dieser Zeichenketten geschieht in dem Unter- 
programm »Etikett« ab Zeile 627. Die entsprechenden Sequenzen 
entnehmen Sie Ihrem Druckerhandbuch. Doch dies ist wie ge- 


sagt nur notwendig, wenn Ihr Drucker mit der vorliegenden Ver- 
sion nicht richtig arbeitet. 


Die Endlosetiketten für 3'-Zoll-Disketten sind in jedem gut sor- 


tierten Schreibwarenhandel erhältlich. R. Hofner/R. Beaupoil/kn 


LabelMaker 


AmigaBasic |  Etikett-Ed 
AddBuffers H Assien- 
BindDrivers Break 
: ChangeTaskPri 
ı  deie 
h DIRKUNELRE H 
! :  Bild2. 
1 Ein Aus- 
| druck von 
i  »DiskEti« 
H mit einem 
j Epson- 
Drucker 


Programmname: DiskEti 


Computer: A500, A1000, A2000 
mit Kickstart 1.2 & 1.3 


“ Sprache: Amiga-Basic 1.2 


Progranmautor ner 


Rüdiger He 


WHO CLEAR, 30000 
2 86, DEFLNG a-2 
ZN REN weh 
AU St 1,640,256,2,2 
3%) | PALETTE 0,0,0,1 
61D PALETTE 1,.9,.9,.9 
2.aW PALETTE 2,0,0,0 
@N LIBRARY 
939. LIBRARY 
20 HR WINDON CL 
AU U5 | WINDOW 2,,,0,1 
32 ne | Fensterd=WIND 
138y 
14.81 
15 im 
6 apl ueg=chRe(252) 

IT IK) LOCATE 3,18 

IS RI Schatten "Herzlich willkommen zu DISkEtL",0 


se 

20.D1 ‘eg erst mal ein paar kleine Anmerkungen: ",D 

ai v "Ich lese die Verzeichnisse einer”,1 

22 4p * von Ihnen bestimmten Diskette”,O 

23V “Dabei ist folgendes zu beachten: ”,0 

BANN 

2508 Schat: Ich iese maxinal 100 Files pro Verzeichnis”,O 

262 Scha Ich zeige keine Direotory-Nanen in der Auflist 
ung an,0 

205 Schatten ”- Ich zeige keine ;info-Datelen in der Auflistun 
g an’,o 

2829 Schatten ”- Die Nanen si nal 15 Zeichen lang”,0 

Sp Prnm 

30 1% "Die Dateien werden alphabetisch sortiert und ein 


"1 

31 44 Schatten ” angezeigt. Dann können ",0 

32 m Schatten "Sie diesen Dateinamen editieren, “rue$+"bersprin 
gen,”,1 

BWH Schatten ” zum Druck “+ue$+"bernehmen”,O, 

3478 Schatten "oder aber direkt in das nächste Untervergelchnis 
"1 


35\ep | Schatten "wechseln. Das Wechseln ",0 


36 A| Schatten "passiert automatisch an Ende eines Verseichniose 
8. "1 

AUTO Schatten "Von Ihnen "+ue$+"bernonnene*,O 

Ja Schatten "Dateien werden ständig angezeigt *,0 


39 "Der Name der Diskette wird auch zum Druck "Hieß+ 
men!!*,0 

40 1A "(Den können Sie aber auch änderni1)",O 

4lle PRINT 

AaaN Schatten "ACHTUNGELILE Ich "+ue$+"bernehne maximal 32 D 
ateinamen”,O 

4338 PRINT 

una Ss ‚ten linke Maustaste dr”+ueß+"oken .",0 

ae Maus 

46 10. LS 


ANEO LOCATE 12,29 

4B&M Schatten "Einen Moment bitte I 
AaDV LOCATE 14,18 

30 @% Schatten "Ich mu erst mal 'n paar ‚bmaps lesen. 
SONO LIBRARY "dos.library” 
LIBRARY 


„0 


aa 


55,90 


FUNOTION GetMag LIBRARY 
FUNCTION Openkindox LIBRARY 
FUNCTION Examineg LIBRARY 
FUNCTION ViewAddress LIBRARY 
INOTION ViewPortäddress LIBRARY 
‚AutoRequest LIBRARY 


D dir.Name$(x$) 
D dir.Typ$(x®) 
D infos(xf), Druck$(x%) 


Listing. Mit »DiskEti« bedrucken Sie Etikettenaufkleber 
schnell und komfortabel. Bitte mit dem Checksummer 
(Seite 143) eingeben. 
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STENER Fenster: 

‚76 MacheRend FelöRand, 1,150,14 

\ MecheRand Ausghanä,-1,-1,3,630,26 

MacheRand AusgRand1,-1,-1,3,260,14 

IntText EdiTet,1,1,31,2, Name Andern”,O& 
IntText WeiterTxt,1,1,23,2, "nächste Date1",0k 
IntText OkTxt,3,1,35,2, "Übernehmen ”,O& 
IntText GoonTxt,1,1,27,2, "nächstes DIR”,OE 
IntText d£OTxt,1,1,59,2, ”d£0:”,0& 

IntText df1Txt,1,1,59,2, "df1:”,0% 

Intfext Diskürt,1,1,15,2, "andere Diskette”,0& 
IntText Druektxt,1,1,19,2, "ETIKETT DRUCKEN”,0& 
IntText FrageTxt,1,2,10,8, "Wollen Sie wirklich aufnären ?? 


Jalxt,1,2,6,3,"Ja 11”,0& 
NeinTxt,1,2,6,3, Nein”,OE 
DruckFrageTxt,1,2,10,8,SPACES(11)+"Drucken 22",0£ 
‚Goonre1d,02,12,70,148,12,0,1,1, FeläRend, GoonTrt,Ok 


Eaitfeld, GoonFe14, 167,70,148,12,0,1,1,FeldRend, Edi 
Txt,0%,2 
FeldDef WeiterFeld, EäitFeld,322,70,148,12,0,1,1, FeldHan 
eiterTxt,0%,3 
Feldbef Okfeld,heiterfeid,477,70,148,12,0,1,1, FeldRand, Ok? 
xt,0&,4 
FeldDef ArOFeld,OkFe1d,12,89,148,12,0,1,1, PeläRand, dfüfxt, 
0&,5 
Felder dfiFeld,dr0Fe1d,167,85,148,12,0,1,1,FeldRand, äfiTx 
N 106,6 
FeldDef DiskFeid,äf1Feld,322,85,148,12,0,1,1,Peldäand, Diek 
Txt,0&,7 
FeläDef DruckFeld,DiskFe1d,477,85,148,12,0,1,1,FeldRand,Dr 
uokTxt,0%,8 
titelge"<-- ENDE” 

Atelfetitels+SPACE$(8)+DiskEst Vi.2 ” 
ar written in 1988 by R. Hofner” 
WINDOW CLOSE 2 
403 10 WINDOW 3,*”,(0,99)-(629,242),0,1 
soR WIO REM ae # 
105 091 FensterDef Nrenster,0,0,639,100,64+5125,84+4096&,DruckFeld 
‚titel 
Fensterkdresse-Openkindox(NFenster) 
IF FensterAdresse=0 THEN ERROR 7 
FensterP=PEEKL(Pensterädresse+50) 
FensterUP=PEEKL(FensterAdresse+86) 
DrauBorder FensterHP,AusgRand, 5,11 
DreuBorder FensterRP, AusgRand1,375,40 
DrauBorder FensterRP, AusgRand1,375,55 
CALL SetäPen(FensterRP,1) "Schriftfasbe f. Drucki euf nor= 
ale Vordergr,F, 
druckl "Folgende Datei steht zur Bearbeitung an 
druckl "Bltte editieren Sie den aktuellen Dateinamen. 
6 
GOSUB Zeichnektikett 
au "aDO Hauptprogramm: 
118 Jul GOSUB Felderkin 
Fuelie 6,11,631,36 
druckl "Bitte wählen Sie das Laufwerk aus . 
12 ih COSUB Neldungsschleife 
122 xp Fuelle 6,11,631,36 
123 20 LiesDir: 
a4 Fdı FOR schleifet = 


w 


‚9,19 


Jetztg 10 zaehlerz-1 


IF ak{schleifeg) = stufef THEN 
Such$=a$(schleifef) 
28 - 
zeigez=0 


Fuelle 6,11,631,36 

druck "Ich lese : “,9,11:druck1 a$(schleifeg),9,19 
Aruckl "Bitte ein wenig Geduld. .....7,9,27 
LiesDisk such$, x% 

IF fehler2=500 THEN 

neuge: 
(6010 nochnel 


IF schleifeg-0 THEN 
a$(0)-äir.Nane$(0)+":" 
Druck$(0)=LEFTS(e$(0) ‚LEN(eS(0))-2) 
Fuelle 6,11,631,36 
druckl Diskettennene:”,9,19 
IF LEN{Druck$(0)) > 15 THEN 


NEE Druck$(0)=LEFTS(Druck$(0),15) 
-a07 208 END IF 

N Gruckt Druck$(0) ‚388,41 

229 80 eäs-Druck$(0) 

350 2 GOSUE Meldungsschleife 

210 neuf = 1 THEN G0TO nochmai 

152 86 = Ir 

153m 28 = af(schleifeg) 

Au dir = LEFTS($,LEN(28)-1) 

5m Fuelle 6,11,631,36 

156 Pz äruckl "Verzeichnis :",9,11:drucki dir$,9,19 

157 02 FOR ansf = 1 TO mark 

358 bHB IF dir.Typ$(anz) <> "DIR" THEN 

159 350 IP RICHTS(dir.Names(anz$),5) <> ”.info” THEN 

160 SaF IF RICHT$(dir.Nane$(en2%),8) <> *.fastäir” 
HEN 

161 xo8 in2oS(zeige#)=dir.Nanes(anzg) 

182 51 geigefszeigef+l 

163 25F Em ır 

36 m zw ir 

165 023 zise 

166 1aD Ale1 

167 55 a$(zaehlerf)=a$(schleifef)+dir.Name$(ana)+"/ 

168 At ak(zaehlerf)=stufef+l 

169 00 zaehlerf=zaehlerf+1 

in 8 zu ır 

am vos NEXT anz$ 

mi) mm 

173 35 ausgabeg= 

374 28 Abfrage: 

175.05 IF ausgabeg < zeigeg THEN 

176 47 Anfo$(ausgabe$)-LEFT$(info$(ausgabef) ‚15) 

ım7 0p Fusiie 380,40,631,50 

178 X ruckl info$(ausgabef) ‚388,21 

2179 6% eds=info$ (ausgabe?) 

180 Be GOSUB Meldungsschleife 

d8ı kp IF neuß = 1 OR druckeng = 1 THEN GOT0 nochnel 

182 52 ausgabefzausgabef+1 

283 v2 GOTO Abfrage 


184 un zw IF 
289 231 NEIT schleifeg 


186 ha 

178 

188 8D4 

289 zu stufeg =stufefel 
390 «9 6010 LiesDir 
9 11 AD 


192 179 zochnel: 
193 Jpl IF neug = 0 THEN 


39% DE} Etikett 
195 551 DD IE 
196 J3 Fuelie 380,40,631,50 


19? is Auelle 9,84,317,97 

198 Ct GOSUB neuinit 

199 Ug 6070 Hauptprogramm 

200 610 Allesäus: 

201 zei CALL CloseWindow(Fensterädresse) 
202 QE CALL Speicherfrei 

203 XE, WINDOW CLOSE 3 

20. 30 zu == 

203 5A SCREEN CLOSE 1 

206 70 LIBRARY CLOSE 

279 zu 

208 970 Yelsungsschleife: 

203 31 Laur 
210 vg Hauptschleife: 

Zi »7 IF laufg =1 IHEN 

212093  IntulMeldung = Getisg(FensterUP) 

23 we IF Intuilleldung > 0 THEN GOSUB Intuttionkieldung 
214 0: GOID Hauptschleife 

2ls m mm Ir 

216 g50 zeruRi 

Zi7 3 Inzuitionkeldung: 

48 =61 WeläungsTzp-PZEKL(IntuiMeldung+20) 

219 &i Plete-PERKL(Intuikelaung+28) 

20 76 Feldlrg=PEEK(Pletz+39) 

Nsgs(Intuifeldung) 

F (MeldungsTyp=64&) THEN 

IF FeiaNez 
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ANWENDUNGEN 


Er FeldDef Ströad, 0%,389,37,150,12,0,1,4,0%,0%,EStxing,9 

229 00 CALL AddGadget(Fensterkdresse, StrGad,-1) 

230 u CALL RefreshGadgets(StrGad, Fensterädresse,08) 

238 1X CALL Activatetadget(StrGad, Fensterädresse,0&) 

232 693 EISEIF FeldNrg = 3 THEN 

233 26 Laurg=0 

234 3 ELSEIF FeldNeg = 4 THEN 

235 &u6 IF Druckf > 0 THEN 

236 ira Druck$ (Druck) =Infoß(ausgabef) 

237 1e6 END IF 

238 uT GOSUB Printout 

Sm ruck@+t 

20 20 

21 ms IF Druck? = 33 THEN Aruckeng = 1 

42 Xk3 EISEIF Felalieg = 5 IHEN 

223 016 Lauff=0 

ad 5 as(0)="af0:” 

205 N GOSUB FelderAus 

46 853 EISBIF Feldirf = 6 THEN 

AT EX6 1a 

248 ee s 

249 02 

250 023 

251 206 

252 sb 

253 va3 

25% 26 Leusg=0 

255 NG druckeng = 1 

256 213 EISEIF Feldrg = 9 THEN 

257 126 LiesEdit EString,r$ 

258 18 IF Druckf < 1 THEN 

253 N08 Drucks (0)=r$ 

260 1A Fuslle 380,40,631,50 

261 u &rucki Druck$(0),388,41 

262 zu CALL RenoveGadget(Fensterädresse,Stnad) 

263 88 CALL RefreshGadgets(GoonFe: Adresse, 0£) 

264 va6 BISE 

265 In8 infos (ausgabet)=r$ 

266 2G Fuelle 380,40,631,50 

267 9; druckt infoS(ausgabef) ‚388,41 

268 de © CALL Renoveüadget(FensterAdresse,Strüad) 

263 Km CALL RefreshGndgets(GoonFeld, Fensterhdresse,08) 

270 1B6 

273 30 376,55,631,66 

272 803 

2 el END IF 

276 K6 IF NeldungsTyp=512% THEN 

275 DI} AntwortshutoRequest(Fensteridresse,FrageTxt, JaTzt,NeinTx 
4,08, 0%,300,50) 

&6 U) | IF Antwort > 0 THEN COTO Alleskus 


AU RTL END IF 
278 950, RETURN 


ara 

220 = 0 TEN 

21 

282 COLOR 3,0 

283 LOCATE 1,15 

ah IT (50-LEN(Druck$(Druck%)))/2) 
285 PRINT SPC{v) ;Druck$(Druckk); 

226. COLOR 1,0 

287 zISE 

BB KB3 IF 1ofe1 THEN 

289 105 10CA 

290 #03 ELSE 

2a pls LOVATE 1018,24 

2923 END IF 

293 DU T((15-LEN(Druck$(Druck£)))/2) 
294 Ye ENT((15-LEN(Druck$(Druck#)))/2+.5) 
295 82 PRINT SPO(v) ;Druck$(Druckf);SPC(n) ;0HR$(32); 
206 Hu lofslof-l 

297 X 2 THEN 

298 174 

299 n0 Loig=loig-l 

300m) EM Ir 

301 ngl END 

302 200 RETURN 


303 


304 cAl neuf 
305 Ke Druck 
308 ©A  stufeg 
30T AT vaehlerg 
SUR dB jetuik 
aa ir 


310 x -0o 

311 za 3 

312 dg druckent = 0 

313 46 COSUB ZeichneEtikett 

314 Q20 RETURN 

318 fu FelderEin: 

316 OL CALL OnGsaget(d0Feld, Fensterädresse,0%) 

HIT SR CALL OnGeaget(dF1Fe1d, Fensterädresse,0k) 

318 X4 OALL OffGadget(ältFeld, Fensterädresse,0ß) 

319 ET CALL OffOadger(WeiterFeld, FensterAdresse,08) 

320 98 CALL OffGadger(OkFeld, Fensterädresse,0%) 

321 SR CALL OPfGndget(GoonFeld, Fensterädresse,0&) 

32a WL CALL OffGadget(DiskFeld, FensterAdresse, 0%) 

323 AK CALL OffOadget(DruckFeld, Fensterädresse, 08) 

324 Wa CALL Refreshüsdgets(dflFeld, Fensterkdresse,08) 

325 bDO RETURN 

326 pl Felderkus 

327 814 CALL OffGadget(dfOFeld, Fensterädresse,0k) 

328 Dr CALL OPFGnaget(äFiFeld, Fens ss, 08) 

323 Tu OnGadget(Faitre: 'esse,0) 

330 ko CALL OnGadget(WeiterFeld, Fensterkäresse,0f) 

SI) CALL Ontadget(OkFeld, FensterAdresse,0ß) 

392 08 CALL OnGadget(Coonfe1ä, Fensterhäresse,0&) 

333 96 CALL Ongadget(Diskfelä, Fensterädresse,0&) 

334 4e OALL Ondadget(DruckFeld, Fensterkäresse,0ß) 

335 59 Fuelle 4,69,632,97 

336 ZK OALL RefveshGadgets(DruckFe1d, FensterAdresse,0&) 

337 nPO RETURN 

338 IV Zeichnektikett, 

39 Im 015 

340 Yu LINE (171,10)-(461,151),3,b 

341. 5D| LINE (172,10)-(172,152),3 

32 sw LINE (314,10)-(314,151),3 

34328 LINE (315,10)-(315,151),3 

34h 36 LINE (460,10)-(460,151),3 

345 88 PRINT "Ich drucke : * 

346 vXQ RETURN 

BAT 20 Ende: 

BB ER RK 
vor 

349 29 10 Jetzt kommen die Sub!s I 

* 

1350 19. BARRIERE 
vor 

351 ue REN Speicherbereiche reservieren: 

32 HR | 

353 ix SUB ReservSpeicher(Puffer, Groesse) STATIC 

354 791 SHARED SpeicherListe 

355 kA GroessesGroesse+8 

386 AU Puffer-AllocNen(Groesse,655388) 

357 »d IR Puffer>o IHEN 

358.173 POKEL Puffer,Speicherliste 

359 0 FOKEL Puffer+4,0roesse 

360 2L SpeicherListesPuffer 

361 PufferzPuffen4s 

362 RL ELSE 

BE RY3 ERROR 7 

364 ohl END IF 

365 vxQ END SUB 

366 

367 

368 Ao_ SUB SpeloherFrei STATIO 

369 MOL SHARED SpeioherListe 

370. v0 £reinechen: 

371 113 IF Speicherliste>0 

372 233 Adresse=PEEKL(Sp 

ELERN Groesse-PEEKL(SpeicherLister4) 

37% alt Tresen SpeicherLiete, Groesse 

375.MH SpeleherListe = Adresse 

376 va C010 freimachen 

Sara END IF 

378 840, END SUB 

379 ik REM Nenie 

BORE '-- 

Listing. 
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SUB FensterDef(bs, x%, yS, b£, LE, IDCHP, £, Feld, 18) STAT 
ıc 

N Groesse = 48+LEN(T$)+1 "benötigte Speichergröße f. Fenste 

retruktur 

ReservSpeicher bs,Oroesse 

POKEN bs, "xkoordinste Linke obere Ecke 

POKEN bs+2,y£ "yKoordinäte Linke obere Ecke 

POKEN bs+4,b% "Breite 

POKEN bs+6,h% "Hose 

POKEN ba+8,65535% 'Fein- und Grobstift 

POKEL bs+10,IDCHP 'Nachrichten-Flags 

| POKEL be+14, 2 "Fenster-Flags 

POKEL bs+18, Feld "erstes Gadget 

POKEL bs426,be+48 "Titel 

REN we 

WINDOW 3 

POKEL bs+30,PEEKL(WINDOW(7)+46) "Zeiger auf Basic-Screen 

POKEW ba+46,15 "Soreen-Typ 

FOR ife1 70 LEN(TS) 
POKE ba+47+18,ASC(HIDS(T8, 15,1)) 


SUB FeldDef(bs,nx,x%,78,b%,h$,19,89,78,1,txt,51,n8) STATIC 
ReservSpeicher ba,44& "Lsenge der Struktur 

K\ POKEL bs,nz Insechstes Gadget 

IR POKEN be+4,xe "xKoordinate Linke obere Ecke 

RE POKEW be+6,7£ "yKoordinate Linke obere Ecke 


POKEW bs+8,b% "Breite 
POKEN bs+10,hf "Hoehe 
POKEW bs+12,1% "Gadget-Flags 
POKEN ba+14,af "Aktivierung 
POKEN ba+16, 78 "Gadget-Typ 
POKEL bs+18,1 "Bild oder Rand 
POKEL ba+26, txt "Text 
A) POKEL bs+34,si "Zeiger auf Info-Struktur 
POKEW bs+38,n% "Gadget-Nunner 
END SUB 


REM IntultionText Struktur anlegen: 
) SUB IntText(bs,018,41%,x%,y%,18,nx) STATIC 
Groesses20+LEN(T$)+1 'Strukturlaenge+Textlaenge+Nullbyt 
e 

ReservSpelcher bs,Grossse 


PORE bs,c1£ !Schriftferbe 
POKE bs+2,d1% "Schreitmodus. 
POKEN ba+4,x% \xKoordinate Textanfang 
FOREN bs+6,y% "yKooräinste Textanfang 


POKEL bs+12,bs+20 Text 
POKEL bs+16,nx 'naeohster Text 
FOR 1$=1 TO LEN(TS) 
POKE b5+19+1%,ASC(MID3(18,1%,1)) 
\. NEXT 
END SUB 
REM Raender: 


"\ SUB MacheRand(be,x8,y£,08,b£,h%) STATIC 


ReserwSpeicher bs,48& "Strukturlaenge+Koordinatente 
belle 
POKEW bs,x% "xKoordänate 
POKEW bs+2,y% 'yKoordinate 
POKE ba+4,0% "Zeichenfarbe 
PORE ba+7,8 ‘ 
LVE | FOKEL bs+8,bs+16 "xy-Koordinatentabelle 
FOR Ags0 10 1 


POKEN bs+22-14#4,hg-1 
POKEN bs+24+18%4,b4-1 
POKEN be+32-19%4,1 

POKEW bs+38+12%4,h5-1 
POKEW ba+40-18%4,b4-2 


) END SUB 


Fuelle 6,11,631,36 
druck1 "Ich sortiere *,9,11:druck1 dir.Name$(0),9,19 
druckt "Bitte ein wenig Geduld... ”,9,27 
Lauffe1:beginnf=1:Endefenexg-1 
FOR modusf=0 TO 1 

WHILE Lauff=1 


Lauff=0 
FOR if = beginnf TO Endes 
IF UCASES(dir.Name$(i4)) > UCASES(dir.Nane$(i4+1)) 
THEN 
SWAP dir.Name$(if)‚dir.Name$(if+1) 
SWAP &ir.Typs(ig), dir.Typs$(1%+1) 
Lauffs1 
END IF 
NEXT i£ 
beginnfzbeginnf+1:Laufg=O 
FOR 1$=Ende$ TO beginng STEP -1 
IF UCASES(Air.Name$(15)) < UCASES(dir.Name$(14-1)) 
THEN 
SWAP dir.Name$(18)‚dir.Nane$(14-1) 
SuAP dir.Typ$(1$), Air.Typ(i4-1) 
Laufgs1 
END IP 
NEXT 18 
EndefsEndef-1 


END SUB 


| SUB LiesDisk (d1r$, max$) STATIC 
SHARED fehlerf 
liest = -2 
d1r08 = dir$ + CHRF(O) 
Puffer=252 
Adresse = Lock(SADD(dir08) ‚lies) 
zachlerf«o 
fehlerf=0 
IF Adresse = O THEN 
Fuelle 6,11,631,36 
drucki "Inhaltsverzeichnis existiert nicht 11",9,19 
FOR i%=0 TO 2000:NEXT 
fehler$«500 
EXIT SUB 
END IF 
opt = 216 
Info = AllooMen(Puffer,opt) 
IF info = 0 THEN ERROR 7 
erfolg$ » Examinef(Adresse, info) 
IF erfolgf = 0 THEN 
Auelle 6,11,631,36 
&rucki "Inhaltsverzeichnis konnte nicht untersucht werd 
enl",9,19 
FOR 18=0 TO 2000:NEXT 
fehler2«500 
EXIT SUB 
END IF 
WHILE fehler$<>232 
dir,Nane = Info+s 
FOR schleife$ = 0 TO 29 
checkf# = PEER(dir.Nane+schleifet) 
IF check£<>0 THEN 
check$ = check$+CHR$(check$) 
EISE 
schleifeg«29 
END IF 
NEKT schleifeg 
dir.Nane$(zuehler$) = checkt 
check$="" 
typ = PEEKL(info+120) 
If typ < 0 THEN 
dir.Typ$(zaehlerf)="DATEI“ 
"ELSEIF zaehler$ = 0 THEN 
" dir.Typ$(ssehler$) = "AKT. DIR.” 
ELSE 
dir.Typ$(zaehlerg) = "DIR” 
END IF 
check$="" 
erfolg$=ExNextf(Adresse, Info) 
Ir erfolg$=0 THEN 
Tehler$«IoErr# 
IF fehler$ <> 232 THEN 
Fuelle 6,11,631,36 
druck1 “Fehler in Inhaltsverzeichnis!",9,19 
FOR i%=0 TO 2000:NEXT 
fehler$=500 
EXIT SUB 
END IF 
ELSE 
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gaehlerf-zeehlerf+l 
IF zaehler$>maxg THEN 


WEND 

CALL Freeem(info,Puffer) 

CALL Unlock(Adresse) 
max$=zaechler# 

#51 vx0 END SUB 

552 vu REM Schattenschrift f. Einleitung: 
SB RL '-- 
554 ON SUB Schatten (text$,modeg) Sure 


95 AT POKEW WINDOW(8)+58,9 

#6 in textlengsLEN(text$) 

597 28, xS=PEEKU(WINDOW(8)+36) 

988 96 YX=PEEKW(WINDOW(8)+38) 

559 pa COLOR 2,0 

560. dh CALL Move(WINDOW(8) ‚x&+2,y%+2) 

561 ON CALL text(WINDOW(8) ‚SADD(text$) textieng) 
beand CALL SetDrMd(WINDOW(8),0) 

S63 AB COLOR 1,0 


Seh xl CALL Nove(WINDOW(S),x%,y%) 


565 00 CALL text(WINDOW(B) SADD(text$),textleng) 
366.05 IF modeg=0 THEN 

SER VB4 PRINT 

B6B 62 END IE 

\s69 43, CALL SetDrNd(WINDOW(8),2) 

570.200 END SUB 


a“ AR) REM schnelle Textausgabe im Window: 


N w? SUB drucki (tx1$,x%,3y%) STATIC 


#7 Ve3 SHARED FensterkP 

Ta In  txtlengsLEN(txt$) 

576.09 CALL Nove(FensterRP,x&,y&+7) 

Een ALL text(FensterRP,SADD(Txt$) ‚txtlenz) 
378 00 END SUB 

Se el 

580 40 


Sal ea SUB Fuelle(x1%,y18,224,92%) STATIC 
\B2 \A01 SHARED FensterRP 


“83 on CALL SetAPen(FensterAP,0) 

Sa Dd RectFill FensterRP,x14,y18,x28,72% 
985 VA CALL SetAPen(FensterkP,1) 

‚586 URO END SUB 


SER &E REN StringInfe Struktur anlege 


WA AT SUB SteInfo(stringpuffen,b 
590 ivi SHARED EditGroesse 


) STATIC 


ML EL maxt« 15 

592 MA) IF LEN(bUFfS) > maxf THEN buffS=LEFTS(buff$,max$) 
93 0 IF (max$ AND 1) THEN max$-maxg+l 

594 10 Editüroesse=36+2#(maxfı4) 

WO py stringpuffer=AllocMen(EditGroesse,655354) 

9b uk IF stringpuffer=O THEN ERROR 7 

#97 Ta, POKEL stringpuffer,stringpuffenm36 

‚308 ne POKEW stringpuffer+10,16 

59 OR IF buffs<>"" THEN 

600 Bid FOR 1X=1 TO LEN(buff$) 

‚601 ES POKE stringpuffer+35+18,ASC(MIDS(buff3,18,1)) 
O2ne3 NEXT 

‚603 A END IF 

604. moD END SUB 


&09 nö REN editierten String aus Speiche, 
NE '-- 
E07 DE SUB Lieekalt (stringpuffer,rets) STATIO 
SHARED Editüroesse 
wing=PEEKL(stringpuffer) 
4aD:checkfel 
WRILE checkg > 0 
checkf=(FZEK(puffer.string+1)) 
ret3-ret$+CHR$(checkf) 
igeigrl 
WEND 
zet$LEFI$(ret$,EN(ret$)-1) 
CALL Freeien(stringpuffer,BditGrossse) 


EAGg] WIE mousz(o) = 
GEL yg wem 

625 790 END SUB 

626 hS REM Druckroutine 
a 


GA CA SUB Etikett STATIC 

69: zei BEM### 

630 Mi2 SHARED Fensterkäresse,DruckFrageTst, JaTxt NeinTxt,Druckf, 
‚631 EL 


AntwortsAutoRequest(Fensteradresse,DruckFrageTxt, TaTxt,Ne 
An?zt,0&,06,300,50) 
IF Antwort < 1 THEN 

CTO aus 
ZuD IF 
anzahlg=18 
esc$=CHR$(27) : init$eesod+"@” 
fettSeinitftesch+ "E"+eso$+ W’HCHR$(1) 
tand$sesch+"A"+CHRS(6) 
Kleingeteseh+ "50" 
eng$=CHR$(15) 
elitessesch+"H” 
EndeSsesc$+"A"+CHRF(13)+es08+"2" 
titel9=Druck$(0) ‘ 
titel2$eLEPT$ (Drucks (0) ,13) 


abstand$; :'IBN-MODE +esc$+"2"; 


PRINT#1,klein$jeng$; 
PRINT 1,SPC(29) ; "KEIN Schreibschute” 
PRINTAL, 
PRINT#1,SPC(34); "Schreibschutz” 
PRINT#1, 
einrueck«INT( (48-LEN(tite13))/2) 


SITERRLRELERE 
BESBESER 


:REM #% Titel mittig 


SIE 
E35 5 


einrueckeINT( (14-L2N{t1te128))/2) 

Pen 

PRINTA1,fett$ 

PRINT#1,SPC(einrueck) ;tite128 

PRINT#1,e50$+"W0"; 

PRINT#1,init$; 

IF Druck$ > 19 THEN 
anzanl$ « 32 
PRINT #1,abstands; 
PRINT #1, klein; 

END IF 

REN #* Rahnen = 

PRINT#1,elite$;CHR$(32); 

FOR is1 TO 15 
PRINT41,CHRS(45); 

NEXT 4 

PRINT#1,CHRS(32); 

FOR je1 TO 15 
PRINT#1,CHRS(45); 

NEXT 

PRINT #1,CHRS(32) 

FOR is1 70 anzahl$ STEP 2 
YVA=INT((15-LEN(Druck$(1)))/2) 
nleINT((15-LEN(Druck$(4)))/2+.5) 
v2=INT((15-LEN(Druck$(1+1)))/2) 
n2=INT((15-LEN(Druck$(141)))/2+.5) 

PRINT 1, CHRS(124) ;SPC(v1) ;Druckß(1) ;SPC(n1) ;CHRS(124 


:REM #% Titel mitti 


SS 
ER 


TBM-MODE +eso$+"2"; 


/BN-MODE:chr$(201) 


s"IBN (205) 


IBK (203) 
:"IBH (205) 


"IBH (187) 


SELHIRSTETLELTERER E SISIISTINZITESTERSEETTS 
ern en 


); :"IBH (186) 
PRINT #1,SPC(v2) ;Druck$(1+1) ;SPO(n2) ;CHRE(124) 
ı"TBN (186) 
NEXT i 
PRINT#1,CHRS(32) ; z"TBM (200) 
FOR i=1 10 15 
PRINT #1,CHRS(45) ; s"IBM (205) 
NEXT ı 
PRINT #1,CHR$(32); z"IBM (202) 
FOR 4«1 70 15 
PRINT#1,CHRS(45) ; z"IBM (205) 
NEXT 1 
PRINT#1,CHRS(32) "IBM (188) 
PRINT#1,Kleins; 
PRINT #1, Ende$ 
A En sıB Listing. »DiskEti« 
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und läuft und läuft und läuft und 


chluß mit den Befehlen 

»Echo« und »Type«, es 

lebe die Laufschrift! Da- 
bei haben Sie vollen Einfluß auf 
den scrollenden Text. Dieser 
kann beliebig plaziert, sowie in 
unterschiedlicher Breite und 
mit variabler Geschwindigkeit 
dargestellt werden. 

Unser Tool »hscroll« (Listing 
1) ist in Aztec-C geschrieben. 
Geben Sie das Listing bitte mit 
dem Checksummer ein. Zur 
Compilation tippen Sie einfach 
»cc +1 hscroll,c« gefolgt von »In 
hseroll,o -Ic32« ein. Danach 
wird es am besten in den C- 
Ordner kopiert, so daß es jeder- 
zeit zur Verfügung steht. Fol- 
gende Optionen stehen zur Ver- 
fügung, die alle mit einem Leer- 
zeichen getrennt hinter 
»hscroll« eingegeben werden: 


Parameter für 


hscroll 


-Ix: x ist die Position auf 
der x-Achse für die 
Laufschrift (Werte von 
0 bis 639). 

“ty: y gibt die y-Position an 
(Werte von 1 bis 256 
beim PAL-Amiga) 

-wn: setzt die Breite des 
Ausgabefensters auf n 
Pixel. Das Fenster 
kann maximal 640 
Punkte breit sein, 
wenn Sie Null bei »-I« 
angeben. 

“sn: n legt die Geschwin- 
digkeit fest, die Werte 
von 1,2,4 oder 8 
annehmen kann. 

«rn: n entspricht hier der 
Anzahl der Wiederho- 
lungen. Bei n=1 läuft 
Ihr Text nur einmal 
durch 


Der eigentliche Text der Lauf- 
schrift wird mit einem Editor ge- 
schrieben und als ASCII-File 
abgespeichert. Er kann dann 
ebenfalls als Parameter hinter 
»hscroll« übergeben werden. 
Beispiel: 
hscroll DateiName -10 - 
t100 -w200 


Dieser Aufruf schickt eine 
Laufschrift am linken Rand des 
Screens (etwa in der Mitte) über 
eine Breite von 200 Bildpunk- 
ten. Eventuelle Returns inner- 
halb des Ausgabe-Textes wer- 
den durch Leerzeichen ersetzt. 
Dies ermöglicht ungeahnte Ef- 
fekte: Lassen Sie Ihre eigenen 
Fehlermeldungen anzeigen, 


beim Compilieren den Source- 
Code durchlaufen oder geben 
Sie Directories in Laufschrift 
aus. 

Haben Sie eine der Optionen 
nicht verwendet, so werden 
Default-Werte benutzt, von de- 
nen Sie allerdings nur den für 
»-r« kennen müssen. Ohne »-f« 
gibt es eine annähernd unbe- 
grenzte Wiederholungszahl, 
nämlich genau 2°°-1. Dies sind 
immerhin etwas über 4 Milliar- 
den Wiederholungen; für die 
meisten Anwendungen dürfte 
das ausreichen. Dies heißt aber 
nicht, daß Sie Ihre Laufschrift 
jetzt eine Woche lang betrach- 
ten müssen, sie kann auch mit 
der Maus weggeklickt werden. 


Mehr Effekt 
mit »Run« 


Sie können »hscroll« auch 
problemlos als Background- 
Task starten, so daß die Lauf- 
schrift im Hintergrund ihrer We- 
ge geht. Dies kann beispiels- 
weise sinnvoll sein, wenn ein 
längeres Programm geladen 
werden soll und währenddes- 
sen eine Laufschrift das Ganze 
ein wenig schmücken könnte. 
Installieren Sie diese also. zu- 
erst mit »run hscroll« und den 
entspechenden Parametern 
(am besten in einer Batch-Da- 
tei) und erst danach kommt der 
eigentliche Befehl zum Laden. 
Dabei kann es vorkommen, daß 
der Ladevorgang geringfügig 
langsamer wird (je nach Größe 
der Ausgabe). Soll die Lauf- 
schrift noch kurz vor Beendi- 
gung des Ladens verschwin- 
den, können Sie die Option »-r« 
verwenden. 

Es gibt fünf Dinge, die Sie bei 
der Benutzung dieses Tools 
wissen sollten: 

- Das Scrolling ist nicht unbe- 
dingt immer stufenlos, wenn die 
Laufschrift ganz oben im Bild- 
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net wird. Das hängt da- 
mit zusammen, daß der Task 
immer auf die vertikale Austast- 
lücke wartet. Dies ist - verein- 
facht gesagt - der Moment, in 
dem der Elektronenstrahl sich 
in Zeile 0 befindet. Je weiter 
oben sich nun die Laufschrift 
befindet, desto weniger Zeit 
verbleibt, den Window-Rast- 
Port« zu scrollen, ohne daß zu- 
gleich das Bild dargestellt wird. 
Wenn hierfür nicht genügend 
Zeit ist, flimmert die Textdarstel- 
lung, Der Einfachheit halber 
wurde auch auf das sogenann- 
te »Double Buffering« verzich- 
tet. 
- Sind mit »run hscroll« mehre- 
re Tasks aufgerufen worden, so 
kann es leicht passieren, daß 
Ihr CLI Task sozusagen »out of 
CPU«gerät, also keine Rechen- 
zeit mehr bekommt. Das liegt 
daran, daß die Laufschrift- 
Tasks bei Aufruf die höchst- 
mögliche Priorität bekommen, 
um ein Ruckeln zu verhindern. 
Man mache sich klar, daß die 
vertikale Austastlücke etwa 50 
mal pro Sekunde auftritt und 
»hsoroll« ebensooft den Pro- 
zessor benötigt. 
-Es können nur 8 x 8-Punkt 
Zeichensätze verwendet wer- 
den. Wer also in seinem CLI an- 
dere benutzen möchte, der soll- 
te erst einmal diese Einschrän- 
kung überprüfen. Aus diesem 
Grunde beträgt die Höhe des 
geöffneten Scroll-Fensters 
auch immer 8 Pixel. 
- Laufschriften sind nichts an- 
deres als kleine Fenster. Sie 
können von anderen Fenstern 
überlappt werden und dann 
einfach verschwinden. 
- Jedes Programm, das länge- 
re Blitter-Operationen veran- 
laßt, ist ein potentieller Störfak- 
tor bezüglich des Filescrollings. 
Schließlich benutzt auch 
»hscroll« den Blitter zum Scrol- 


ling. Irgendwann aber darf je- 
der Task mit auch noch so klei- 
ner Priorität mal den Blitter ver- 
wenden, was ein leichtes Ruk- 
keln zur Folge hat. Dies kann 
nicht umgangen werden, wenn 
man sich konsequent an die 
Multitasking-Konventionen hal- 
ten will. 

Zur Beschleunigung der 
Textausgabe gibt es auf dem 
Amiga einige nützliche Utilities, 
unter anderem auch »Blitz- 
Fonts!« und »FastFonts«, das 
sich auf der neuen Workbench 
1.3 befindet, Diese wirken sich 
auch günstig auf unsere laufen- 
den Texte aus. Sie sind also un- 
bedingt zu empfehlen, vor al- 
lem wegen der geringeren Re- 
chenzeit. 

Um dem Laufschrift-Task ein 
möglichst ruckelfreies Dasein 
zu bescheren, wird mittels »Set- 
TaskPri(FindTask(0),127);« die 
Priorität desselben auf den 
größtmöglichen Wert gesetzt. 
»FindTask(0)« durchsucht die 
Liste der gerade ablaufenden 
Tasks und übergibt den ent- 
sprechenden Zeiger auf die 
TaskStruktur. Nach Beendi- 
gung der Hauptschleife wird die 
Priorität dann auf einen norma- 
len Wert zurückgesetzt. Es wer- 
den die üblichen Libraries ge- 
öffnet, die für die Verwaltung 
von Fenstern und Grafik not- 
wendig sind. Um den einzule- 
senen ScrollText dynamisch 
verwalten zu können, muß des- 
sen Länge bekannt sein. 


Besser geht’s 
mit BlitzFonts! 


Es wird daher Speicher für 
die Daten des »FilelnfoBlocks« 
reserviert, aus dem man nach 
Untersuchung des Files die 
Länge desselben entnehmen 
kann  (FilelnfoBlock->fib__ 
Size«). 
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und läuft und läuft und läuft und 


Sozusagen als Unterlage für 
die Laufschrift wird ein einfa- 
ches Fenster »ohne alles« ge- 
öffnet, welches im übrigen ge- 
nau ein Gadget zum Weg- 
klicken enthält. 

Die Hauptschleife wartet zu- 
nächst mit »WaitTOF();« auf die 
nächste Austastlücke und 
scrollt dann den gesamten 
»RastPort« des Fensters um p 
Pixels (je nach eingestellter Ge- 
schwindigkeit) nach links. Mit 
Hilfe der Text-Funktion wird 
dann der neu hinzugekomme- 
ne Teil neu geschrieben. Das ist 
in diesem Fall äußerst einfach, 
weil Operationen im RastPort 
grundsätzlich nicht über den 
Rand hinaus gehen, also nichts 
außerhalb unseres Fensters 
verändern. Eventuelle Reste 
werden einfach abgeschnitten. 


Smooth mit 
WaitTOF() 


Die Hauptschleife wird solange 
durchlaufen, bis entweder die 
Variable für die Wiederholun- 
gen abgelaufen ist oder eine 
Nachricht am Port des Fensters 
anliegt. Auch dieser Fall ist 
leicht zu handhaben, da wir nur 
ein Gadget zur Verfügung ha- 
ben, das den IDCMP des Fen- 
sters ansprechen kann; damit 
können wir uns eine Auswer- 
tung der Nachricht sparen. 
Möglicherweise stört Sie die 
Beschränkung von »hscroll«auf 
eine Zeile? Die Lösung heißt 


»vscroll« (Listing 2). Dieses Pro- 
gramm ist in den wesentlichen 
Punkten genauso aufgebaut. 
Das Textfile wird jetzt allerdings 
nach der längsten enthaltenen 
Zeile abgesucht. Diese be- 
stimmt die Breite des Ausgabe- 
fensters. Falls der rechte Rand 
des Screens überschritten 
wird, bricht das Programm vor- 
her ab. Selbstverständlich ar- 
beitet »vscroll« auch mit exoti- 
schen Formaten wie der 704 Pi- 
xel breiten Workbench oder 
dem PD-Programm »VScreen- 
Handler« zusammen. 

Bitte beachten Sie den Li- 
stingausschnitt von Zeile 163 
bis Zeile 166. Hier wird dem Be- 
triebssystem suggeriert, es 
würde nur eine Bitplane beste- 
hen. Durch diesen kleinen Trick 
erreichen wir eine geringere 
Belastung des Blitters für die 
Scroll-Operationen. Vor Been- 
den des Programms werden 
die Bitplanes wieder auf Nor- 
malwerte gesetzt. 

»vscroll« können Sie mit dem 
‚Aztec (»cc vscroll.c« gefolgt von 
»In vscroll.o -Ic«) oder mit dem 
Lattice (»Ic -w vscroll«) compilie- 
ren. 

Vielleicht fallen Ihnen selbst 
noch einige Verbesserungen 
ein, wie zum Beispiel verschie- 
dene Schriftarten, per Tasten- 
druck verschiebbares Fenster 
oder ähnliches? Wir wünschen 
Ihnen auf jeden Fall viel Spaß 
beim Experimentieren mit die- 
sem Utility. Christian Wolt/kn 


Programmname: hscroll 
Computer: A500, A1000, A2000 mit Kickstart 1.2, 1.3 
Sprache: Aztek-C 
Compiler: Version 3.6 
Aufrufe: cc +I hscroll.c 


In hscroll.o -Ic32 


Listing 1. »hscroll.c« zaubert Ihnen eine horizontale 
Laufschrift auf den Bildschirm 


ien(DefaultText) 
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else 
{ 
/& TextFile laden... #/ 
if (TnisFile-Open(*argv,WODE_OLDFILE)) 
£ 
MyLock-Lock(*argv,ACCESS_READ) ; 
‚Exanine(NyLock, FileTnfoBlock); 
Size-FileInfoBlock->fib_ Size; 
if (NyPtr-ScrollText=Allocen(Size,MENF_ 
PUBLIC)) 
[} 
Read(ThisFile,ScrollText,Size); 
MyPtr[Size]=0; 
/ eventuelle returns entfernen... 
while (£MyPtr) 
q 
if (AMyPtr == 0208) SMyPtr 
else MyPtntt; 
J 
UnLock(MyLock) 
Glose(ThisFile); 
j 
else SorollText=DefaultText; 
1 
s1estrlen(SerollTezt); 
j 
aravı; 
} 
[| /* Libries öffnen... n/ 
IntuitionBase=(struct IntultionBsse *)OpenLibrary( "Intuiti 
on.1ibrany”,0); 
GfxBase=(struct GfxBase *)OpenLibrary( "graphics. Library 
; 
/% Werte für Fenster und Gadget initialisieren #/ 
NewScrollWindow.LeftEdge-1; 
NeußcrollWindow. Topkäge=t; 
NewSerollWindow.Widthaw; 
Glickündget.LeftEdge=0; 
GlickGadget.TopEäge=0; 
OlickGadget.Widthew; 
/* Fenster öffnen #/ 
1? (1(ScrollWindowsOpenWindow(&NewSorollWindew))) exit(0); 
/% Rasterport holen */ 
) SerollRastPort=ScrollWindov->RPort; 
SetAPen(SerollRastPort,3); 
SetBPen(SerollRastPort,0); 
SetDrNä(ScrollRastPort,JAll); 
/* Hauptschleife -> Scrollen, solange rI=0 oder Userfort 
leer &/ 
while (1GetMsg(Sorollwindow->Userfort) &% r) 
{ 
/* kuf den VBL warten #/ 
WaitTor(); 
/* Grafik un & Pixels verschieben... ®/ 
SerollRaster(SorollRastPort,s,0,0,0,%-1,7); 
Nove(ScrollRastPort,w-8-,6); 
ir (s1 <=. c) 


/* Nachfolgenden Text reinschreiben #/ 
Text(ScrollRastPort,&ScrollText[e],1); 
pres; 
if (p > 8-8) 
t 
P=0; 
“4; 


1 


) 


Programmname: vscroll 
Computer: A500, A1000, A2000 mit Kickstart 1.2, 1.3 
Sprache: C 
Compiler: Aztec oder Lattice 
Aufrufe: siehe Text 


Frogrammsutor: Christian Wolf 


EI =inelude <intultion/intuitionbase.h> 

Üa #inelude <libraries/dos.h> 

34R #include <exeo/menory.h> 

#inolude <graphies/gfxbase.h> 

#1fdef LATTICE 

#include <proto/all.n> 

\ #else 

#inelude <funetions.h> 

#endir 

#define fib FileInfoBlock 

#define fibsize (long)sizeof(struct fib) 

#define NOBORDER NULL 

#define NOTEKT NULL 

/* Gadget zum äbklicken... */ 

15 85 struet Gadget ClickGadget = | NULL,0,0,0,0,GADGHNONE,RELVER 
m, 

170 


BOOLGADGET ‚NOBORDER, O,NOTEXT, 
0,0,NULL,O) ; 
(17 #00 /* Einfaches Fenster ohne alles... %/ 

MB 28) struot Newindow NewScrollwindor = | 
0,230,640,8,0,1, 

GADGETUPI GADGETUP, 

BORDERLESS, 

SolickGadget, NULL, 

NULL, 

NULL,NULL, 

640, 200,640,200, 

WBENCHSCREEN | ; 

Doliche... #/ 

ZaNO: struct IntuitionBase *IntuitionBase; 

ZU RS struct GfxBase *GfxBase; 


308% struct Teble [ char *Line; 
EN long Len; |; 
Table DefaultText[] = | * VSeroll 1.0 


1,37, 

" (e) 1989 by Markt und Te 
ohnik "37, 
“written by Christian W 
ar "37, 


= currently resident at 
3% 

& Spandauer Str. 1041 
37, 

= 1 Berlin 20 
"37, 

® Tel.: 030/3660450 
"37, 


" Usage: vscroll textfile [ 
options] ",37, 
” Use -w to modify window's 
width 9,37, 
* Use -s munber of jiffies 
12,48 ",37, 
” Use -1 and -t to position 
windor "37, 
” Use -r for no. of repetit 
jons 1,37, 
” Use -h for a new height o 
£ window *,37, 
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f& Mies schließen... */ 1,37, 
Glosewindos(Serollwindon) ; g: 
CioseLibrary(Intuitionsase); #37, 
Closeläbrary(GfxBase); 2 
N if (SerollText!-Defsultfext) Freeien(SerollTert,s1); "37, 
if (FileInfoRlock) Freeien(FileInfcBlock,sizeof(struet Fil ” 
eInsoBlock)); 37,01; 
SetTaskPri(FindTask(0),0); 
2) 
(C) 1989 m&T 
Listing 1. (Schluß) 
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ANWENDUNGEN 


WOHL struct Table #Serokltsnstermuittert,scl-DefaultTert; 124 die i 
Bam} char #NyPtr,sLosäferi-0; 125 u > Linead; 
36 17 struct Window ASereliindes, 126 W for (eleSorollfext,n=0;e 
57 68 struct RastPart *Serallkastrn; 1->Lineje1H) 
SB long 1-160,1=60,#=378,=- 00,81; 127 25e { 
59 85 long reüxfPffPfft,Size,z 228 wur 4? ((o1->Lensstrl 
80.26 struet Fib "Fibz en(e1->Line)) > w 
61 Uy  struct FileHanäle "Tulsfile; ) wzel->Len; 
62 We struct Filelock “Mploeik; 129 Sne } 
BNVi int i; 130 762 #<<e3j 
6400 /* Danit es nicht so ruckelt -> höchste Taskprorität #/ 231 2& el=SerollText; 
65. Py  SetTaskPri(PindTesk(o2) ‚L2Tz 132 sar } 
66 DB /* parameter liste Surchgeben » 133 var else SorollText«DefaultText; 
67 MW argo--; 134 38 Freeien(fib, fibsize) ; 
6B PD ergvi; 235 Bes } 
6910 while (argo--) 136 200 ;e ScrollTexteDefaultText; 
70. 4x8 137 ng se (TnisFile 
71 729 138 EjN ] 
72 6% 139 FRI } 
73 ARE 140 61D ] 
74 n0 141 209 araver; 
75 90L 142 Ins } i 
76. 167 143 Of /# Libries öffnen... #/ 
77 va WAVE Intuitionases(struct IntuftionBase *)OpenLibrary("Intutti 
78 BK on. Library ”,0L) 
79 xp 145 37 GfxBase=(struct GfxBase #)OpenLibrary("graphios.library”,O 
80.Xs D; 
B1.EN 63h /# Werte für Fenster und Gadget initialisieren #/ 
82 0y UTXU NewScrollkindov.leftEägerl; 
83a 18 4b NewScrollWindow.Topkägest; 
84.40 US WE NewScrollWindow.Widthew; 
85 0x 150 21 NewSerollWindow.Heighteh; 
86 v1 15178 Clicköndget.LeftEäge=0; 
87 KT 32 u Clicköadget.Topkäge=0; 
88 OW. 153 02 ClickGadget.Heighteh; 
189 50 SAX Clicktadget.Widthew; 
90 NW 35m] /8 Fenster öffnen */ 
91 TyL 16 aX Fr (ScrollWindowe(struct Windon *)Openkindon(SNewScrollWin 
92 UeD } as) 
93. 79 else 157 Tu5 { 
94 xD { 158 336 /% Rasterport holen #/ 
95 6SE 2 ‚DefaultText) 159 6R ScrollRastPort«SerollWindow->RPort; 
96 Uxt f 160 wi SetAPen(SerollRastPort,1l); 
97 n20. /# Textfile laden... #/ 161 m SetBPen(SerollRastPort,OL); 
98 8 if (Tnisfiles(struct FileHandle #JOpen(* 162 cT SetDrMd(ScrollkastPort,JAMl); 
argv,MODE_OLDFILE)) 163 Np /* BitMap kopieren #/ 
39 KON [ 164 I: SeroliBitNap=*SorollRastPort->BitHap; 
100 ERO /# ib öffen... #/ 165 W SerollRastPort->BitMap=&ScerollBitMap; 
101 R9 if (fibe(struct fib *)AllocHen(fibs 166 79 SerollBitMap.Depth=1; 
ize,MEMR_PUBLIC)) 167 oE Br=6; 
102 038 f 168 BE #nile (!GetMsg(SerollWindow->UserPort) &4 7) 
103 piT Mylocks(struct Filelock #)Lock 169 187 l 
(Kargr,ACCESS_READ) ; 170 Ops WaitTorl); 
104 NS Sxamine(fyLock, fib); ırı c8 SorollRaster(ScrollRastPort,OL,5,0L,0L,#-1,h-1)5 
105 20 Untock(MyLock) ; 172 08 Nove(ScrollRastfort,OL,h-a-p); 
106 15 Size=fib-> fib Size; 173 x6 Text(SorollRastPort,el->Line,c1->Len); 
107 Hn if (LoadText=(cher #)AllccHen( 174 64 Ptzs; 
Size,MEMF_FUBLIC)) TIAR ir (p > 8) 
108 g9r { 176 arc { 
109 yRz. Read(ThisFile,LondText,S za Pad; 
ah 178 vq lt; 
110 15 LoadText[Size-1]«0 1920 4? (tel->Line) 
411 hr for (MyPtreloadText,Line 380 gi I 
;eMyPtr;NyPtr++) 181 981 el=SerollText; 
112 kDe { 12 zp PR 
13 ıze if (#NyPtr == OxDa 183 zsH ı 
) Lines++; = = rc 
14 ale | E } 
MEHR, 186 Ka6 SerollBitMap.Depthe2; 
115 002 if (1{el=Scrollfexte(str Pre Peg 
Bene 18 16 ‚ SloseWindow(SerollWindos) ; 
LEAR))) extt(0); 1 
Be 10 ARI Closelibrary((struet Library #)IntuitionBase); 
5 391 AQ CioseLibrary((struot Library #)OfxBase); 
117 pie: 192 85 r (Serollfext!=DefaultText) Freeien(Scrollfext,Lines< <3 
as =; A) 133719 if (Loadtext) Freeien(LondText,Size); 
\ 194 76 SetTaskPri(FindTask(0L),0L); 
120 Rbg ANyPtr=0 
121 ve e1++->Line=agP u] 
= = (€) 1989 mar 
122 yIe i Listing 2. Mit »vscroll« bewegen Sie ein ganzes Textfile 
123 Oad eise KyPir-4; vertikal über den Screen 


Eine Dateiverwal- 
tung in Basic? »Lang- 
sam und unkomfor- 
tabel«? Weit gefehlt: 
Die »Uni-Datei« ist 
schnell und besticht 
mit einer Benutzer- 
führung, deren Kom- 
fort so manchen C- 
Programmierer vor 
Neid erblassen läßt. 


Von Rainer Karwelies 
und Andreas Lietz 


ennen Sie den »Basic- 
Effekt«? Da benutzt 
man ein selbstgeschrie- 


benes oder abgetipptes Pro- 
gramm in Amiga-Basic und ern- 
tet von den C-, Assembler- und 
Modula-Freunden nur ein Lä- 
cheln, wenn man ihnen das 
Programm vorführt. Mit der 
»Uni-Datei« wird das anders. 
Dieses Programm benutzt die 
Fähigkeiten des Amiga zur 
komfortablen Benutzerführung 
so ausgiebig, daß man fast ver- 
gessen könnte, in welcher 
Sprache es geschrieben ist! 
Der große Vorteil dieses Pro- 
grammes ist, daß Sie das Pro- 
gramm jederzeit an Ihre Be- 
dürfnisse anpassen können, 
wenn Sie über Basic-Kenntnis- 
se verfügen. 

Die Uni-Datei ist eine se- 
quentielle Dateiverwaltung. Sie 
kann Datensätze mit maximal 
18 Datenfeldern verwalten; die 
Anzahl der Datensätze hängt 
vom verfügbaren Speicherplatz 
und von der Anzahl der Felder 
ab. Ist die Feldanzahl höher, 
wird die Anzahl der Datensätze 
geringer und umgekehrt. 

Das Programm ist darauf 
ausgelegt, dem Benutzer einen 
möglichst großen Komfort zu 
bieten. Mit Hilfe der Maus und 

kassettenrecorder-ähnlichen 
Tasten (Bild 1 unten) wählen Sie 
einzelne Datensätze schnell 
an. Es werden viele Menüs ver- 
wendet, mit deren Hilfe alle 
Funktionen des Programmes 
aufgerufen werden. In einer Da- 
tel kann nach einem bestimm- 
ten Feld gesucht und sortiert 
werden; die Daten lassen sich 
automatisch auf Etiketten oder 
als Liste drucken. Es ist jeder- 
zeit möglich, die Feldnamen zu 
ändern. Mit einem Hilfspro- 
gramm ändern Sie sogar die 
Anzahl der Felder oder deren 
Reihenfolge, ohne daß dabei 
Daten verlorengehen. 


Der ganze Komfort hat nur ei- 
nen Preis: Das Programm ist zu 
lang zum Abtippen. Deshalb 
wird es auf der Programmser- 
vice-Diskette zu diesem Heft 
veröffentlicht. Auf dieser Disket- 
te finden Sie die beiden Pro- 
grammversionen »Uni_0.5MB« 
und »Uni_1MB« sowie die La- 
deprogramme »Lader-Uni_05 
MB« und »Lader-Uni_1MB=. 
Die erste Version ist für Besitzer 
eines Amiga mit 512 KByte 
Speicher gedacht; wer mehr 
Speicher hat, verwendet die 
zweite Version. Außerdem ist 
auf der Diskette das Hilfspro- 
gramm »Uniltil«, mit dem Sie 
bei vorhandenen Dateien die 
Feldanzahl ändern und die Rei- 
henfolge der Felder vertau- 
schen können. 

Um mit der Uni-Datei zu ar- 
beiten, sollten Sie sich erst ein- 
mal eine Arbeitsdiskette forma- 
tieren. Offnen Sie dann die 
Schublade »Uni-Datei« auf der 
Programmservice-Diskette. Ha- 
ben Sie mehr als 512 KByte 
Speicher, so kopieren Sie nun 
alles außer »Lader-Uni_05MB« 
und »Uni_0.5MB« auf ihre Dis- 
kette. Wenn Sie mit 512 KByte 
Speicher arbeiten, kopieren Sie 
alles außer »Lader-Uni_1MB«, 
»Uni-Datei 1MB«, »exec.bmap« 
und »dos.bmap« auf Ihre Ar- 


Bild 1. Die 
Uni-Datei in 
Aktion. 
Den Aufbau 


Ihrer Datei n 
bestimmen a E 
Sie selbst - | Nane 3 
hier ein | Strasse 8 
Beispiel. = S n 
Bezirk $ 

Vorwahl } 

au , i 

jenerkung | ; 

Beverkung 2 ; 
Kundennunker: 


Eine un 
Dateive 


der-Uni_05MB«. Sobald die 
blinkende Abfragebox (Bild 2) 
erscheint, drücken Sie <CTRL 
c> undtippen »LIST«. Nun wird 
der Anfang des Programmes 
auf dem Bildschirm angezeigt. 
Am einfachsten geht die Anpas- 
sung, wenn Sie das Fenster, in 
dem das Programm angezeigt 
wird, auf die volle Bildschirm- 
größe bringen. 

Sie sehen jetzt in der drit- 
ten Zeile des Listings zwei 
»CLEAR«-Befehle. Sie dienen 
dazu, für das Programm und 
die Daten ausreichend Spei- 
cher zu reservieren. Für 512- 
KByte- und 1-MByte-Amigas 
sind sie in der entsprechenden 
Version bereits richtig einge- 
stellt. Sollten Sie später an 


die Grenzen des Speichers sto- 
Ben, können Sie beim zweiten 
CLEAR eine höhere Zahl ein- 
setzen - wieviel höher sie sein 


Dateinane:Dfl;Däten/Hapdcapy Systen: "2637808" Basic: "23131 
DatensätziNn, 2 von 2 


Herrn 
Peter 


an 
Rübezahlstr. 127 
8008 
München 12 
Südbayern 

889 
1234567 


Guter Kunde, tendiert zu unfreundlichen Auftreten 
en 


- alas zu Schwei 


aber viel Speicher oder Daten- 
sätze mitsehr wenigen Feldern, 
so können Sie diese Zahl hoch- 
setzen - meldet AmigaBasic 
daraufhin »Out of Memory«, so 
müssen Sie »Max« wieder redu- 
zieren. Umgekehrt sollten Sie 
»Max« niedriger festlegen, 
wenn Ihre Datensätze 18 Felder 
haben und Sie mit 512 KByte 
Speicher auskommen müssen. 
Nun folgt die Zuweisung 


DName$ = ”Adressen” 


Hier setzen Sie statt »Adres- 
sen« den Namen der Datei ein, 
die Sie am häufigsten nutzen. 
Dieser Name wird beim Laden 
von Dateien vom Programm 
vorgegeben (kann aber natür- 
lich jederzeit überschrieben 
werden). Schließlich folgt die 
Anweisung 


Pfad$ = "dfl:Daten” 


Datun 12,081 1988. 17147746 


beitsdiskette. Für alle Versionen 
muß schließlich noch Amiga- 
Basic auf die Diskette kopiert 
werden - Sie finden es auf Ihrer 
Extras-Diskette. Nun haben Sie 
eine Arbeitsdiskette, auf der viel 
Platz für Daten zur Verfügung 
steht. Bevor Sie mit der Uni- 
Datei arbeiten, muß sienoch für 
Ihre Wünsche angepaßt wer- 
den. Dazu laden Sie das Pro- 
gramm mit einem Doppelklick 
auf»Lader-Uni_1MB«bzw.»La- 
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kann, hängt davon ab, welche 
Programme sonst noch in Ih- 
rem Rechner Speicher bele- 
gen. Haben Sie mehr als 1 
MByte Speicher zur Verfügung, 
können Sie den Wert natürlich 
kräftig hochsetzen. 

Einige Zeilen weiter unten se- 
hen Sie die Zuweisung »Max= 
250«. Diese Zahl ist die maxi- 
male Zahl der Datensätze und 
für normale Anwendungen völ- 
lig ausreichend. Haben Sie 


An Dateianfang 
springen 
! 


Fünf Datensätz: 
zurück 


Bild 3. So verwenden Sie die 
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verselle 
waltung 


Neue Datei erstellen 
Vorhandene Datei laden 


Bild 2. Diese blinkende Box 
erscheint beim 
Start der Uni-Datei 


Hier wird angegeben, wo die 
Daten vom Programm abgelegt 
werden. Bitte stellen Sie diese 
Variable entsprechend Ihren 
Wünschen ein. Speichern Sie 
jetzt das Programm und starten 
Sie es erneut. 

Dazu klicken Sie das jeweili- 
ge Lader-Programm an und 
warten, bis der Bildschirm wie 
in Bild 2 aussieht. Da Sie bisher 
noch keine Datei erzeugt ha- 
ben, tippen Sie »n«, um eine 
neue Datei zu erstellen. Nun 
müssen Sie die Anzahl der Da- 
tenfelder und die Bezeichnung 
der einzelnen Felder sowie den 
Namen der Datei eingeben. Ist 
das erledigt, erscheint der 
Hauptbildschirm von Uni-Datei 
(Bild 3). Die von Ihnen eingege- 
benen Feldnamen werden links 
oben angezeigt, In der Kopfzei- 
le des Bildschirms sehen Sie 
den vorher gewählten Pfadna- 
men, den Dateinamen, den frei- 
en Systemspeicher, die Uhrzeit 
und das Datum. Darunter ste- 
hen die Nummer des angezeig- 
ten Datensatzes und die Anzahl 
der Datensätze, die im Spei- 
cher stehen. Am unteren Bild- 
schirmrand ist eine Reihe von 
»Schaltern«, die sich mit der 
Maus anklicken lassen, Die 
Schalter mit den Pfeilen wer- 
den verwendet, um den ange- 
zeigten Datensatz zu wechseln 


- ähnlich wie die Tasten bei ei- 
nem Kassettenrecorder. In Bild 
3 wird gezeigt, wozu Sie wel- 
chen Schalter verwenden. Die 
beiden mittleren Schalter, »Ja« 
und »Nein«, werden vom Pro- 
gramm bei Abfragen benutzt. 
Alle Funktionen der Uni-Da- 
tei werden über Menüs mit der 
Maus ausgewählt. Um Daten- 
sätze in Ihre Datei einzugeben, 
wählen Sie aus dem ersten Me- 
nü, »Datei«, den Menüpunkt 
»Datei pflegen«. Das Programm 
fragt nun nach den neuen In- 
halten für Ihre Datei, Jedes Da- 
tenfeld darf höchstens 60 Zei- 
chen lang sein - zu lange Ein- 
gaben werden automatisch auf 
diese Länge gekürzt. Mit Hilfe 
der Funktionstastenbelegung 
(wird später erklärt) können Sie 
sich die Eingabe von oft wieder- 
kehrenden Daten vereinfachen. 
Die Eingabe wird abgebrochen, 
indem Sie im ersten Feld eines 
Datensatzes zuerst <F1> und 
dann <RETURN> drücken. 
Bevor Sie mit Ihrer Datei ar- 
beiten, soliten Sie sie erst ein- 
mal speichern. Das geschieht 
mit einem der »Speichern«-Be- 
fehle aus dem Datei-Menü. 


Frühzeitig 
Daten sichern 


Wählen Sie »Speichern«, so 
wird die Datei unter dem Na- 
men gespeichert, den Sie beim 
Erzeugen der Datei angegeben 
hatten. »Speichern als« erlaubt 
Ihnen, einen neuen Namen für 
die Datei einzugeben. »Spel- 
chern privat« speichert die Da- 
tei mit einem Paßwort - aber 
Vorsicht! Der Paßwortschutz ist 
so einfach, daß Sie dieses 
Schutzverfahren aufkeinen Fall 
für wirklich geheime Daten ver- 
wenden sollten. 


ANWENDUNGEN 


Kurz noch zu den weiteren 
Befehlen des Datei-Menüs: 
»Datei laden« lädt eine neue 
Datei. Das Programm erkennt 
automatisch, ob Sie ihre bisher 
verwendete Datei gesichert ha- 
ben und macht eine Sicher- 
heitsabfrage, wenn das nicht so 
ist. Mit »Datei anhängen« hän- 
gen Sie eine Datei an die Datei 
im Speicher an. Dabei muß die 
Anzahl der Felder natürlich bei 
beiden Dateien übereinstim- 
men. Außerdem darf die maxi- 
male Datensatzzahl nicht über- 
schritten werden. 

Um eine Datei in einem ande- 
ren Verzeichnis auf der Diskette 
zu verwenden, wählen Sie 
»Disk-Pfad ändern« und geben 
den neuen Pfadnamen ein. 
<RETURN> übernimmt den 
alten, falls Sie doch nichts än- 
dern möchten. Einen neuen 


Sortieren 
ala carte 


Dateinamen geben Sie mit»Da- 
teinamen ändern« ein, und »Di- 
rectory zeigen« zeigt - wer hätte 
das gedacht? - das Inhaltsver- 
zeichnis des gewählten Pfades. 

Schließlich können Sie mit 
»Neustart« das Programm von 
vorne beginnen (beispielsweise 
wenn Siessich total verfranzt ha- 
ben oder um mit einer anderen 
Datei zu arbeiten) und mit »En- 
de« das Programm beenden - 
in beiden Fällen werden alle 
Daten gelöscht. 

Zurück zu Ihrer Datei. Das 
»Datensatz«-Menü hilft Ihnen 
bei der Verwaltung Ihrer Daten. 
Hier können Sie einen Daten- 
satz löschen, duplizieren und 
editieren. Diese Befehle bezie- 
hen sich immer auf den Daten- 
satz, der gerade auf dem Bild- 
schirm steht. Beim Löschen 
wird der letzte Datensatz der 
Datei an die Stelle des gelösch- 
ten Datensatzes geschrieben. 
»Duplizieren« kopiert den ak- 
tuellen Datensatz an das Ende 
der Datei. Um den aktuellen 
Datensatz zu ändern, wählen 
Sie »editieren« und geben die 
neuen Feldinhalte ein - soll ein 
Feld nicht verändert werden, 
drücken Sie einfach <RE- 
TURN>, 


Einen Datensatz 
zurück 


Für Fragen des 
Programmes 


»Knöpfe« am unteren Bildschirmrand. Durch Anklicken wird ihre Funktion aktiviert. 


AM DEE WORD. CH 


»Gehe zu Datensatz Num- 
mer« bringt den Datensatz mit 
der eingegebenen Nummer auf 
den Bildschirm. Um die Feldna- 
men zu ändern, wählen Sie 
»Feldnamen editieren« - das 
Ändern funktioniert ähnlich wie 
bei »Datensatz editieren«. 

Sehr wichtig für eine Datei- 
verwaltung sind die Sortier- 
funktionen. Die Uni-Datei kann 
Ihre Daten nach jedem Feld 
aufsteigend und absteigend 
sortieren. Ein Beispiel: Sie wol- 
len Ihre Adreßdatei alphabe- 
tisch nach dem Nachnamen 
sortieren. Dazu wählen Sie 
»Aufsteigend sortieren«. Es er- 
scheint ein kurzer Hinweis, in 
dem Sie gefragt werden, ob Sie 
wirklich sortieren wollen. Klik- 
ken Sie auf »Ja«. Jetzt müssen 
Sie dem Programm sagen, 
nach welchem Feld es sortieren 
soll: Dazu wählen Sie aus dem 
»Suche nach«-Menü den Na- 
men des Feldes aus, nach dem 
sortiert werden soll. Während 
des Sortiervorgangs wird gra- 
fisch angezeigt, wie groß der 
schon sortierte Anteil der Datei 
ist. Das absteigende Sortieren 
funktioniert nach dem gleichen 
Muster. 

Nachdem Sie jetztschon ein- 
mal in das »Suche nach«-Menü 
hineingeschnuppert haben, 
wissen Sie bereits, daß in die- 
sem Menüalle Feldnamen Ihrer 
Datei stehen. Wenn dieses Me- 
nü nicht gerade zum Sortieren 
»mißbraucht« wird, dient es 
zum Suchen von Daten. Dazu 
wählen Sie einfach den Namen 
des Feldes, nach dem Sie su- 
chen wollen. Die Uni-Datei fragt 
nun, nach was Sie suchen wol- 
len; geben Sie den Ausdruck 
an, nach dem Sie suchen. Um 
hier abzubrechen, tippen Sie 
wie üblich <F1> und <RE- 
TURN>. Beim Suchen gilt fol- 
gende Regel: Wenn der Such- 
begriff mit dem Anfang des Da- 
tenfeldes übereinstimmt, wird 
der Datensatz angezeigt. Um 
weiterzusuchen, nachdem ein 
Datensatz gefunden wurde, 
wählen Sie »Weitersuchen«. 

Was nutzt die beste Dateiver- 
waltung, wenn man die Daten 
nicht ausdrucken kann? Nichts, 
Deshalb sollten Sie sich jetzt 
einmal das Drucker-Menü der 
Uni-Datei ansehen. Hier haben 
Sie zunächst einmal die Mög- 
lichkeit, den Datensatz auszu- 
drucken, der gerade auf dem 
Bildschirm steht. Wählen Sie 
»Selektierte Datensätze«, so 
müssen Sie wie beim Suchen 
einen Feldnamen auswählen 
und einen Suchbegriff einge- 
ben. Das Programm druckt 
dann alle Datensätze, die mit 
diesem Suchkriterium überein- 
stimmen. Um alle Datensätze 
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zu drucken, verwenden Sie den 
Befehl »Alle Datensätze«. 

Die Drucker-Parameter las- 
sen sich bei diesem Programm 
sehr komfortabel einstellen. 
Dazu wählen Sie »editieren« 
aus dem »Drucken«-Menü. Es 
erscheint ein großes Fenster 
(Bild 4), in dem Sie alle Druk- 
kerparameter einstellen. Das 
geschieht, indem Sie mit der 
Maus auf die Schalter rechts im 
Fenster klicken. Die meisten 
Dinge in diesem Fenster erklä- 
ren sich von selbst. Bei »Etiket- 
tenhöhe« stellen Sie ein, wie 
viele Felder der Datei unterein- 
ander gedruckt werden sollen - 
stellen Sie z.B. die Etikettenhö- 
he auf drei, werden nur die er- 
sten drei Felder jedes Datensat- 
zes gedruckt. Setzen Sie den 
Schalter bei »Informations-Zei- 
le drucken« auf»ja«, wirdan den 


Dateien 
wie gedruckt 


Anfang des Ausdrucks eine Ti- 
telzeitele mit Dateinamen und 
Datum gesetzt. Interessant ist 
die Frage »Datenfelder neben- 
einander in eine Zeile druk- 
ken«. Damit machen Sie Tabel- 
len aus Ihren Daten. Wenn Sie 
den Schalter dazu auf »Ja« 
schalten, erscheint ein neues 
Fenster (Bild 5). Hier stellen Sie 
ein, wie breit jedes Datenfeld in 
der Tabelle gedruckt werden 
soll. Dazu bewegen Sie den 
blinkenden Stern mit Hilfe der 
beiden Pfeile zu dem Feldna- 
men, dessen Breite in der Ta- 
belle Sie ändern wollen. Mit 
den Rechts- und Linkspfeilen 
ändern Sie die Breite - der 
»+/-«Schalter macht größere 
‚Änderungen. Um ein Feld nicht 
zu drucken, setzen Sie den 


Linker Rand 
Etikettenhöhe (in Zeilen) 
Anzahl Zeilen zwischen Etik: 
Infornations-Zeile drucken 


(in Zeichen 


Zeilenabstand in Zoll 
Druckqualität (NLO/Draft) 
Schrift (Picx/Elite/schnal) 


Feldnanen nitdrucken 


Datenfelder nebeneinander 
in eine Zeile drucken 


Wert auf Null, Alle Werte wer- 
den vom Programm addiert und 
mit den Abständen zwischen 
den Tabellenspalten verrech- 
net. Das Ergebnis dieser Rech- 
nung wird bei »Sie haben eine 
Zeilenbreite von x eingestellt« 
angezeigt. Achten Sie darauf, 
daß Ihr Drucker so breite Zeilen 
in der eingestellten Schrift 
drucken kann, sonst gibt es 
Probleme beim Drucken. Mit ei- 
nem Klick auf »Ok« gelangen 
Sie zurück zur Druckerparame- 
ter-Einstellung; ein weiterer 
Klick auf »Ok« in diesem Fen- 
ster verläßt die Einstellung der 
Druckerparameter. 

Im »Service«-Menü gibt es et- 
was sehr praktisches: die Funk- 
tionstastenbelegung. Dazu 
wählen Sie »F2 bis F10 bele- 
gen«. Hier werden diese Tasten 
mit einem beliebigen Text mit 
biszu 60 Zeichen Länge belegt. 
Die F-Tasten-Belegung ist im 
Menüpunkt »Datei pflegen« und 
„Datensatz editieren« benutz- 
bar. Die Anweisung »Status« im 
Service-Menü zeigt die Spei- 
cherbelegung des Program- 
mes, und mit »Version« erhalten 
Sie eine Information über den 
Autor, Rainer Karwelies. 

Sollten Sie einmal die Anzahl 
der Felder Ihrer Datei oder de- 
ren Reihenfolge verändern wol- 
len, laden Sie das Programm 
»Uniltil«. Bevor Sie es anwen- 
den können, müssen Sie even- 
tuell den Pfadnamen am An- 
fang des Programmes ändern. 
Ist das Programm korrekt ge- 
startet worden, erscheint der 
Hinweis »Bitte mit der Maus ei- 
nen Menüpunkt anwählen«. 
Um die Anzahl der Felder einer 
Datei zu erhöhen, wählen Sie 
den entsprechenden Menü- 
punkt. Daraufhin wird nach 
dem Dateinamen gefragt. 


) 5 
18 
etten 1 


Bild 4. Hier werden die Druckerparameter eingestellt 


142 ww HOMESOMPUTERWORLB.COM 


Nachdem Sie ihn eingegeben 
haben, erscheint die Frage 
»Wie viele Felder soll ich an die 
x vorhandenen anhängen (Max 
= x)«. Geben Sie ein, wie viele 
Felder Sie zusätzlich benöti- 
gen. Dabei können Sie maxi- 
mal die Anzahl angeben, die 
vorher bei »Max« angezeigt 
wurde. Nun fragt das Pro- 
gramm nach dem Namen des 
oder der zusätzlichen Felder 
und erweitert die Datei entspre- 


sen sich jeweils zwei Felder der 
Datei gegeneinander vertau- 
schen. Dazu geben Sie »J« ein 
und dann, durch Komma ge- 
trennt, die Nummern der zu ver- 
tauschenden Felder. Ein Bei- 
spiel: Verwenden Sie 


1,5 


um die Felder 1 und 5 zu ver- 
tauschen. 


Nie breit darf Jedes Batenfell Keegnuckı werden ? 


Herr/Frau 28 


= nicht drucken) 


28 Sie haben eine Zeilenbreite 
A von 368 Zeichen eingestellt, 
29 
28 


Bemerkung 1 
Bemerkung 2 
Kundennummer: 


Satz OK 


Anzahl 
Datenfel 


28 


alten zwischen 
rn (in Zeichen) 


Bild 5. Dieses Fenster verwenden Sie, um aus Ihren Daten 


Tabellen zu machen. 


chend. Zum Speichern der Da- 
tei wählen Sie »Geänderte Da- 
tei sichern als«. 

Das Löschen einzelner Fel- 
der funktioniert ähnlich: Sie 
wählen »Anzahl Datenfelder 
verringern« und geben wieder- 
um den Dateinamen ein. Nun 
sehen Sie alle Datenfelder zu- 
sammen mit einer Nummer 
aufgelistet. Um ein bestimmtes 
Feld zu löschen, geben Sie sei- 
ne Nummer ein. Achtung: 
Wenn Sie ein Feld löschen, lö- 
schen Sie auch alle Inhalte die- 
ses Feldes. Falls Sie doch 
nichts löschen wollen, und um 
das Löschen zu beenden, ge- 
ben Sie »0« ein. Auch hier müs- 
sen Sie »Geänderte Datei si- 
chern als« verwenden, um die 
neue Datei zu sichern. 

Etwas komplizierter wird es, 
wenn Sie die Reihenfolge der 
Felder in einer Datei ändern 
wollen. Dazu müssen Sie zu- 
erst »Anzahl Datenfelder erhö- 
hen« wählen und den Namen 
|Hrer Datei eingeben. Auf die 
nun folgende Frage geben Sie 
»0« ein und drükken <RE- 
TURN>. Nun wählen Sie den 
Menüpunkt »Reihenfolge der 
Felder ändern«. Das Programm 
zeigt Ihnen die Felder Ihrer Da- 
tei mit Nummern an. Hier las- 


Geben Sie nun wieder »J« 
ein, können Sie wieder zwei 
Felder vertauschen und so wei- 
ter. Mit »N« auf die Frage »Willst 
Du zwei Felder vertauschen« 
bricht die Funktion ab; spei- 
chern Sie Ihre Datei mit »Geän- 
derte Datei sichern als«. 

Wollen Sie die Feldanzahl ei- 
ner Datei erhöhen oder redu- 
zieren, müssen Sie »Programm 
neu starten« wählen und diese 
Operation wie beschrieben 
ausführen. 

Leider gibt es bei einem 
512-KByte-Amiga manchmal 
Speicherprobleme mit »Uni- 
Util«. Es hat sich am besten be- 
währt, keine anderen Program- 
me gleichzeitig laufen zu las- 
sen und das Programm von der 
Workbench aus zu starten. 

Bereits nach kurzer Einarbei- 
tungszeit werden Sie feststel- 
len, daß Uni-Datei Ihnen die Ar- 
beit sehr einfach macht. Die 
einzelnen Funktionen sind sau- 
ber durchdacht und so schnell, 
daß Sie nur mit geringen Warte- 
zeiten rechnen müssen. Dazu 
kommt noch der Vorteil, daß Sie 
- dank Basic - vollen Zugriff auf 
alle Funktionen haben und die- 
se nach Ihren Wünschen an- 
passen können. Also: Legen 
Sie los. kn 
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Austin 


EinGABEHILFE 


Checksummer 


Dieses Programm ist unentbehrlich beim 
Abtippen unserer Listings. Es hilft, Tipp- 
fehler zu vermeiden und spart viel Zeit. 


in längeres Listing ohne Fehler abzutippen ist (fast) unmög- 

lich, Aus diesem Grund haben wir in Ausgabe 3/88 des AMI- 

GA-Magazins eine Eingabehilfe - den Checksummer 
»Checkie 42« veröffentlicht. Die hier vorgestellte Version 1.1 enthält 
erweiterte Funktionen und bietet mehr Komfort. Damit möglichst 
viele unserer Leser dieses Programm auch tatsächlich anwenden, 
haben wir es möglichst kurz gehalten und in einer Sprache pro- 
grammiert, die alle Abtipper besitzen: Amiga-Basic. 


Die Form der Listings 

Die Listingzeilen bestehen aus einer bis zu vierstelligen Zellen- 
nummer, der zwei- bzw. dreistelligen Prüfsumme und der eigentli- 
chen Programmzeile. Beispiel: 


10 TTO print “Hallo!” 
 Prüfcode 
77 Zeilennummer 


Nach einer Leerstelle im Anschluß an die Zeilennummer stehen 
bis zu drei Zeichen Prüfcode. Die einzelnen Zeichen können sein 
eine Ziffer (»0« bis »9«), ein kleiner Buchstabe (»a« bis »z«) oder ein 
Großbuchstabe (»A« bis »Z«). Die ersten beiden Zeichen der Prüf- 
summe sind der eigentliche Prüfcode. Im dritten Zeichen ist die 
Spaltenposition der ersten »Nicht-Leerstelle« verschlüsselt. Das ist 
für diejenigen Anwender interessant, welche die Struktur des Li- 
stings, also die Einrückungen durch Leerzeichen, übernehmen 
wollen. Ist dies nicht Ihre Absicht, können Sie die Eingabe der 
Checksumme schon nach den ersten beiden Zeichen mit <Re- 
turn> abschließen. BeiCheckie 42 muß die Groß- und Kleinschrei- 
bung so wie im Listing abgedruckt übernommen werden. 


Der Umgang mit Checkie 42 
Nach dem Start fragt das Programm nach einem Dateinamen. 
Unter dem angegebenen Namen speichert Checkie 42 die einge- 
gebenen Listingzeilen ab. Existiert bereits eine Datei mit diesem 
Namen auf der Diskette, so haben Sie mit der Abfrage »Nur Check- 
summer ausgeben?« zwei Möglichkeiten: 
<j> Ausgabe der Datei mit Checksumme auf den 
Bildschirm oder den Drucker. 
<n> Einlesen der Programmzeilen aus der 
vorhandenen Datei und Eingabe der 
Checksumme mit der Tastatur. 


Eingabehinweis 


Geben Sie »Checkie 42« (Version 1.1) bitte mit Checkie 42 aus der 
AMIGA-Ausgabe 3/88 oder 12/87 ein. Sollten Sie die alte Eingabehilfe 
nicht besitzen, so tippen Sie das Listing für die Version 1.1 im norma- 
len Basic-Editor ohne Prüfsummen und Zeilennummern ab. 


Beide Alternativen sind gedacht für Anwender, die ein Listing 
nicht mit dem Zeileneditor des Checkie, sondern mit einem schnel- 
leren und/oder komifortableren Editor ihrer Wahl - z.B. dem Editor 
von Amiga-Basic (mit »..” 2= speichern) erfaßt haben. 

Checkie 42 errechnet nach der Eingabe <j> die Prüfsummen 
Ihres Textes und Sie können diese dann mit dem Listing im AMIGA- 
Magazin vergleichen. Beider Ausgabe auf den Bildschirm schreibt 
das Programm die Programmzeilen inklusive Checksummen zu- 
sätzlich in eine Datei auf Diskette mit dem Zusatz ».chk«. Diese 
können Sie später z.B. mit dem CLI-Befehl TYPE ohne erneute 
Berechnung der Prüfsumme noch einmal ausgeben. 

Haben Sie »Nur Checksumme ausgegeben?« mit »n« beantwor- 
tet, dann können Sie dem Programm den Vergleich überlassen, in 
dem die Frage »Eingabe aus Datei= mit »j« beantwortet wird. Dann 
brauchen Sie nur noch die Checksummen eingeben. Der Check- 
summer holtsich die Zeile ausder angegebenen Dateisstattvonder 
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Tastatur. Entspricht die eingegebene Prüfzahl nicht der errechne- 
ten, kann die Zeile gleich korrigiert werden. 

Beantworten Sie obige Frage mit »n«, zählt Checkie die in der 
Datei vorhandenen Zeilen und wartet mit der Zeilennummer »An- 
zahl+1« auf die Eingabe einer neuen Zeile. Alle weiteren Eingaben 
hängt das Programm an die bestehende Datei an. Diese Funktion 
ist sinnvoll, wenn Sie ein Listing in mehreren Teilen abtippen wol- 
len. 


So tippen Sie Listings ab 

Haben Sie anfangseinen Dateinamen eingegeben oder Sie hän- 
gen neue Zeilen an eine bestehende Datei an, dann arbeiten Sie 
im normalen Eingabemodus. Checkie 42 schlägt dabei eine Zei- 
lennummer vor und wartet auf die Prüfsumme. Nach Eingabe der- 
selben taucht der Cursor zwischen den zwei Trennstrichen auf. 
Dort muß nun die Zeile »ohne« Zeilennummer und Prüfsumme ein- 
gegeben werden. Nach Betätigen der Taste <Return> berechnet 
Checkie die Prüfsumme. Leerstellen vor und hinter der Programm- 
anweisung werden ignoriert. Stimmen Programmzeile und Prüf- 
summe mit derjenigen im Listing überein, speichert der Check- 
summer die Eingabe ab und wartet auf die nächste Zeile. 


Einfügemodus 

Wahrscheinlich wird eine abgetippte Zeile mal einen Fehler ent- 
halten. Checkie 42 positioniert den Cursor dann an den Anfang der 
Zeile und wartet auf die korrekte Eingabe. Korrekturen lassen sich 
mit der Backspace- oder Delete-Taste durchführen. Um Zeichenfol- 
gen einzufügen, kann kurzfristigmit <F2> der Einfügemodus ein- 
geschaltet werden. Dieser Modus sollte allerdings nach der Fehler- 
korrektur wieder ausgeschaltet werden, da er die Eingabe verlang- 
samt. 


Sonderfall: Prüfsumme ignorieren 

Möchten Sie z.B. eine Kommentarzeile nicht »original« überneh- 
men, läßtsichtrotz einer falschen Prüfsumme eine Übernahme der 
Zeile mit der Funktionstaste <F6> erzwingen. Sie können damit 
aber auch falsche Programmzeilen übernehmen. Verwenden Sie 
deshalb die Taste <F6> nicht gewohnheitsmäßig. Der Checksum- 
mer teilt Ihnen nach Beenden des Programms mit, wieviel Zeilen 
er ungeprüft übernommen hat. 


Prüfsumme und Zeilennummer ändern 

Natürlich kann es auch vorkommen, daß die Programmzeile 
zwar richtig abgetippt wurde, sich bei der Prüfsumme aber ein Feh- 
ler eingeschlichen hat. Nach Betätigen von <F1> kann die Prüf- 
summe korrigiert werden. Während der Eingabe der Prüfsumme 
läßt sich mit <F7> die vom Programm vorgeschlagene Zeilen- 
nummer verändern. Damit können Sie gezielt nur bestimmte Teile 
eines Listings übernehmen. 

Haben Sie eine mit einem anderen Editor geschriebene Pro- 
grammdatei überprüft und nur in wenigen Zeilen Fehler festge- 
stellt, lassen sich durch Vorgabe der Nummern diese Zeilen gezielt 
ändern. Bei Angabe der Zeilennummer in aufsteigender Reihenfol- 
‚ge benötigt das Programm übrigens erheblich weniger Zeit für die 
Suche der Zeilen in der jeweiligen Datei. Um die versehentliche 
Übernahme fehlerhafter Zeilen zu verhindern, sperrt das Pro- 
gramm bei fehlender Übereinstimmung der Prüfsummen die Taste 
<F7> (Änderung der Zeilennummer). 


Fehlerfrei abtippen 


Eingabe beenden 

Die Kombination <Ctrl-e> beendet den Programmlauf nach 
vollständiger Eingabe des Listings oder für eine Unterbrechung. 

Am Schluß noch ein Tip für alle Leser, denen unser Basic-Editor 
zu langsam ist. Die Berechnung der Prüfsummen erfolgt im Unter- 
programm »CalcSumme«. Dieser Teil ist sehr einfach in schnellere 
Sprachen, wie beispielsweise C, umsetzbar. 

Wer schon einmal Fehler in einem abgetippten Listing gesucht 
hat, der weiß, wie frustrierend diese Arbeit sein kann. Nutzen Sie 
deshalb den »Checkie 42«. Sie sparen viel Zeit und müssen sich 
nicht dauernd auf die Suche nach tückischen Fehlern begeben. 

Dieter Behlich/kn 
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VENLEO REN KRRRRERRe 


f REN ##* Checksunner: Oheckie 42 . 

ARE REM 6% Version 1.1 a. 

AR RE KR 
27 Start: 


W42 GOSUB Inst 

PH GOSUB OpenDatei 
\8ab IF dn$="" THEN Ende 
\ab2 cOSUB Bild 

10 0WD NeueZeil 
N K42 .COSUB loeschen 

12 at GOSUB EingabeSunme 

\ IF FEndeswahr THEN Ende 


14 WO Wiederholung: 
29 002 


GOSUB EingabeZeile 
IF FEndesvahr THEN Ende 
GOSUB CaleSunne 
IF FZok = falsch THEN GOTO Wiederholung 
(GOSUB Vebernahne 
coTO NeusZeile 
Ende; 
COSUR fertig 
END 
0 Init 
wahrz-1 
faluch«O 
IZeile=240 : REM Anzehl Zeichen/Zeile 
1BZeile=60 ; REM Anzahl Zeichen/Bildschirzzeile 
AnsBZeilen=LZeile/IBZeile 


ax=6 : zys14 : REM Position Zeile 

8x=20 ; sys5 : REM Position Checksunne 
An2052=3 : REM Anzahl Ziffern/Checksunme 
DIM z(1Zeile) 

DIM es(An20s2x2) “ 

os(AnzCsZ)=0 : REM Zeilenstart 

a=0 : b=0 : 0=0 : REM Hilfsvartablen 


4=0 : j=0 : k=0 : REN Zählvariablen 
PZok = wahr : FO23«100 
CheckfilesO : Zeilesi 
READ Faktor(4) 
WHILE Faktor(1)<>0 
ist 
READ Faktor(1) : REM Faktorenneihe 
END 
Anzfakei 
DATA 2,3,4,5,6,0 
RETURN 
OpenDatei: 
ON ERROR GOTO Dateifehler 
aus 
LOCATE 3,5:dng="":INPUT "Dateiname: ";äng 
OPEN dn$ FOR INPUT AS #1 
IF Ffehler=53 THEN NeueDatei 
LOCATE 5,5:PRINT "Nur Checksunnen ausgeben? ($/n) ” 
ur3(1) 
IF eg="j” THEN 
LOCATE 7,5:e$="":PRINT “Bildschirm oder Drucker? (b/8) * 
seß=INPUTS(1) 
IF ega"a” THEN 
OPEN "prt:” FOR OUTPUT AS #4 
ELSE 
OPEN dn$+",chk” FOR OUTPUT AS #4 
END IF 
WHILE NOT EOP(1) 
LINE INPUT#1,e8 
apoa=LäN(e8) 
2(apos)=32 
FOR 1=1 TO apos 
#(1-1)»ASC(MIDS(e$,1,1)) 
NEXT £ 
GOSUB CaleSunne 
420 
WRILE z{1)=32 : dei+l : WEND 
IF POz3ei THEN 
es(6)»-16 
ELSE 
os(6)=i : F0n3=1 
ann IF 
PRINT USING "@###";Zeile; : 
PRINT@A,USING "a ## # ";Zeile 
FOR 1=4 70.6 
IF es(1)>35 THEN es(1)=es(i)+6 
IF cs(i)>9 THEN es(i)=es(i)+7 
ERINT CHRS(es(1)+48); 


: REN Leerstelle 


PRINT 7 *; 
PAINT#4,” 


99 ex 


212 700 Dateifenler: 


2113 082 


IT yIZ OPEN Ans FOR INPUT AS#ı 

MB 5) OPEN dnS+”.bak” FOR OUTPUT AS #2 

naar 2) 

2035 WHILE flen>=32000 

321 14 _es=INPuTs(32000,1) 

Ba  Pamme2,es; 

123 gez wen 

12407 IF flen IHEN 

125 554  es=INPUTS(flen,1) 

226 sp PRINTM2,e8; 

Te mmır 

128 2g 2 GIOSE 1 

298 

130 &00 Si1d: 

Bi n2 cıs 

24 LOCATE 2,10 

133 2 PRINT ">>>>>>> Checkie 42 - Der ultimative Checksum 
zer <<<<<<ct 

BE XR LOCATE 13,2x 

23ie FOR 1:1 T02 

136 ka FOR j=1 TO LöZeile 

137 #6 PRINT "-*; 

138 tk NEXT 3 

19 Mı LOCATE 13+AnzBZeilen+1,zx 

O2 NEXT I 

da HI LOCATE 5,30:FRINT "<CIRL > = Progrann beenden“ 

AA2 vA LOCATE 7,8:PRINT "<F2> = Einfügemodus ein 

143 ug | LOCATE 7,40:PRINT "<F1> = Ci 

AA& AN LOCATE 9,40:PRINT "<P6> = 

WS HE LOCATE 9,8:PRINT "<F3> = Zeile löschen” 

146 v3 LOCATE 11,8:PRINT *<F7> = Zeilennummer Undern” 

7 jU RETURN 

148 5£0 loeschen: 

WI WE2 LOCATE ay,1 

190 88 FOR 1-1 70 AnzBZeilen 

151 j24 PRINT TAB(zx) ;SPACES(LBZeile) 

dsa 392 NET 

15300 FOR 1x0 TO LZeile 

154 v84 z(1)«32 

B5w2 NETi 

156 3E | LOCATE 2y,1 

357 0m PRINT USING "###@ "Zeile 

158 d9  apos=0 

9X KETURN 

160 v0 EingabeSunne: 

461 v2 Farbe: 1 


PRINT #4,CHR$(es(1)+48); 
wrı 
PRINT ” "jes 
PRINT#4,” "je$ 
ZeilesZeile+l 
van 
CLOSE 1 
ana” 
PRINT: PRINT "Taste drücken” 
e$sINPUTs(1) 
RETURN 
END IF 
LOCATE 7,5:PRINT“Zingabe aus Datei? (J/n) 
IF e8e”j” THEN 
Checkfilesi 
CLOSE ı 
GOSUB backup 
OPEN An$+".bak” FOR INPUT AS #1 
OPEN dn$ FOR OUTPUT AS #2 
RETURN 
zum ıF 
WEILE NOT EOF(1) 
LINE INPUT#1,e$ 
Zeileszeile1 
WERD 
CLosE ı 


: CLOSE & 


JeINPUTS(L) 


RETURN 


Ffehler=ERR 


LOCATE sy,sz+1 
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INGABEHILFE 


166\a 
187 P& 
168 In 
169 nt 
170 ya 
An 
172 Xp 
173 
aA on 
175 KUL 
Lay 
IM. CoR ELSEIF e=135 THEN 
178 de GOSUB Neuze 
179 Br ee135 
180 1BB EISEIF en8 
dB A IP L>1 THEN 
282 826 1e1-1 

183 4 10 
aa und END IF 
185 In EISEIF e=13 
BO RO IF ieh 
187 0f@ ELSE 
Warad IP >47 am 


: REM <35> 
aysaxr 


189 vi6 exe-48 : REM 0-9 
190 AI)  EISEIF e>64 

191 Rv6 @=8-55 : 

192 JA  EISEIF e>96 AND e<123 THEN 

193 2x6 : REM 8-2 


194 554 
193 yu6 6070 blinken : REM 
196 684 END IF 

197 4 
198 ve 
199 D7 
200 A32 
201 un 
202. 650 ESEnde: 

203 2K2 COLOR 1,0 

204 On LOCATE sy,sx-15 
205. a0 INT "Cheoksunr 
206 gt RETURN 

207 REO NeuZeile: 


208 aU2 IF FZok = wahr THEN 
BO PL4  NeuZeile-0 
210 nn WHILE e<>13 OR NeuZeil 


aut Ux6 
212 or 
213 gP 
214 In 
2is in 
216 vi4 
217 kn 
218 206 
219 yya 
220 Von 
221 0a 
222 ip& 
223 NH 
24 
Ras Xa 
EEE 
FEN 
228 v6 
29 Yp WHILE ( 
230 208 LINE INPUT#1,e$ 
231 m PRINTW2,eB 
232 17. ZellerZei 
233 006 WEND 

234 of IF Bora) Ti 
239 bI8 CLOSE 1 
236 81 NeuZeilesZeil 
237 UN 
238 96 
239 ng6 
AU oh 
241 wu 
242 ala 
243 HtO RETURN 
Q44 AR Eingabeze 
a n02  x=cs(Anzcs2) 
246, BWO weiter 

247 g82 y+INT(x/LBZ 
Bay LOCKTE oy,ex 

| 249 08. COLOR 0,1 


IF NeuZeile > 9999 
=8 THEN NeuZeile: 


VeuZeile; 


es 


277 0% 
278 662 
273 204 
250 &b2 
281 Rg4 
282 982 
283 
254 WP2 
285 hz 
286 52, 
278 
28: = 
239 3 

Eu 
21 
22% 
23 
234 36 
295 Te& 


0 


inode«inode X0} 


Listing. Der verbes- 
serte »Checkie 42«. 
Bitte mit der 

ersten Version von 
»Checkie 42« 

oder ohne Prüfsummen 
und Zeilennummern 
eingeben. 


FZok THEN 


'9 THEN PRINT:PRINT TAB(ex) ; 


x+(x MOD LBZeile) 


TaB(ax); 


(Fortsetzung) $ 


SEE FINSCHHTERW OR S.2OM 
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sprache, wenn man sie zu nutzen weiß. Wir bieten 
Ihnen einen leichten Einstieg in die Welt des Pro- 
grammierens und zeigen, wie Profis in Basic das letzte By- 
te aus dem Amiga-Betriebssystem hervorzauberı 

Im Sonderheft 10 erfahren Sie alles über das Einbinden 
und Ansprechen von System-Routinen und Devices. So 
finden Sie neben den grundlegenden Kursen auch aus- 
führliche Artikel zu VSprites, Hardware-Sprites, Bobs, 
Superbitmaps, Double Buffering, Dualplayfield, Copper, 
Gameport Device und vieles mehr. 

Geben Sie Ihren Programmen eine professionelle Note 
mit einem File-Requester, der auch höchsten Ansprüchen 
‚genügt. Sie finden ihn und andere hilfreiche Sub-Program- 
me zum einfachen und problemlosen Einbinden in Ihre 
Projekte in der nächsten Ausgabe. 

Wollen Sie Ihren Basic-Programmen auf die Sprünge 
helfen? Wir stellen die drei verbreitetsten Compiler bzw. 
Basic-Dialekte - HisoftBasic, AC Basic und GFA Basic - 
vor und zeigen, wo ihre Stärken und Schwächen liegen. 


A migaBasic ist eine leistungsfähige Programmier- 


DL 1 


_N DER HER T 


EISEIF e=5 THEN 
Fnde=vahr 
RETURN 

END IF 

6010 weiter 

insert: 

IF apos>x 


353 pI6 
354 94 
355 
336 036 
357 Bi8 
358 Di 
359 Ich 
360.23 


zFak 


362 y26 


ungeprÜft gespeieı 


Listing. Der verbesserte »Checkie 42« 
(Schluß) 


146 „w HOMEsCNPLTERWoRL>.LOM 
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HiSoft-Basic- 
Compiler 

Mit HiSoft Basic gibt es 
endlich auch einen Basic- 
Compiler für den Amiga. 
Der interaktive Editier-, 
Kompilier- und Laufzeit- 
zyklus entspricht dem eines 
Interpreters. 

Der integrierte Editor erlaubt 
eine komfortable Eing 
HiSoft Basic unterstütz 
Eigenschaften des Amiga mit 
Fenstern, Grafik-Kommando: 
Sprite-Handling und Masct 
nenzugriffen während des 
Gebrauchs von Bibliotheken 
Es ist voll kompatibel r 
Amiga-Basic, andere S 
darddialekte für den P 
z.B. Microsoft QuickBasic 
und den Atari ST können mit 
geringen Modifikatio 


die a 
Markt&fTechnik 


Zeitschriften - Bücher 


Devpac Makros können bis zu 36 Para- 
Assembler 2.0 en und - Rekur 
Devpac 2.0 ist ein Entwick- n ee 


lungspaket für den Amiga 
mit komfortablem Editor, der Debugger, 
Assembler, symbolischem jaubt das Setzen von. 
Debugger und Linker zum Breakpoints, das Disassem- 
Einbinden von Hochsprache- uf Diskette und noch 
Modulen. ures, die 


jenAm z 
GenAm | zum Vergnügen 
assembler mit ir 


vorhanden ist, 


rrekturmög: 
zur komfor- 
1g bei 
Hardware- Anforderungen: 


Hardwars:Änforderungani 
ya 500, 1000 oder 2000 
512 Kbyte, 

laufwerk 


0 oder 


der hi 


S 1790,-") "J6S 1490,-*) 
c-Assembler 2.0 

t! Amiga-Magazin 4/89 
der besten Programme 
Art für den Amiga. 


SuperED C 


INFO-COUPON 


NFO-COUPON 


Bitte senden Sie mir weiteres Informationsmaterial zu 3 
| I Devpac-Assembler U HiSoft-Basic-Compiler 


Software - Schulung 


Profi-Software 
unter 100 DM 


R. Arbinger, I. Krüger 
Scriptum 

Das leistungsfähige Textv 
ungsprogramm für den Amiga 
Dazu eine führliche Pre amm 
beschreibung im Buch 


Fragen weiterhilft 

1989, 141 Seiten, 

Inkl. Programmdiskette, 

ISBN 3-89090-650-8 

DM 79,-* (sFr 72,70*168 672,-") 


Precision Software 
‚Amiga Superbase 
Die Einsteiger bank. Relationa 
les System zum Verwalten von Date 
aller Art, auch von IFF-Grafiken; mit 
integrierter Diashow-Funktion 

1989, 176 Seiten 

inkl, Programmdiskette. 
ISBN 3-89090-791-1 
8190768 


Atlantis AmigaCall 
in die faszinierende 


nfernü 


ln .\ 
Markt&fechnik 


= Amiga Superbase 


© Amiga REFLECTIONS 


K 
die Ihnen be 


Trickstudio A 


Public-Dom: 
1988, 133 Seite 
4 

Reflections 

und Realisr 
Inklusiv ke kl. 2 Pr 
ISBN 3-89090-727:X 
DM 98,-* (sFi 20", 6S 834,-") 3 


DM 98,* (sFr 90.20°/68 8 


NNFO.COU On 


NFO COUPON 


nden Sie mir Ihr 
mit über 5 


Zeitschriften - Bücher 
_Software - Schulung 


Amiga TRICKSTUDIO A 


3laeser/T. Grol 
3-D-Sprinter Amiga, Version 1.3 
interaktive Echtzeit-Animation 

4. Quartal 1989 
ten, inkl. Disk 
89090-109-3 


ca. DM 98,-* (sFr 90,20*/68 834,-* 


In Vorbereitung: 


Wirsinc 
Amiga Audio Entwiokler- ‚Paket 
Buch macht $ m 
fontechniker. 
1. Quartal '90, 
Seiten, inkl. 2 Programm: 


\ 3-89090-765-2, 


ca. DM 98,-* (sFr 9 


20168 834,-) 


erbindliche Preisempfehlung 


e in den Fachabteilungen 
er, im Versandhandel, 


